VBA问题“提示运行时错误9 下标越界”

VBA问题“提示运行时错误9 下标越界”

修改你相关行
从第四行开始

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，这些都不用

是不是有多个工作簿，你没有指定工作簿吧？追问如何指定追答with worksbooks("每日湿货报表.xls")
.sheets("中创……").select
end with

不知道你要干什么，只能给个暂时的解决方法。

这个问题不在这一句，而在上一句：
Workbooks.Open Filename:="C;\每日湿货报表“
有两种可能，第一你这文件已经打开了，就不能打开，也不能自己调自己。
第二种可能是这个文件的路径不对，你查一查有没有在C:\目录下，文件名是不是对。
也可以用这个处理
Application.Workbooks("C;\每日湿货报表").Sheets(”中创KFC入库单“).Select;