展开全部
修改你相关行
从第四行开始
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,这些都不用
展开全部
这个问题不在这一句,而在上一句:
Workbooks.Open Filename:="C;\每日湿货报表“
有两种可能,第一你这文件已经打开了,就不能打开,也不能自己调自己。
第二种可能是这个文件的路径不对,你查一查有没有在C:\目录下,文件名是不是对。
也可以用这个处理
Application.Workbooks("C;\每日湿货报表").Sheets(”中创KFC入库单“).Select;
Workbooks.Open Filename:="C;\每日湿货报表“
有两种可能,第一你这文件已经打开了,就不能打开,也不能自己调自己。
第二种可能是这个文件的路径不对,你查一查有没有在C:\目录下,文件名是不是对。
也可以用这个处理
Application.Workbooks("C;\每日湿货报表").Sheets(”中创KFC入库单“).Select;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
是不是有多个工作簿,你没有指定工作簿吧?
追问
如何指定
追答
with worksbooks("每日湿货报表.xls")
.sheets("中创……").select
end with
不知道你要干什么,只能给个暂时的解决方法。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询