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

Need Help Cross Referencing a File Tree with a Bill of Materials in Excel

我是一家工程公司的实习生,我的任务是从一个文件目录中编制一份缺失的 CAD 文件列表。我一直在使用物料清单手动检查每个文件,但对于具有 8000 多个文件的较大产品,我想知道是否有办法自动进行此检查。我现在有 Excel 中的 BOM,我注意到 CAD 模型和 CAD 图纸是否都手工为每个零件号单独提供。检查300个零件的过程已经足够长了,我无法想象要做到8000+!

我的问题是: 有没有什么方法可以在 excel 中自动搜索文件名,而不是在 excel 中记录的文件树中,如果文件是否存在?

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

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

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