数据到Excel中的VB.NET

当我想从vb.net中的数据创buildExcel文件时遇到问题。

代码如下所示。

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() 

当我运行该程序时，我发现错误消息“从HRESULTexception：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) 

应该pipe用。