使用一个VBA让多表宏操作的问题

天地一相

感谢帮助！见附件及运行报错。

缘由：想用一个专门的表内的VBA对同文件夹内指定的3个文件操作，让这3个表打开一个执行一个，结束关闭后进行下一个表的操作。（同一文件夹内有很多文件的，不能遍历，只能指定具体的几个。）
问题1：只能完成对第一个文件的打开和宏执行。就提示下一个文件找不到，可明明在呀？
问题2：若文件名含短横杠，执行宏的步骤时就会提示找不到文件。
特此求助，请看看“执行多任务”文件里的代码哪里错了，感谢。

tmplinshi

1. 计算测速-C.xlsb 两边需要加单引号



2. 你用 Workbooks.Open 打开子文件，然后子文件调用了 Application.Quit，这样会导致主文件也一同退出关闭的。
3. 子文件代码调用了 ThisWorkbook.Close 似乎造成了异常中断，我这里测试运行完第一个子文件代码，主程序就停止往下运行了。

所以你需要把子文件的 ThisWorkbook.Close 和 Application.Quit 去掉，然后在主文件中关闭子文件

1. With Workbooks.Open(ThisWorkbook.Path & "\计算测速A.xlsb")
   
2.     Application.Run ("'" & .Name & "'!模块1.AutoCalculate")
   
3.     .Close
   
4. End With

复制代码

或者你在主文件每次创建一个新的 "Excel.Application" 对象来运行子文件，这样你的子文件代码就不需要修改了

1. Set app = CreateObject("Excel.Application")
   
2. app.Workbooks.Open (ThisWorkbook.Path & "\计算测速-c.xlsb")
   
3. app.Run "'计算测速-c.xlsb'!模块1.AutoCalculate"

复制代码

天地一相

tmplinshi 发表于 2023-5-20 20:56
1. 计算测速-C.xlsb 两边需要加单引号

非常感谢！第一个方法我特喜欢，我的水平能理解和使用。验证正确！我改代码很方便，只需要在不要的语句前面加撇号变注释，喜欢第一个方案还有一个原因就是调整文件名只需要改动一个位置，省事。
再次感谢你！对了，仔细看你说的，我一下就明白我之前的困惑在哪里了。之前，我最早测试的文件是没有退出语句的，后来加了。加的时候还想，应该不需要加，因为没这句子时，测试也是能打开执行然后退出目标文件的。那时测试就是对的。后来不行了，就纳闷到底是哪里错了，之前好好的呀，怎么就不行了。还想是不是计算量大了，就又加了延时等待，还是不行。又开始各种瞎猜还是不行，最终只好求助了。
谢谢你。