以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]导出excel表出现问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139838)

--  作者:mositu
--  发布时间:2019/8/22 17:38:00
--  [求助]导出excel表出现问题
Dim App As New MSExcel.Application
 App.Visible = True
 Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(“D:/报表.xls”)

Dim Ws As MSExcel.WorkSheet
ws = wb.WorkSheets(1)
ws.Select
Dim Rg As MSExcel.Range
rg= Ws.cells(1,1)
rg.value =“汇总明细表”
rg= Ws.cells(2,1)
rg.value = “2019年8月”
出现 如下问题,如图
卸载office,重新装完整版的office,试了好几遍,依然解决不了
[此贴子已经被作者于2019/8/22 17:43:50编辑过]

--  作者:mositu
--  发布时间:2019/8/22 17:40:00
--  
我的图片呢,添加附件,上传附件,怎么不管用啊
[此贴子已经被作者于2019/8/22 17:44:54编辑过]