如何从 Outlook 调用 xlam 文件中的 Excel 宏？

Question

我想从 Outlook 调用宏。

我可以用 Excel .xlsm 文件来完成。

如何在插件 .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