vba中如何调用另一个以xls结尾后缀名excel中的宏并且适用多有office版本

您可以使用以下VBA代码来调用另一个Excel文件中的宏：

Sub CallMacroInAnotherWorkbook()
    Dim xlApp As Object
    Dim xlBook As Object
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Path\To\AnotherWorkbook.xls")
    
    ' 调用 AnotherWorkbook.xls 中的宏 Macro1
    xlApp.Run "'AnotherWorkbook.xls'!Macro1"
    
    xlBook.Close SaveChanges:=False
    Set xlBook = Nothing
    
    xlApp.Quit
    Set xlApp = Nothing
End Sub

在这个例子中，您需要将 `C:\Path\To\AnotherWorkbook.xls` 替换为您要调用的Excel文件的路径。然后，您可以使用 `xlApp.Run` 方法来调用该Excel文件中的宏。请注意，您需要在宏名前面加上文件名和单引号，以指明该宏所在的Excel文件。

此外，为了确保您的代码可以在所有Office版本中运行，请确保您的代码在VBA编辑器中的选项设置中将 "启用所有宏" 设置为 "启用"。您可以在VBA编辑器中的 "工具" 菜单下找到 "选项" 来进行设置。