如何实现VBA调用外部exe后等待执行或从exe触发VBA宏？

解决VBA调用Python EXE后同步执行后续宏的两种可行方案 #

方案1：让VBA同步等待EXE执行完成（修复原循环等待的假死问题） #

原Shell命令是异步执行，导致VBA直接跳过后续逻辑。改用同步等待进程结束的方式，同时避免Excel假死：

Sub runPython()
    Application.ScreenUpdating = False
    Application.EnableEvents = False

    Dim exePath As String
    exePath = "\\srv\manuf\Cell\Projects\pbu_improvements\partBreakdownUpdate_9_5.exe"
    
    ' 同步等待EXE执行完毕
    Call ShellAndWait(exePath, 1)
    
    ' 这里写EXE完成后要执行的后续VBA宏
    ' 例如：Call PostUpdateMacro
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

' 同步等待进程的辅助函数
Private Function ShellAndWait(ByVal PathName As String, Optional WindowStyle As VbAppWinStyle = vbMinimizedFocus) As Boolean
    Dim hProcess As LongPtr
    Dim ExitCode As Long
    
    hProcess = Shell(PathName, WindowStyle)
    If hProcess = 0 Then
        ShellAndWait = False
        Exit Function
    End If
    
    ' 循环检查进程状态，DoEvents保证Excel不卡死
    Do
        GetExitCodeProcess hProcess, ExitCode
        DoEvents
    Loop While ExitCode = STILL_ACTIVE
    
    CloseHandle hProcess
    ShellAndWait = True
End Function

' 需将以下API声明放在模块最顶部
Private Declare PtrSafe Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As LongPtr, lpExitCode As Long) As Long
Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As LongPtr) As Long
Private Const STILL_ACTIVE = &H103

这个方案通过Windows API跟踪EXE进程，DoEvents让Excel保持响应，不会出现原循环导致的假死，Python的xlwings也能正常抓取活动工作簿。

方案2：在Python代码末尾直接调用VBA宏 #

利用xlwings的原生能力，在Python完成数据处理后直接触发Excel中的VBA宏，无需VBA做等待处理：

import xlwings as xw

def getActiveWorkbook():
    try:
        activeWb = xw.books.active
    except:
        print('Unable to grab the current Workbook')
        pause()
        exitProgram()
    else:
        return activeWb

# 你的核心逻辑：查询数据库、Pandas处理数据、写入Excel...

# 处理完成后调用目标VBA宏
wb = getActiveWorkbook()
# 替换为你要执行的宏名称，若宏在工作表中需加前缀（如"Sheet1.MyMacro"）
wb.api.Run("PostUpdateMacro")

这种方式直接在Python流程末尾衔接VBA操作，逻辑更顺畅，完全避免VBA和EXE的同步问题。

内容的提问来源于stack exchange，提问作者smichael_44