Question

全心全意，

我正在开发一个从outlook运行excel宏的函数。我的条件是运行excel宏，excel文件打开，outlook也打开

我的问题是。当我运行此代码。 outlook将打开另一个相同的excel文件并要求替换save。

我想要的是，当我从前景中调用宏时。它会直接触发open 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

从Outlook宏运行Excel宏？

1 个答案: