從Outlook宏運行Excel宏？

Question

問候所有，

我正在從一個函數運行excel宏從Outlook。我的條件是運行excel宏，excel文件打開，outlook也打開

我的問題是。當我運行這個代碼。 Outlook將打開另一個相同的Excel文件並要求替換保存。

我想要的是，當我從前景調用宏。它會直接從開放的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