调用时遇到的问题

鱼生

我的目的是调用原有sub中的变量到新的sub内，但用call 调用 再定义变量 Set Owb = Workbooks.Open(fullName) 这样就会报错

我如果把原有sub复制到新的sub中，那Set Owb = Workbooks.Open(fullName)就可以正常进行
烦请各位老师帮忙解答

第一种报错情况


正常情况

fanyoulin

1、附件与代码不符，“三项不打折”、“投资费用明细表”均不存在；
2、代码不完整，最后有好几个 if 都没有 endif；
3、wb、owb标注是工作簿对象，但定义为string;
没办法测试；

鱼生

fanyoulin 发表于 2023-5-23 08:39
1、附件与代码不符，“三项不打折”、“投资费用明细表”均不存在；
2、代码不完整，最后有好几个 if 都没 ...

多谢回复，昨天太晚复制错了，只要把Workbooks.Open(fullName).Worksheets替换为ActiveWorkbook.Worksheets 就可以了
Owb定义错了，应该时workbook