Option
Explicit
Sub
main()
Dim
wb
As
Workbook
Set
wb
=
Workbooks.Open("d:\1.xlsm")
Application.Run
"1.xlsm!tt"
wb.Close
Set
wb
=
Nothing
End
Sub
这是个示例，我把两工作簿都在D盘了根目录运行的，你可以改代码，也可以该路径，详见附件
workbooks.open("d:\ab.xls")'打开指定文件夹下的一个excel文件。
要批量打开可以用复杂一点的语句
workbooks.open 路径\文件名,,true
SUB 总宏()
CALL 宏1
CALL 宏2
CALL 宏3
END SUB
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024