Foxtable(狐表)用户栏目专家坐堂 → 异常来自 HRESULT:0x800A03EC


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

主题:异常来自 HRESULT:0x800A03EC

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


加好友 发短信
等级:六尾狐 帖子:1437 积分:10612 威望:0 精华:0 注册:2014/8/13 16:19:00
异常来自 HRESULT:0x800A03EC  发帖心情 Post By:2020/3/23 18:06:00 [只看该作者]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(strFileName)
Dim xlsSheet As MSExcel.WorkSheet = Wb.WorkSheets(1)
xlsSheet.cells(Index, 0) = Index - 1                                             //执行到此的时候,报错。异常来自 HRESULT:0x800A03EC  
                                                                                                //xlsSheet.cells(Index, 0).value = Index - 1  也试过
何解?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106900 积分:543713 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/23 20:20:00 [只看该作者]

vba的下标从1开始

xlsSheet.cells(Index, 1).value = Index - 1

 回到顶部