Блог

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

Приведенный ниже код скопирует имена всех файлов из **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