vb.net - 在 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)

应该管用。