shell32.dll失效致VBA解压Zip归档失败，求排查原因

问题背景 #

• 原用于解压Zip的VBA代码长期正常运行，近期在本地shell32.dll版本升级至10.0.26100.3037（时间戳2025年3月10日）后突然失效：无文件导出且未抛出任何错误。
• 尝试将参数声明改回原Variant类型、参考文档添加&H4（不显示进度对话框）选项后，Shell对象对归档中的每个文件均返回错误。

原因判断 #

1. 安全政策变更 #

微软近期针对Shell API的文件操作权限管控有所加强，尤其是非交互式进程（如VBA后台运行场景）的文件访问限制。CopyHere作为Shell交互接口，可能被新增的安全规则拦截，导致无法读取Zip内容或写入输出目录。需重点检查：

• 输出目录是否为系统受保护路径（如C:\Program Files、用户默认文档目录）
• 当前VBA运行进程是否具备目标路径的读写权限

2. Shell32.dll版本BUG #

该版本属于较新的系统更新版本，可能存在兼容性问题：

• NameSpace方法对Zip文件的解析异常，导致返回的Items集合为空
• CopyHere的参数处理逻辑变更，&H4选项与当前版本不兼容，触发批量文件处理错误

临时替代方案 #

方案1：改用PowerShell调用 #

Sub UnZip_PowerShell(pathZip As Variant, pathOut As Variant)
    Dim psCmd As String
    ' 处理路径中的单引号避免命令报错，-Force覆盖已存在文件
    psCmd = "Expand-Archive -Path '" & Replace(pathZip, "'", "''") & "' -DestinationPath '" & Replace(pathOut, "'", "''") & "' -Force"
    ' 静默执行PowerShell命令
    CreateObject("WScript.Shell").Run "powershell -Command " & psCmd, 0, True
End Sub

方案2：使用原生COM组件替代 #

避免依赖Shell32，改用Microsoft Shell Controls And Automation组件（需提前引用）或直接调用Zip压缩API，确保兼容性。

方案3：回滚Shell32.dll版本 #

若确认是新版本BUG，可尝试回滚至之前能正常运行的shell32.dll版本（注意需匹配系统位数，且需管理员权限操作）

内容的提问来源于stack exchange，提问作者Jamie Garroch - MVP