运行时错误“13”：输入单元格范围时类型不匹配

Question

我有一个 VBA 代码，它根据部分名称在目录中搜索文件夹。
部分名称在F列，代码返回文件夹名称和文件夹路径。

例如文件夹路径为“C:\Users\Dunelle\Desktop\10001-Rev1

路径的最后一部分 (Rev1) 发生变化，但 10001 保持不变。我需要使用通配符 10001* 执行搜索。

部分名称在 F 列中，当我在 F 列中输入值时，我想在同一行的 A 列中返回带有文件夹名称的搜索，并在同一行的 B 列中返回文件夹路径。

我编写的代码在引用单个单元格时有效。
但是，当我将范围更改为 ("F:F") 时，出现错误 13 类型不匹配错误。

这是我的代码：

Sub SearchName()
    Dim ENumber As Range
    Dim ECell As Range
    Dim I As Integer
    Dim rownumber As Integer
    Dim varDirectory As Variant
    Dim strDirectory As String

    Set ENumber = Range ("F:F")

    rownumber = ENumber.Row

    strdirectory = "C:\Users\Dunelle\Desktop\" & ENumber & "*"
    varDirectory = Dir (strDirectory, vbDirectory)

    For Each ECell In ENumber.Cells
        If ENumber <> "" Then
            Cells(rownumber, 1) = varDirectory
            Cells(rownumber, 2) = strDirectory + varDirectory
            Exit Function
        End If
    Next ECell
End Sub

请帮忙。
谢谢

Answer 1

尝试将范围更改为已定义的范围，如下所示：

Set ENumber = Range("F1:F10")

或者如果是可变长度范围：

Set ENumber = Range("F1:F" & Range("F1").End(xlDown).Row)

Answer 2

您不能将整个范围命名为一个字符串strDirectory。您一次只能从该范围中选择一个单元格。您只需将 3 行移入 For 循环即可。

试试这个：

Sub SearchName()
    Dim ENumber As Range
    Dim ECell As Range
    Dim I As Integer
    Dim rownumber As Integer
    Dim varDirectory As Variant
    Dim strDirectory As String

    Set ENumber = Range ("F:F")

'Move the next 3 lines into the loop and change `Enumber` to `Ecell`
    'rownumber = ENumber.Row
    'strdirectory = "C:\Users\Dunelle\Desktop\" & ENumber & "*"
    'varDirectory = Dir (strDirectory, vbDirectory)

    For Each ECell In ENumber.Cells
        strDirectory = "C:\Users\Dunelle\Desktop\" & ECell & "*"
        varDirectory = Dir(strDirectory, vbDirectory)
        rownumber = ECell.Row
        If ENumber <> "" Then
            Cells(rownumber, 1) = varDirectory
            Cells(rownumber, 2) = strDirectory + varDirectory
            Exit Function
        End If
    Next ECell
End Sub

旁注：For 循环中有 Exit Function。应该是Exit Sub。