Нужна помощь Перекрестная ссылка на дерево файлов с перечнем материалов в Excel - PullRequest
Новая
       32

Нужна помощь Перекрестная ссылка на дерево файлов с перечнем материалов в Excel

0 голосов
/ 21 мая 2018

Я стажер в инженерной фирме, и мне было поручено составить список отсутствующих файлов САПР из файлового каталога.Я использовал ведомость материалов для проверки каждого файла вручную, но с более крупными продуктами, имеющими более 8000 файлов, мне было интересно, есть ли способ сделать эту проверку автоматически.Сейчас у меня есть спецификация в Excel, и я отмечаю, что и модель САПР, и чертежи САПР существуют отдельно для каждого номера детали вручную.При проверке 300 деталей процесс достаточно длительный, я не могу представить, что я делаю 8000 +!

. Мой вопрос таков: есть ли способ автоматического поиска имен файлов в Excel по сравнению с деревом файлов, в котором они отмечены обратно?в Excel если файл есть или нет?

1 Ответ

0 голосов
/ 22 мая 2018

Учитывая, сколько элементов вы имеете дело, вы, вероятно, захотите загрузить как имена файлов, которые вы ищете, в массив, так и имена файлов, найденных в вашем каталоге, в отдельный массив.тогда сделайте сравнения внутри.это базовая программа, которая проверяет один файл в одном каталоге, чтобы дать вам какое-то направление.

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

...