VBA调用Shell.Execute执行PowerShell解压命令无响应如何解决

问题原因及修正方案 #

1. 缺少PowerShell调用必填参数 #

直接把解压命令传给powershell程序时，没有指定-Command参数，PowerShell不会将后续字符串识别为要执行的命令，自然不会有任何动作。同时建议追加-ExecutionPolicy Bypass参数跳过当前会话的执行策略限制，避免默认策略阻止命令运行。

2. 路径一致性校验 #

你的Debug输出的目标路径和代码中写的路径不一致，代码里目标路径用户名为user1，实际输出为st11524，需要确认实际路径的正确性，避免路径不存在导致操作失效。

3. 修正后的代码 #

Sub unzip_test()
    Dim myshell As Shell32.Shell
    Set myshell = New Shell32.Shell

    Dim args As String
    ' 先加执行策略和Command参数，再拼接解压命令，追加-Force参数可覆盖已存在的目标文件，避免文件已存在时静默失败
    args = "-ExecutionPolicy Bypass -Command Expand-Archive -LiteralPath 'C:\Users\user1\Desktop\TEMP\examplezip.zip' -DestinationPath 'C:\Users\user1\Desktop\TEMP\tester' -Force"
    myshell.ShellExecute "powershell", vargs:=args

End Sub

可选调试技巧 #

如果修改后仍然不生效，可以在args末尾追加; pause，这样PowerShell窗口运行完不会直接关闭，你可以看到具体的报错信息，方便排查问题：

args = "-ExecutionPolicy Bypass -Command Expand-Archive -LiteralPath 'C:\Users\user1\Desktop\TEMP\examplezip.zip' -DestinationPath 'C:\Users\user1\Desktop\TEMP\tester' -Force; pause"

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