OptionExplicitSubmain()DimwbAsWorkbookSetwb=Workbooks.Open("d:\1.xlsm")Application.Run"1.xlsm!tt"wb.CloseSetwb=NothingEndSub这是个示例,我把两工作簿都在D盘了根目录运行的,你可以改代码,也可以该路径,详见附件