Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 是否从Outlook宏运行Excel宏?_Vba_Excel_Outlook - Fatal编程技术网

Vba 是否从Outlook宏运行Excel宏?

Vba 是否从Outlook宏运行Excel宏?,vba,excel,outlook,Vba,Excel,Outlook,欢迎大家, 我正在使用一个函数,从outlook运行excel宏。我的条件是在excel文件打开且outlook也打开的情况下运行excel宏 我的问题是。当我运行此代码时。outlook将打开另一个相同的excel文件并要求替换保存 我想要的是,当我从outlook调用宏时。它将直接从打开的excel中触发宏 这是我的密码 Sub macro() Dim ExApp As Excel.Application Dim ExWbk As Workbook Set ExApp =

欢迎大家,

我正在使用一个函数,从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
您可以尝试以下方法:

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

什么是
生产
?生产是宏名称