使用VBA Shell与7z命令行解压.gz文件失败求助

核心问题排查与修复 #

• 替换7-Zip执行程序：你用的7zFM.exe是7-Zip的图形界面版本，命令行解压必须用命令行版本7z.exe（默认路径为C:\Program Files\7-Zip\7z.exe），图形界面程序在后台Shell调用时无法完成命令行解压逻辑。
• 路径添加引号：网络路径和带特殊字符的路径必须用双引号包裹，否则命令行解析会出错。修改后的命令字符串格式如下：

  commandStr = """C:\Program Files\7-Zip\7z.exe"" e """ & archive.Path & """ -o""" & archive.ParentFolder.Path & """"
  

  其中-o参数指定解压输出目录为压缩包所在文件夹，参数与路径之间不要加空格。
• 同步执行并捕获错误：原生Shell是异步执行，建议改用同步等待的方式，同时通过返回值判断解压是否成功。替换Shell的同步执行函数：

  Function ShellWait(ByVal cmd As String) As Integer
      Dim wsh As Object
      Set wsh = CreateObject("WScript.Shell")
      ShellWait = wsh.Run(cmd, 0, True) ' 0=后台执行，True=等待执行完成
  End Function
  

  调用示例：

  Dim exitCode As Integer
  exitCode = ShellWait(commandStr)
  If exitCode <> 0 Then
      MsgBox "解压失败，错误码：" & exitCode
  End If
  

完整修复后的unpackeFile函数示例 #

Function unpackeFile(ByRef archive As Object) As Object
    Dim commandStr As String
    Dim exitCode As Integer
    
    ' 构建正确的7-Zip命令行
    commandStr = """C:\Program Files\7-Zip\7z.exe"" e """ & archive.Path & """ -o""" & archive.ParentFolder.Path & """"
    exitCode = ShellWait(commandStr)
    
    If exitCode = 0 Then
        ' 返回解压后的文件（因压缩包仅含一个文件，直接去掉.gz后缀匹配）
        Set unpackeFile = archive.ParentFolder.Files(Left(archive.Name, Len(archive.Name) - 3))
    Else
        Set unpackeFile = Nothing
    End If
End Function

Function ShellWait(ByVal cmd As String) As Integer
    Dim wsh As Object
    Set wsh = CreateObject("WScript.Shell")
    ShellWait = wsh.Run(cmd, 0, True)
End Function

额外注意事项 #

• 确认7-Zip安装路径正确：64位系统默认在C:\Program Files\7-Zip\，32位系统在C:\Program Files (x86)\7-Zip\。
• 验证网络路径权限：确保当前用户对\\av-fs01.av.local\profiles$\meltek\Desktop\有读写权限，权限不足会导致解压失败。
• 检查压缩包有效性：手动用7-Zip打开VZN_2022.csv.gz，确认是可正常解压的有效gzip文件。

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