VBA调用批处理后未等待执行完成，求解决方案

问题背景 #

在Access数据库中通过VBA启动关联PowerShell脚本的批处理文件，功能本身可正常运行，但需要在批处理执行完成后运行后续查询，目前只能手动监控流程。已设置WaitOnReturn:=True参数，但VBA并未暂停等待，批处理启动后直接执行后续代码。

用户现有代码 #

VBA代码

Private Sub Button_UpdateOffline_Click()

Dim strCommand As String
Dim lngErrorCode As Long
Dim wsh As WshShell
Set wsh = New WshShell

DoCmd.OpenForm "Please_Wait"

'Run the batch file using the WshShell object
strCommand = Chr(34) & _
             "C:\Users\Rip\Q_Update.bat" & _
             Chr(34)
lngErrorCode = wsh.Run(strCommand, _
                       WindowStyle:=0, _
                       WaitOnReturn:=True)
If lngErrorCode <> 0 Then
    MsgBox "Uh oh! Something went wrong with the batch file!"
    Exit Sub
End If

DoCmd.Close acForm, "Please_Wait"

End Sub

批处理代码

START PowerShell.exe -ExecutionPolicy Bypass -Command "& 'C:\Users\Rip\PS1\OfflineFAQ_Update.ps1' "

原因分析 #

问题核心在于批处理中的START命令：默认情况下START会启动新进程并立即返回，导致批处理文件本身瞬间执行完毕。VBA的WaitOnReturn:=True仅能等待批处理进程结束，无法追踪到后续启动的PowerShell脚本执行状态。

解决方案 #

方法一：修改批处理文件 #

有两种调整方式，任选其一即可：

• 方案1：移除START命令
  让PowerShell直接在批处理的进程中运行，批处理会自动等待PowerShell脚本执行完成后再退出：

  PowerShell.exe -ExecutionPolicy Bypass -Command "& 'C:\Users\Rip\PS1\OfflineFAQ_Update.ps1' "
  

• 方案2：给START添加等待参数
  如果需要保留START（比如单独启动窗口），添加/WAIT参数强制批处理等待PowerShell进程结束：

  START /WAIT PowerShell.exe -ExecutionPolicy Bypass -Command "& 'C:\Users\Rip\PS1\OfflineFAQ_Update.ps1' "
  

方法二：直接在VBA中调用PowerShell #

跳过中间批处理文件，直接通过WshShell运行PowerShell命令，让VBA直接等待脚本执行完成：

Private Sub Button_UpdateOffline_Click()

Dim strCommand As String
Dim lngErrorCode As Long
Dim wsh As WshShell
Set wsh = New WshShell

DoCmd.OpenForm "Please_Wait"

'直接运行PowerShell脚本，无需批处理
strCommand = "PowerShell.exe -ExecutionPolicy Bypass -Command ""& 'C:\Users\Rip\PS1\OfflineFAQ_Update.ps1' """
lngErrorCode = wsh.Run(strCommand, WindowStyle:=0, WaitOnReturn:=True)

If lngErrorCode <> 0 Then
    MsgBox "Uh oh! Something went wrong with the PowerShell script!"
    Exit Sub
End If

DoCmd.Close acForm, "Please_Wait"

End Sub

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