为何VBA宏中调用PowerShell解压系统命令没有任何执行效果？

核心问题原因 #

• PowerShell默认执行策略限制，未显式绕过的情况下部分环境会禁止命令执行
• 命令参数缺少转义处理，路径如果含特殊字符会解析失败
• 未加-NoProfile等启动参数，加载用户配置时可能触发异常
• 原生VBA的Shell函数是异步执行，调用后立刻返回，容易误以为命令未运行

修复后可直接使用的代码 #

基础版（依赖PowerShell） #

Sub TestUnzip()
    Dim cmd As String
    ' 加入执行策略绕过、无配置启动参数，路径用单引号包裹避免转义问题
    cmd = "powershell.exe -NoProfile -ExecutionPolicy Bypass -Command ""Expand-Archive -Force 'C:\Test\test.zip' 'C:\Test\'"""
    Shell cmd, vbNormalFocus
End Sub

带执行结果校验版（推荐） #

使用WScript.Shell替代原生Shell，支持等待命令执行完成并返回执行结果，方便排查问题：

Sub TestUnzipWithCheck()
    Dim wsh As Object
    Dim cmd As String
    Dim exitCode As Integer
    
    Set wsh = CreateObject("WScript.Shell")
    cmd = "powershell.exe -NoProfile -ExecutionPolicy Bypass -Command ""Expand-Archive -Force 'C:\Test\test.zip' 'C:\Test\'"""
    ' 第二个参数1为显示执行窗口，第三个参数True表示等待执行完成再继续
    exitCode = wsh.Run(cmd, 1, True)
    
    If exitCode = 0 Then
        MsgBox "解压成功"
    Else
        MsgBox "解压失败，错误码：" & exitCode
    End If
End Sub

原生VBA无依赖版（兼容性最好） #

不需要调用PowerShell，利用系统自带的Shell.Application实现解压，支持Win7及以上所有Windows系统：

Sub UnzipNative()
    Dim zipPath As String, extractPath As String
    Dim shellApp As Object
    
    zipPath = "C:\Test\test.zip"
    extractPath = "C:\Test\"
    
    ' 自动创建目标目录（如果不存在）
    If Dir(extractPath, vbDirectory) = "" Then
        MkDir extractPath
    End If
    
    Set shellApp = CreateObject("Shell.Application")
    ' 执行解压操作
    shellApp.Namespace(extractPath).CopyHere shellApp.Namespace(zipPath).Items
    MsgBox "解压完成"
End Sub

可选排查步骤 #

如果仍然执行失败，可以按以下步骤排查：

1. 将代码中构造的cmd字符串打印到立即窗口，复制后直接粘贴到CMD中运行，确认命令本身没有语法错误
2. 确认C:\Test\test.zip文件真实存在，且当前Windows用户对C:\Test目录有写入权限
3. 检查压缩包是否损坏，手动解压测试是否正常

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