將工作表添加到Excel工作簿時，HRESULT異常：0x800A03EC

Question

當我嘗試將我的datagridview組件保存到excel時出現錯誤

Exception from HRESULT: 0x800A03EC

在此行周圍： xlWorkSheet = xlWorkBook.Sheets.Add("[Sheet1]")

我的代碼有一部分：

    Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim misValue As Object = System.Reflection.Missing.Value
    Dim i As Integer
    Dim j As Integer


    xlApp = New Microsoft.Office.Interop.Excel.Application
    xlWorkBook = xlApp.Workbooks.Add(misValue)
    xlWorkSheet = xlWorkBook.Sheets.Add("[Sheet1]")


    For i = 0 To DataGridView1.RowCount - 1
        For j = 0 To DataGridView1.ColumnCount - 1
            For k As Integer = 1 To DataGridView1.Columns.Count
                xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
                xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value
            Next
        Next
    Next

    xlWorkSheet.SaveAs("c:\users\500998877\documents\bg\dtgv1.xlsx")
    xlWorkBook.Close()
    xlApp.Quit()

    Process.Start("c:\users\500998877\documents\bg\dtgv1.xlsx")

Answer 1

未經測試，但請嘗試以下操作：

xlWorkSheet = xlWorkBook.Sheets.Add
xlWorksheet.Name = "MyNewSheet"

請注意，默認情況下，可能還有默認的“ Sheet1”和默認的Excel實例。

您可能希望通過此MSDN參考頁開始研究。