Question

我想从Outlook调用宏，该宏是excel宏（插件文件）。与文件excel .xlsm，我可以。但是，使用文件addin .xlam时，请告诉我如何调用它。 .xlsm的示例

Sub trans_outlook()

Dim xlApp As Object, xlWkb As Object
Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False ' can be False if you do not wont see reaction, byt make sure is not fail
    Set xlWkb = xlApp.Workbooks.Open("C:\Users\xyz.xlsm")
    xlApp.Run "xyz.xlsm!Test"
    xlWkb.Close savechanges:=False
    xlApp.Quit
End Sub

Answer 1

您需要转到工具->参考。在列表中找到Microsoft Excel 14.0 Data Objects Library，然后选中其旁边的框。点击确定

 Dim ExApp As Excel.Application
 Dim ExWbk As Workbook
 Set ExApp = New Excel.Application
 Set ExWbk = ExApp.Workbooks.Open("C:\Folder\Folder\File.xls")
 ExApp.Visible = True

 ExWbk.Application.Run "ModuleName.YourMacro"

 ExWbk.Close SaveChanges:=True

如何从Outlook调用宏Excel

1 个答案: