请问在Windows服务中vb.net怎么生成Excel文件,运行的时候老是弹出 异常来自 HRESULT:0x800A03EC
答案:2 悬赏:40 手机版
解决时间 2021-04-09 23:16
- 提问者网友:不爱我么
- 2021-04-09 20:05
如上
最佳答案
- 五星知识达人网友:舍身薄凉客
- 2021-04-09 20:18
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()
全部回答
- 1楼网友:胯下狙击手
- 2021-04-09 21:39
我学会了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯