如何彻底隐藏VBA调用PowerShell时弹出的GUI窗口？

我之前处理AD组查询的时候也碰到过一模一样的情况——明明加了-WindowStyle Hidden，PowerShell窗口还是会闪一下才消失。后来发现问题出在Wscript.Shell.Exec()这个方法上，它本身会强制创建一个控制台窗口，哪怕你加了隐藏参数也没用。

下面给你两个可行的解决方案，都是彻底隐藏窗口的：

方案一：用Run()方法+临时文件（简单易实现） #

这个方法把PowerShell的输出写到临时文件，再读回Excel，完全看不到窗口：

Do Until i = LRow + 1
    ADGroup = Cells(i, 2)
    ' 给AD组名加单引号，防止带空格的组名出错
    strPSCommand = "Get-ADGroupMember -Identity '" & ADGroup & "' -Recursive | Select-Object -ExpandProperty Name"
    
    ' 构造完整的PowerShell命令：加-NonInteractive/NoProfile加快启动，用Out-File输出到临时文件
    Dim tempFile As String
    tempFile = Environ("TEMP") & "\ad_group_output_" & i & ".txt"
    strDOSCommand = "powershell -WindowStyle Hidden -NonInteractive -NoProfile -Command ""& {" & strPSCommand & "} | Out-File -Path '" & tempFile & "' -Encoding UTF8"""
    
    Set objShell = CreateObject("Wscript.Shell")
    ' 关键：Run的第二个参数0=隐藏窗口，第三个参数True=等待执行完成
    objShell.Run strDOSCommand, 0, True
    
    ' 读取临时文件内容到单元格
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(tempFile) Then
        Cells(i, 3).Value = fso.OpenTextFile(tempFile, 1).ReadAll
        fso.DeleteFile tempFile ' 用完删掉临时文件
    End If
    
    Set objShell = Nothing
    Set fso = Nothing
    i = i + 1
Loop

方案二：用Exec()但调整命令格式（适合不想用临时文件的情况） #

如果你坚持想用Exec()，可以把PowerShell命令用-EncodedCommand编码，这样能避免窗口闪显的问题，同时直接读取StdOut：

Do Until i = LRow + 1
    ADGroup = Cells(i, 2)
    strPSCommand = "Get-ADGroupMember -Identity '" & ADGroup & "' -Recursive | Select-Object -ExpandProperty Name"
    
    ' 把PowerShell命令编码为Base64，避免解析问题
    Dim encodedCommand As String
    encodedCommand = EncodeToBase64(strPSCommand)
    
    ' 构造命令：用-EncodedCommand，同时加-Hidden/NonInteractive
    strDOSCommand = "powershell -WindowStyle Hidden -NonInteractive -NoProfile -EncodedCommand " & encodedCommand
    
    Set objShell = CreateObject("Wscript.Shell")
    Set objExec = objShell.Exec(strDOSCommand)
    strPSResults = objExec.StdOut.ReadAll
    Cells(i, 3).Value = strPSResults
    
    Set objShell = Nothing
    Set objExec = Nothing
    i = i + 1
Loop

配套的Base64编码函数 #

需要在模块里加这个函数来编码命令：

Function EncodeToBase64(text As String) As String
    Dim bytes() As Byte
    bytes = StrConv(text, vbFromUnicode)
    
    Dim objXML As Object
    Dim objNode As Object
    Set objXML = CreateObject("MSXML2.DOMDocument")
    Set objNode = objXML.createElement("b64")
    
    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = bytes
    EncodeToBase64 = Replace(objNode.Text, vbCrLf, "")
    
    Set objNode = Nothing
    Set objXML = Nothing
End Function

为什么之前的方法不行？ #

• Exec()方法会创建一个新的控制台进程，并且这个窗口的显示优先级高于-WindowStyle Hidden，所以会闪一下。
• 用Run(..., 0, True)直接强制窗口隐藏，并且等待执行完成，完全不会显示窗口。
• 编码命令的方式则是让PowerShell直接执行编码后的脚本，避免了命令行解析时的窗口闪烁。

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