Excel多个Application.Run调用不同工作簿Macro的问题

DavidTan

Sub RunForAll()

Application.Run "'" & ThisWorkbook.Path & "\SalesSummary2020.xlsm'!SalesSummary"

Application.Run "'" & ThisWorkbook.Path & "\SalesCost2020.xlsm'!SalesCost"

Application.Run "'" & ThisWorkbook.Path & "\TotalExpense2020.xlsm'!TotalExpense"

End Sub


类似上面的VBA，执行后只有第一个VBA运行正常,第二个工作簿可以打开但不执行VBA代码。
不知道为什么，请高手指教。
要实现一次运行多个工作簿的VBA,如何实现？

lss001

Sub nn()
    Set dd = CreateObject("Excel.Application")
    Application.DisplayAlerts = False '屏蔽确认提示
   
    ar = Array("SalesSummary2020.xlsm", "SalesCost2020.xlsm", "TotalExpense2020.xlsm") '文件名
    br = Array("SalesSummary", "SalesCost", "TotalExpense") '宏名称
    For i = 0 To 2
        Set aa = dd.Workbooks.Open(ThisWorkbook.Path & "\" & ar(i))
        On Error GoTo Line1 '错误转移
        aa.Application.Run "" & ar(i) & "!" & br(i) & ""
Line1:
        aa.Save: aa.Close '保存关闭
    Next
    dd.Quit '退出
   
    Application.DisplayAlerts = True
End Sub

DavidTan

谢谢回复！
不过跑你的VBA程序一直报错：

lss001

DavidTan 发表于 2020-3-6 13:00
谢谢回复！
不过跑你的VBA程序一直报错：

请上传报错附件以测试！

或者把文件名

与扩展名放在一起>>>可参考楼上更正！

leolee82

我猜可能是activeworkbook的问题

DavidTan

谢谢回复！
因为我的含VBA的工作簿都不想保存改动，自己研究了下，稍微更改了下您的代码就可以了：
Sub RunAll()
... ... ...
Line1:
         aa.Close  '关闭
    Next
   
dd.Quit '退出

    Application.DisplayAlerts = True
End Sub

感谢您的指导