MS Excel - автоматическое заполнение столбца именами файлов из определенной папки

Я не программист, и мне нужен автоматический способ заполнения столбца в Excel 2016 именами файлов из определенной папки. Я никогда раньше не создавал макросы. Есть ли относительно безболезненный способ сделать это? Большое спасибо.


excel macros ms-office excel-2016 office-2016
person Ed K    schedule 22.10.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Код ниже скопирует имена всех файлов из **C:\testFolder** в столбец A.

Sub test()
    Dim file As Variant
    file = Dir("C:\testFolder\")
    Range("A2").Activate
    While (file <> "")
        ActiveCell.Value = file
        ActiveCell.Offset(1, 0).Activate
        file = Dir
    Wend
End Sub
person Aditya Pansare    schedule 22.10.2016
comment
Великолепно! Работает отлично. Благодарю вас! - person Ed K; 23.10.2016