需要帮助在Excel中使用物料清单交叉引用文件树

Question

我是一家工程公司的实习生，我的任务是从文件目录中编译缺少的CAD文件列表。我一直在使用物料清单来手动检查每个文件，但是如果有更大的产品有8000多个文件，我想知道是否有办法自动检查。我现在在Excel中有BOM，而且我注意到CAD模型和CAD图纸是否都是针对每个零件号单独存在的。检查300个零件时，这个过程足够长，我想不到8000 +！

我的问题是： 有没有办法自动搜索excel中的文件名与文件树中的文件名，如果文件在那里，它会在excel中注明？

Answer 1

考虑到您要处理的项目数量，您可能希望将要查找的文件名加载到数组中，并将目录中找到的文件名称加载到单独的数组中。然后在那里做比较。这是一个基本程序，它检查单个目录中的单个文件，为您提供指导。

编辑刚刚意识到这是一个错误的方向，因为您可能需要将文件名等加载到数组中。我可以在今晚晚些时候尝试解决这个问题。

Sub scanDirectory()

    Dim path As String
    Dim currentPath As String

    Dim nameOfFile As String

    nameOfFile = Sheets("sheet1").Cells(1, 1)

    'put the path to your folder here along with an \
    path = "Z:\New folder\"

    currentPath = Dir(path)

    Do Until currentPath = vbNullString
        Debug.Print currentPath
        If currentPath = nameOfFile Then
            Sheets("sheet1").Cells(1, 2) = "FILEFOUND"
            Exit Do 
        End If
        currentPath = Dir()
    Loop

End Sub