VBA Userform多文件拖拽获路径遇‘Table Expected’报错求助

首先，你遇到的"Table Expected"错误核心原因有两个：

• 原来的FilePath是单个字符串变量，无法存储多个文件路径，导致类型不匹配
• 直接通过索引访问Data.Files集合时，没有正确处理多文件的遍历逻辑

要实现多文件拖拽，你需要把存储路径的变量改成字符串数组，并正确遍历Data.Files集合。下面是修改后的完整代码：

1. 模块级变量调整 #

把原来的单个FilePath改为动态字符串数组，保留其他必要变量：

Dim Wb As String
Dim WbIni, WbCib As Workbook
Dim FilePaths() As String ' 改用数组存储多个文件路径

2. 拖拽事件代码修改 #

在TreeView1_OLEDragDrop事件中，遍历所有拖拽的文件，将路径存入数组：

Private Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim i As Integer
    Dim fileCount As Integer
    
    ' 获取拖拽的文件总数
    fileCount = Data.Files.Count
    
    ' 重新定义数组大小，匹配文件数量
    ReDim FilePaths(1 To fileCount)
    
    ' 遍历所有文件，将路径存入数组
    For i = 1 To fileCount
        FilePaths(i) = Data.Files(i)
        ' 可选：弹窗验证每个路径是否正确获取
        MsgBox "已获取文件：" & FilePaths(i)
    Next i
    
    Workbooks(Wb).Activate
End Sub

3. 导入按钮代码修改 #

修改CommandButton2_Click事件，循环处理数组中的每个文件路径：

Private Sub CommandButton2_Click()
    Dim i As Integer
    Dim lastRow As Long
    Dim targetRow As Long
    
    ' 检查是否有文件被拖拽
    If Not IsArray(FilePaths) Or UBound(FilePaths) < 1 Then
        MsgBox "Aucun fichier n'a été importé", vbCritical, "Anomalie"
        Unload UserForm1
        Exit Sub
    End If
    
    ' 获取目标工作表的初始数据行（避免覆盖已有内容）
    targetRow = WbIni.Worksheets("Target").Range("A1").End(xlDown).Row + 1
    If targetRow < 2 Then targetRow = 1 ' 如果A1为空，从第一行开始
    
    ' 循环处理每个文件
    For i = 1 To UBound(FilePaths)
        Set WbCib = Workbooks.Open(Filename:=FilePaths(i))
        MsgBox "正在处理文件：" & WbCib.Name
        
        ' 获取当前文件的有效数据行数
        lastRow = WbCib.ActiveSheet.Range("A1").End(xlDown).Row
        
        ' 复制数据到目标工作表，追加到已有数据下方
        WbCib.ActiveSheet.Range("A1:A" & lastRow).Copy _
            Destination:=WbIni.Worksheets("Target").Range("A" & targetRow)
        
        ' 更新目标工作表的下一行起始位置
        targetRow = targetRow + lastRow
        
        WbCib.Close SaveChanges:=False ' 关闭源文件，不保存修改
    Next i
    
    WbIni.Sheets("Target").Activate
    Unload UserForm1
End Sub

4. 保留原TreeView初始化代码 #

这部分无需修改，确保TreeView允许手动拖拽：

Private Sub UserForm_Initialize()
    Wb = ThisWorkbook.Name
    Set WbIni = ActiveWorkbook
    TreeView1.OLEDropMode = ccOLEDropManual
End Sub

关键说明 #

• 用ReDim动态调整数组大小，匹配拖拽的文件数量，避免数组越界
• 遍历Data.Files集合时，通过For i = 1 To Data.Files.Count确保每个文件路径都被正确获取
• 导入时追加数据到目标工作表，避免覆盖已有内容（你可以根据需求调整这部分逻辑）
• 关闭文件时加上SaveChanges:=False，防止意外修改源文件

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