如何使用excel VBA遍历众多子文件夹并查找单元格值是否与文件夹名称匹配?

时间:2015-06-02 12:24:27

标签: excel vba excel-vba directory subdirectory

我在excel中有数据行,其中需要一些数据来路径子文件夹的位置,并且该行中的某个特定单元格是在文件位置的子文件夹中搜索的内容。

搜索单元格/列 - Range("E65000").End(xlUp).Value

子文件夹位置 - MAIN_PATH & "1. Invoices+BUFs - " & Range("D65000").End(xlUp).Value & "\" & Range("C65000").End(xlUp).Value & " - " & Range("AK65000").End(xlUp).Value & "\"

所以第一行是循环的第一个实例,第二行是下一行,然后是第三行,依此类推。

如果来自E列中单元格的数据与子文件夹中的文件夹的数据匹配,那么它将被计为重复数据。

知道如何实现这个吗?

1 个答案:

答案 0 :(得分:0)

如果找不到提供的路径,

Dir()将返回一个空字符串。

Dim subFolderLocation as String
Dim isDup as Boolean

'Loop this
If Dir(subFolderLodation & "\") = "" Then
    isDup = True
Else
    isDup = False
End If
'end loop