как добавить несколько листов в файл Excel - PullRequest
Новая
       7

как добавить несколько листов в файл Excel

1 голос
/ 13 января 2020

Я добавляю несколько листов в Excel, но это показывает исключение System.Runtime.InteropServices.COMException: 'Неверный индекс. (Исключение из HRESULT: 0x8002000B (DISP_E_BADINDEX)) '. исключение происходит в позиции: xlWorkBook.Sheets ("105") 

    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")

1 Ответ

0 голосов
/ 13 января 2020 
    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)

Этот код работает для меня. В последний раз я сохраняю xlWorkBook

...