如何将多张图纸添加到excel文件

我正在向excel添加多个工作表，但它显示异常System.Runtime.InteropServices.COMException:“无效索引”。（来自HRESULT:0x8002000B（DISP_E_badeindex）的例外情况）。异常发生在位置：xlWorkBook.Sheets（“105”）

这个代码对我有用。最后我保存了工作簿

---

这个代码对我有用。最后，我保存了XL工作簿

欢迎使用SO。要添加工作表，我认为应该类似于

xlWorkBook.sheets.add

。你试过了吗？欢迎来到SO。要添加工作表，我认为应该类似于

xlWorkBook.sheets.add

。你试过了吗？

    Dim xlApp As Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet105 As Excel.Worksheet
    Dim xlWorkSheet120 As Excel.Worksheet
    Dim xlWorkSheet125 As Excel.Worksheet
    Dim xlWorkSheet600 As Excel.Worksheet
    Dim misValue As Object = System.Reflection.Missing.Value

    xlApp = New Excel.Application
    xlWorkBook = xlApp.Workbooks.Add()
    xlWorkSheet105 = xlWorkBook.Sheets("105")
    xlWorkSheet120 = xlWorkBook.Sheets("120")
    xlWorkSheet125 = xlWorkBook.Sheets("125")
    xlWorkSheet600 = xlWorkBook.Sheets("600")

    Dim xlApp As Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheetHeader As Excel.Worksheet
    Dim xlWorkSheet105 As Excel.Worksheet
    Dim xlWorkSheet120 As Excel.Worksheet
    Dim xlWorkSheet125 As Excel.Worksheet
    Dim xlWorkSheet600 As Excel.Worksheet
    Dim xlWorkSheetFooter As Excel.Worksheet
    Dim misValue As Object = System.Reflection.Missing.Value

    xlApp = New Excel.Application
    xlWorkBook = xlApp.Workbooks.Add()
    xlWorkSheetHeader = xlWorkBook.Sheets.Add(xlWorkBook.Worksheets(xlWorkBook.Worksheets.Count))
    xlWorkSheetHeader.Name = "Header"
    xlWorkSheet105 = xlWorkBook.Sheets.Add(xlWorkBook.Worksheets(xlWorkBook.Worksheets.Count))
    xlWorkSheet105.Name = "105"
    xlWorkSheet120 = xlWorkBook.Sheets.Add(xlWorkBook.Worksheets(xlWorkBook.Worksheets.Count))
    xlWorkSheet120.Name = "120"
    xlWorkSheet125 = xlWorkBook.Sheets.Add(xlWorkBook.Worksheets(xlWorkBook.Worksheets.Count))
    xlWorkSheet125.Name = "125"
    xlWorkSheet600 = xlWorkBook.Sheets.Add(xlWorkBook.Worksheets(xlWorkBook.Worksheets.Count))
    xlWorkSheet600.Name = "600"
    xlWorkSheetFooter = xlWorkBook.Sheets.Add(xlWorkBook.Worksheets(xlWorkBook.Worksheets.Count))
    xlWorkSheetFooter.Name = "Footer"          xlWorkBook.SaveAs(Path)