使用Split创建数组触发Type Mismatch错误的VBA问题排查

先直接点明问题根源：你代码里的varr() = Split(objFile.Name, " ")是语法错误——Split函数返回的是一个一维Variant数组，而你声明的varr()是动态数组，直接带括号赋值会导致类型不匹配。

具体修正&优化步骤： #

1. 修复varr的赋值语法

把触发错误的代码行：

varr() = Split(objFile.Name, " ")

改成：

varr = Split(objFile.Name, " ")

去掉varr后面的括号，直接接收Split返回的数组即可，这是解决当前类型不匹配的核心修复点。

2. 提前规避下标越界问题（额外优化）

如果文件夹里存在文件名不含空格的文件，Split返回的数组只有1个元素，后续访问varr(1)会触发新的下标越界错误。建议在获取partnum和toolsize前先做数组长度检查：

varr = Split(objFile.Name, " ")
' 确保数组至少有2个元素，才继续匹配逻辑
If UBound(varr) < 1 Then
    Debug.Print "跳过不符合格式的文件: " & objFile.Name
    GoTo NextFile ' 跳过当前文件，继续下一个
End If
partnum = varr(0)
toolsize = varr(1)

3. 重构逻辑提升运行效率

你当前的代码是每遍历一行工具清单，就完整遍历一次文件夹所有文件，这会造成大量重复遍历，效率极低。建议先定位到目标工具的信息，再仅遍历一次文件夹：

With ThisWorkbook.Sheets("Tool Log")
    intpath = "H:\PROCESS\PROCESS SAMPLES\SI-Baselines\JSP"
    Set objFSO = CreateObject("Scripting.Filesystemobject")
    Set objFolder = objFSO.getfolder(intpath)
    
    ' 第一步：先遍历工具清单，找到匹配的pn和ps
    Dim isToolFound As Boolean
    isToolFound = False
    For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row Step 1
        If .Cells(i, 1).Text = toolnumber Then
            pn = .Cells(i, 3).Value
            ps = .Cells(i, 4).Value
            isToolFound = True
            Exit For ' 找到目标工具后直接退出循环，避免无效遍历
        End If
    Next i
    
    ' 未找到目标工具时提示并退出
    If Not isToolFound Then
        MsgBox "工具编号 " & toolnumber & " 在Tool Log中不存在", vbOKOnly + vbExclamation, "工具未找到"
        Exit Sub
    End If
    
    ' 第二步：仅遍历一次文件夹，匹配目标文件
    For Each objFile In objFolder.Files
        Debug.Print objFile.Name
        varr = Split(objFile.Name, " ")
        If UBound(varr) < 1 Then
            Debug.Print "跳过无效文件: " & objFile.Name
            GoTo NextFile
        End If
        partnum = varr(0)
        toolsize = varr(1)
        
        ' 执行匹配逻辑
        Select Case toolsize
            Case ps
                If partnum = pn Then
                    Workbooks.Open Filename:=objFile.Path, UpdateLinks:=False, ReadOnly:=True
                    Exit Sub ' 找到文件后直接退出，无需继续遍历
                End If
            Case Right(varr(1), Len(varr(1)) - 1)
                If partnum = pn Then
                    Workbooks.Open Filename:=objFile.Path, UpdateLinks:=False, ReadOnly:=True
                    Exit Sub
                End If
        End Select
NextFile:
    Next objFile
    
    ' 遍历完未找到匹配文件时提示
    MsgBox "未找到工具 " & toolnumber & " 对应的基准文件", vbOKOnly + vbExclamation, "文件未找到"
End With

额外小细节优化 #

• 原代码里的Rows.Count建议加上工作表限定符，改成.Rows.Count，避免引用到错误的工作表
• 你注释掉的工具编号格式验证逻辑，可以按需重新启用，避免无效的工具编号输入

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