请问在Windows服务中vb.net怎么生成Excel文件 运行的时候老是弹出 异常来自 HRESULT:0x800A03EC

问题补充：

如上

答案：

Dim xlsName As String = My.Application.Info.DirectoryPath & "\tt.xls"

用 Add方法 创建新的工作簿和工作表对象。

xlApp = New Microsoft.Office.Interop.Excel.Application

xlBook = xlApp.Workbooks.Open(xlsName)

xlBook = xlApp.Workbooks.Add

xlSheet = xlBook.Worksheets(1)

xlSheet.Name = "work"

For i = 0 To 5

For j = 0 To 7

xlSheet.Cells._Default(i + 1, j + 1).Value = i & "" & j

Next j

Next i

xlSheet.Cells(3, 1).Formula = "=R5C5 + R3C3"RnCk,n为行值k为列值可直接编辑

xlSheet.Cells(3, 2).value = "=R5C5 + R3C3"

xlSheet.Cells._Default(3, 4).Value = "=R5C5 + R3C3"

保存工作表

xlSheet.StandardWidth = 2

xlSheet.SaveAs (App.path & "\" & formatdatetime(DateTimePicker1, "yyyy年mm月值班表") & formatdatetime(Now(), "hhmmss") & ".xls")

xlBook.Saved = True 保存时不提示

xlBook.SaveCopyAs(xlsName) 直接覆盖不提示

xlBook.SaveAs(xlsName)覆盖时提示

MsgBox(xlsName)

xlBook.Close()

用 Quit 方法关闭 Microsoft Excel

xlApp.Quit()

如果觉得《请问在Windows服务中vb.net怎么生成Excel文件 运行的时候老是弹出 异常来自 HRESULT:0x800A03EC》对你有帮助，请点赞、收藏，并留下你的观点哦！