使用Shellapp.Namespace(Unzipfile)解压报错91，寻求技术解决方法

我来帮你排查这个错误91的问题，这通常是对象变量或With块变量未设置的典型表现，咱们一步步来分析可能的原因和解决办法：

可能的原因及修复方案 #

1. 未正确实例化Shell.Application对象 #

错误91最常见的原因就是你没有先创建ShellApp对象实例，直接调用ShellApp.Namespace会导致对象引用为空。

你需要先添加这行代码：

Set ShellApp = CreateObject("Shell.Application")

确保这行代码在调用ShellApp.Namespace(Unzipfile)之前执行，这样ShellApp才是一个有效的对象。

2. 解压路径（Unzipfile）无效 #

如果Unzipfile对应的ZIP文件路径不存在、文件名有多余空格，或者是相对路径导致Shell无法定位到文件，也会触发错误91。

• 建议先清理文件名的多余空格：Filename = Trim(Filename)
• 转换成绝对路径，比如如果ZIP文件和当前工作簿在同一目录下：

  Unzipfile = ThisWorkbook.Path & "\" & Trim(Filename)
  

• 可以提前检查文件是否存在：

  If Dir(Unzipfile) = "" Then
      MsgBox "找不到指定的ZIP文件：" & Unzipfile, vbExclamation
      Exit Sub '或跳过当前文件
  End If
  

3. 目标解压文件夹不存在 #

ShellApp.Namespace要求目标解压文件夹必须存在，否则也可能出现对象未设置的错误。

你可以先创建目标文件夹：

Dim DestFolder As String
DestFolder = "C:\你的解压目录" '替换成实际的目标路径
If Dir(DestFolder, vbDirectory) = "" Then
    MkDir DestFolder '如果文件夹不存在就创建
End If

然后再执行解压操作：

ShellApp.Namespace(DestFolder).CopyHere ShellApp.Namespace(Unzipfile).Items

4. 遍历文件名时过滤非ZIP文件 #

遍历工作簿中的文件名列表时，要确保只处理ZIP格式的文件，避免因处理非ZIP文件导致Shell无法识别：

If LCase(Right(Trim(Filename), 4)) = ".zip" Then
    '执行解压逻辑
Else
    MsgBox "跳过非ZIP文件：" & Filename, vbInformation
End If

完整示例代码 #

这里给你一个包含解压和TXT导入的完整VBA代码参考：

Sub UnzipAndImportTXTToExcel()
    Dim ShellApp As Object
    Dim ws As Worksheet
    Dim Filename As String
    Dim Unzipfile As String
    Dim DestFolder As String
    Dim rowNum As Integer
    
    '初始化Shell对象
    Set ShellApp = CreateObject("Shell.Application")
    '设置临时解压文件夹（和当前工作簿同目录）
    DestFolder = ThisWorkbook.Path & "\TempUnzip"
    
    '创建临时文件夹（不存在则创建）
    If Dir(DestFolder, vbDirectory) = "" Then
        MkDir DestFolder
    End If
    
    '假设文件名存放在Sheet1的A列，从第2行开始
    Set ws = ThisWorkbook.Sheets("Sheet1")
    For rowNum = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        Filename = Trim(ws.Cells(rowNum, "A").Value)
        
        '检查是否为ZIP文件
        If LCase(Right(Filename, 4)) = ".zip" Then
            Unzipfile = ThisWorkbook.Path & "\" & Filename
            
            '检查ZIP文件是否存在
            If Dir(Unzipfile) <> "" Then
                '执行解压
                ShellApp.Namespace(DestFolder).CopyHere ShellApp.Namespace(Unzipfile).Items
                '等待解压完成（Shell解压是异步的，可根据文件大小调整等待时间）
                Application.Wait Now + TimeValue("00:00:02")
                
                '导入解压后的TXT文件到Excel
                ImportAllTxtInFolder DestFolder, ws, rowNum
            Else
                ws.Cells(rowNum, "C").Value = "错误：ZIP文件不存在"
            End If
        Else
            ws.Cells(rowNum, "C").Value = "跳过：非ZIP文件"
        End If
    Next rowNum
    
    '清理临时对象和文件夹（按需选择）
    Set ShellApp = Nothing
    Kill DestFolder & "\*.txt"
    RmDir DestFolder
    
    MsgBox "所有文件处理完成！", vbInformation
End Sub

Sub ImportAllTxtInFolder(FolderPath As String, TargetWS As Worksheet, SourceRow As Integer)
    Dim TxtFile As String
    Dim LastRow As Long
    
    TxtFile = Dir(FolderPath & "\*.txt")
    Do While TxtFile <> ""
        LastRow = TargetWS.Cells(TargetWS.Rows.Count, "B").End(xlUp).Row + 1
        
        '导入TXT文件（这里假设是逗号分隔的文本，可根据实际格式调整参数）
        With TargetWS.QueryTables.Add(Connection:="TEXT;" & FolderPath & "\" & TxtFile, Destination:=TargetWS.Cells(LastRow, "B"))
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .Refresh BackgroundQuery:=False
            .Delete '删除查询表，只保留数据
        End With
        
        TargetWS.Cells(SourceRow, "C").Value = "成功导入：" & TxtFile
        TxtFile = Dir
    Loop
End Sub

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