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()
プログラムを実行すると、"Exception from HRESULT: 0x800A03EC" というエラー メッセージが表示されました。
誰でもこの問題を克服する方法を知っていますか?
ありがとうございました