需要帮助在 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
我是一家工程公司的实习生,我的任务是从一个文件目录中编制一份缺失的 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