使用VBA解压Zip文件失败，请求技术协助

下面是你的代码存在的问题以及修正后的版本：

问题分析 #

• 路径格式错误：7z.exe的路径缺少根目录后的反斜杠，应为C:\Program Files\7-Zip\7z.exe，原代码写成C:Program Files\7-Zip\7z.exe，系统无法定位程序。
• 缺少解压命令参数：7-Zip命令行需要指定解压动作，比如x（保留原目录结构解压）或e（仅提取文件到目标目录），原命令无参数，无法触发解压操作。
• 文件名无完整路径：Dir返回的只是文件名，7-Zip会在当前工作目录查找文件，而非指定的桌面路径，导致找不到目标Zip文件。
• 含空格路径未加引号：Program Files、Documents and Settings这类带空格的路径，未用双引号包裹时，Shell会将空格后的内容识别为新参数，命令执行失败。

修正后的代码 #

Sub ExtractAllFiles()
    Dim FileName As String
    Dim ShellStr As String
    Dim sourcePath As String
    Dim targetPath As String
    Dim sevenZipPath As String
    
    ' 定义各路径，便于后续维护
    sourcePath = "C:\Documents and Settings\ello\Desktop\"
    targetPath = "C:\Documents and Settings\ello\Desktop\"
    sevenZipPath = "C:\Program Files\7-Zip\7z.exe"
    
    ' 获取目录下所有Zip文件
    FileName = Dir(sourcePath & "*.zip")
    
    Do While Len(FileName) > 0
        ' 构建完整命令：用引号包裹含空格的路径，添加解压参数x
        ShellStr = """" & sevenZipPath & """ x """ & sourcePath & FileName & """ -o""" & targetPath & """"
        ' 执行命令，vbNormalFocus方便调试时查看执行状态，调试完成可改回vbHide
        Call Shell(ShellStr, vbNormalFocus)
        ' 获取下一个Zip文件
        FileName = Dir
    Loop
End Sub

补充说明 #

• 若不需要保留原Zip文件的目录结构，可将命令中的x替换为e。
• 如果7-Zip安装在其他路径，修改sevenZipPath变量的值即可。
• 调试阶段用vbNormalFocus启动7-Zip窗口，能直观查看错误信息，确认无问题后再切换为vbHide。

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