1

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" というエラー メッセージが表示されました。

誰でもこの問題を克服する方法を知っていますか?

ありがとうございました

4

1 に答える 1