调用时遇到的问题

鱼生 · 发表于 2023-5-23 00:33

本帖最后由鱼生于 2023-5-23 21:51 编辑

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

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

第一种报错情况

正常情况

fanyoulin · 发表于 2023-5-23 08:39

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

鱼生 · 发表于 2023-5-23 21:55

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

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

		自动登录	找回密码
密码			免费注册

[已解决] 调用时遇到的问题