据我所知,您的代码给出的错误将是:
“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
附带一个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
默认情况下附带一张。