VBA问题“提示运行时错误9 下标越界”
答案:3 悬赏:80 手机版
解决时间 2021-03-30 05:30
- 提问者网友：佞臣
- 2021-03-29 12:21
VBA问题“提示运行时错误9 下标越界”
最佳答案
- 五星知识达人网友：玩世
- 2021-03-29 12:56
修改你相关行
从第四行开始
dim bw as workbook
set wb=workbookk.open("c:\每日湿货报表.xls")
wb.worksheets("中创KFC入库").cells.delete Shift:=xlup
wb.worksheets("PH湿货入库单").cells.delete Shift:=xlup
wb.worksheets("每日湿货出货重量").cells.delete Shift:=xlup
你的程序出错是sheets(....)默认的是从 当前工作簿中找
你应该不用默认值，用全限定符
从上面代码看，你是从录制的宏修改的
中间还有很多select，这些都不用
从第四行开始
dim bw as workbook
set wb=workbookk.open("c:\每日湿货报表.xls")
wb.worksheets("中创KFC入库").cells.delete Shift:=xlup
wb.worksheets("PH湿货入库单").cells.delete Shift:=xlup
wb.worksheets("每日湿货出货重量").cells.delete Shift:=xlup
你的程序出错是sheets(....)默认的是从 当前工作簿中找
你应该不用默认值，用全限定符
从上面代码看，你是从录制的宏修改的
中间还有很多select，这些都不用
全部回答
- 1楼网友：千夜
- 2021-03-29 15:12
是不是有多个工作簿，你没有指定工作簿吧？追问如何指定追答with worksbooks("每日湿货报表.xls")
.sheets("中创……").select
end with
不知道你要干什么，只能给个暂时的解决方法。
.sheets("中创……").select
end with
不知道你要干什么，只能给个暂时的解决方法。
- 2楼网友：猎心人
- 2021-03-29 14:29
这个问题不在这一句，而在上一句：
Workbooks.Open Filename:="C;\每日湿货报表“
有两种可能，第一你这文件已经打开了，就不能打开，也不能自己调自己。
第二种可能是这个文件的路径不对，你查一查有没有在C:\目录下，文件名是不是对。
也可以用这个处理
Application.Workbooks("C;\每日湿货报表").Sheets(”中创KFC入库单“).Select;
Workbooks.Open Filename:="C;\每日湿货报表“
有两种可能，第一你这文件已经打开了，就不能打开，也不能自己调自己。
第二种可能是这个文件的路径不对，你查一查有没有在C:\目录下，文件名是不是对。
也可以用这个处理
Application.Workbooks("C;\每日湿货报表").Sheets(”中创KFC入库单“).Select;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯