excel - MS Excel - 使用特定文件夹中的文件名自动填充列

Question

我是一名非程序员，我需要一种自动方法来使用特定文件夹中的文件名填充 Excel 2016 中的列。我以前也从未构建过宏。有没有相对无痛的方法来做到这一点？非常感谢。

Answer 1

下面的代码将从 A 列中的 **C:\testFolder** 复制所有文件的名称。

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