[英]Adding a Sheet to an Excel Workbook
我正在嘗試在Excel中創建具有多個Workbook
表的Workbook
,但我不知道如何創建多個工作表。 我可以創建一個就好了,但是當我嘗試創建第二個要寫的文件時卻出現了錯誤。
Dim app As Application = New Application
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim newXlApp As Excel.Application = New Microsoft.Office.Interop.Excel.Application
Dim newXlWorkbook As Excel.Workbook
Dim newXlSheet As Excel.Worksheet
Dim newXlSheet2 As Excel.Worksheet
Public Sub createWorkBook()
newXlWorkbook = newXlApp.Workbooks.Add()
newXlSheet = newXlWorkbook.Sheets("Sheet1")
newXlSheet2 = newXlWorkbook.Sheets.Add("Sheet2")
newXlSheet.Cells(1, 1) = "Task ID"
newXlSheet.Cells(1, 2) = "Collective Tasks"
newXlSheet.Cells(1, 3) = "Supported Task"
newXlSheet2.Cells(1, 1) = "Parent Collective Task"
newXlSheet2.Cells(1, 2) = "Individual Task"
End Sub
我不確定是否重要,但是我還要打開一個單獨的Excel Workbook
。
從我可以看到您的代碼給出的錯誤將是:
類型為“ System.Runtime.InteropServices.COMException”的第一次機會異常
如果要將多個工作表添加到Excel Workbook
,請執行以下代碼:
Dim app As New Excel.Application
Dim wb As Excel.Workbook = app.Workbooks.Add()
Dim ws As Excel.Worksheet
ws = CType(wb.Sheets.Add(Count:=10), Excel.Worksheet)
默認情況下, Workbook
隨附一張Workbook
Sheet
。 如果要添加多個,請設置Count:= parameter
。 如您在我的示例中看到的,我使用了10 。 這將給我留下11張紙供您使用。
請注意,
ws
將是Workbook
的最后一張紙。 在我的示例中,這將是Sheet11 。
如果要使用每個Worksheet
則需要查看以下代碼:
Dim ws1 As Excel.Worksheet = CType(wb.Sheets(1), Excel.Worksheet)
Dim ws2 As Excel.Worksheet = CType(wb.Sheets.Add(), Excel.Worksheet)
ws1.Cells(1, 1) = "Task ID"
ws1.Cells(1, 2) = "Collective Tasks"
ws1.Cells(1, 3) = "Supported Task"
ws2.Cells(1, 1) = "Parent Collective Task"
ws2.Cells(1, 2) = "Individual Task"
請注意,
ws1
引用了第一張紙。 如上所述,默認情況下,Workbook
隨附一張紙。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.