如图。(图片在点大，可能你需要将其下载到本地，才能看到动画）
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盘了根目录运行的，你可以改代码，也可以该路径，详见附件
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024