从 Outlook 宏运行 Excel 宏？

Question

大家好，

我正在研究从 Outlook 运行 excel 宏的功能。我的条件是在excel文件打开并且outlook也打开的情况下运行excel宏

我的问题是。当我运行这段代码时。 Outlook 将打开另一个相同的 excel 文件并要求替换保存。

我想要的是，当我从 Outlook 调用宏时。它将直接从打开的 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