我正在编写一些宏来从多个其他文件中提取数据并在单个目标文件上打印数据。 这些宏工作顺利,直到我开始编写“模块7”。
下面第4行的宏断开:
Dim B_PWBR as Workbook
Set B_PWBR = Workbooks("PWBR Destin.xlsm")
Dim BB_WPI as Workbook
Set BB_WPI = Workbooks.Open("BB Data.xlsx")
指示的错误消息是:
Run-time error '1004': Sorry, we couldn't find filename.xlsx . Is it possible it was moved,renamed or deleted?
BB Data.xlsx
是我从中复制数据的源文件
PWBR Destin.xlsx
是我要复制数据的输出文件以及宏所在的文件。
注意:所有其他6个模块在此之前工作正常(并且包含类似的代码),但是在添加模块7之后,没有任何模块工作,并且在到达代码行4时它们都会中断这会在每个模块中打开一个不同的文件。
你们之前有没有遇到过类似的问题?如果是,我该如何解决?对此事的任何帮助都将深表感谢。