从Outlookmacros运行Excelmacros？

问候所有，

我正在从Outlook运行Excelmacros的function。 我的情况是运行excelmacros，excel文件打开，outlook也打开

我的问题是。 当我运行这个代码。 Outlook将打开另一个相同的Excel文件，并要求replace保存。

我想要的是，当我从前景调用macros。 它会直接触发macros从开放的Excel。

这是我的代码

Sub macro() Dim ExApp As Excel.Application Dim ExWbk As Workbook Set ExApp = New Excel.Application Set ExApp = ExApp.Workbooks.Open("C:\Users\Desktop\Production v2.7.1.xlsm") ExApp.Visible = True ExApp.Application.Run "'Production'!Main_function_Auto" ExApp.Close SaveChanges:=True End Sub 

Answer 1

你可以试试这个：

 Sub macro() Dim ExApp As Excel.Application On Error Resume Next Set ExApp = GetObject(, "Excel.Application") If Not ExApp Is Nothing Then ExApp.Run "'C:\Users\Desktop\Production v2.7.1.xlsm'!Main_function_Auto" End If End Sub