vba宏来创建.txt文件路径列表

Question

我有一个宏来列出特定文件夹的子文件夹中的所有文件。我想要做的是在主文件夹中创建一个.txt文件，该文件包含所有文件路径的列表？基本上是一个宏来创建一个txt文件，列出我的Excel电子表格的A列。我知道没有vba这很容易做（你只是保存为文本文件）但我需要找到一种自动化的方法吗？！

Answer 1

如果您已经在 A 列中有数据，那么：

Sub MkFile()
    Dim N As Long, i As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    Close #1
    Open "C:\TestFolder\TestFile.txt" For Output As #1
    For i = 1 To N
      Print #1, Cells(i, "A").Value
    Next i
    Close #1
End Sub

更改文件夹或文件名以满足您的需求。