Dim fso,excel
Folder="C:\Users\Administrator\Desktop\1"
address="K2"
Value="1.2"
set fso=createobject("scripting.filesystemobject")
set excel=createobject("excel.application")
excel.visible=true
for each file in fso.getfolder(folder).files
set w=excel.workbooks.open(file.path)
excel.worksheets(sheet2).Range(address).Value=Value
W.SAVE
W.CLOSE
next
提示第10行第3个字符下标越界
VBS下标越界问题,代码如下
答案:2 悬赏:0 手机版
解决时间 2021-02-07 19:27
- 提问者网友:斑駁影
- 2021-02-07 06:45
最佳答案
- 五星知识达人网友:十鸦
- 2021-02-07 07:35
excel.worksheets(sheet2).Range(address).Value=Value改为:
excel.worksheets("Sheet2").Range(address).Value=Value
Sheet2 是工作簿的名称,要加双引号。
下面这样也是可以的:
excel.worksheets(2).Range(address).Value=Value用的是工作簿的序号。
excel.worksheets("Sheet2").Range(address).Value=Value
Sheet2 是工作簿的名称,要加双引号。
下面这样也是可以的:
excel.worksheets(2).Range(address).Value=Value用的是工作簿的序号。
全部回答
- 1楼网友:末日狂欢
- 2021-02-07 08:31
元素arrfilelines(j)不存在
j>ubound(arrfilelines)
或
j
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯