小编Duk*_*uke的帖子

我正在与必须识别excel文件中某些变量的人合作。当前，与我一起工作的人有很多文件夹和子文件夹，其中都包含Excel文档。他使用的VBA代码在子文件夹的文件夹中查找，然后返回路径，然后创建到该子文件夹的超链接（这不是下面的VBA代码的一部分），并查看其中的所有excel文件，无论主文件夹中子文件夹的级别如何。

这是代码：

    Sub GetFolders()
Dim path As String
Dim folder As String
Dim row As Integer


path = "your directory here"
folder = Dir(path, vbDirectory)
row = 1

Do While folder <> ""
If (GetAttr(path & folder) And vbDirectory) = vbDirectory Then
    Cells(row, 1) = path & folder
    row = row + 1
End If
folder = Dir()
Loop

End Sub

很好，但是我知道必须有更好的方法。我如何处理此代码以返回在文件夹A内的子文件夹或文件夹B内的B）中找到的所有excel文件的COLUMN HEADERS。我希望将它们返回到excel电子表格，这样就不需要打开100多个excel文档，而只需要打开一个，然后我们就可以确定需要进一步调查的所有excel电子表格，而忽略其余的电子表格。

免责声明:我是使用Rumba访问IBM Mainframe的新手.

我目前已经建立了一个供个人使用的库,我有一些代码要存储在这个库的一个成员中,如何将我桌面上的.txt文件复制/粘贴到这个程序中？截至目前,我可以从伦巴以外的文档一次成功复制/粘贴一行.