Foxtable(狐表)用户栏目专家坐堂 → [求助]导出excel表出现问题


  共有2442人关注过本帖树形打印复制链接

主题:[求助]导出excel表出现问题

帅哥哟,离线,有人找我吗?
mositu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1148 威望:0 精华:0 注册:2012/3/28 13:02:00
[求助]导出excel表出现问题  发帖心情 Post By:2019/8/22 17:38:00 [显示全部帖子]

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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1148 威望:0 精华:0 注册:2012/3/28 13:02:00
  发帖心情 Post By:2019/8/22 17:40:00 [显示全部帖子]

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

 回到顶部