vb.net中的Excel數據

Question

當我想從vb.net中的數據創建Excel文件時，出現問題。

該代碼如下所示。

Dim Data(10, 10) As Integer 
    Dim xlApp As Microsoft.Office.Interop.Excel.Application 
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook 
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet 

    Data(0, 0) = 1 
    Data(0, 1) = 2 
    Data(0, 2) = 3 
    Data(1, 0) = 4 
    Data(1, 1) = 5 
    Data(1, 2) = 6 

    xlApp = GetObject("", "Excel.Application") 

    xlBook = xlApp.Workbooks.Open("D:\data excel.xls") 
    xlSheet = xlBook.Worksheets("Sheet1") 
    xlApp.Visible = True 

    xlSheet.Range(xlSheet.Cells(0, 0)).Value = Data(0, 0) 
    xlSheet.Range(xlSheet.Cells(0, 1)).Value = Data(0, 1) 
    xlSheet.Range(xlSheet.Cells(0, 2)).Value = Data(0, 2) 
    xlSheet.Range(xlSheet.Cells(1, 0)).Value = Data(1, 0) 
    xlSheet.Range(xlSheet.Cells(1, 1)).Value = Data(1, 1) 
    xlSheet.Range(xlSheet.Cells(1, 2)).Value = Data(1, 2) 

    xlBook.Save() 
    xlBook.Close(False) 
    xlApp.Quit() 

當我運行該程序時，發現錯誤消息「異常來自HRESULT：0x800A03EC」。

任何人都有一個想法如何克服這個問題？

謝謝

Answer 1

至於我能細胞1基於所以這個要記住：

xlSheet.Cells(1, 1) = Data(0, 0) 
xlSheet.Cells(1, 2) = Data(0, 1) 
... 
xlSheet.Cells(2, 3) = Data(1, 2) 

應該工作。