从文件夹和子文件夹获取文件列表Excel VBA

从文件夹和子文件夹获取文件列表是一种常见的需求，可以通过Excel VBA来实现。下面是一个完善且全面的答案：

在Excel VBA中，可以使用FileSystemObject对象来处理文件和文件夹。首先，需要引入Microsoft Scripting Runtime库，然后创建一个FileSystemObject对象。

' 引入Microsoft Scripting Runtime库
' 在VBA编辑器中，点击“工具”->“引用”，勾选“Microsoft Scripting Runtime”
' 点击“确定”即可

Sub GetFileList()
    Dim fso As New FileSystemObject
    Dim folderPath As String
    Dim folder As Folder
    Dim subFolder As Folder
    Dim file As File
    Dim rowIndex As Integer
    
    ' 设置文件夹路径
    folderPath = "C:\Path\To\Your\Folder"
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(folderPath)
    
    ' 初始化行索引
    rowIndex = 1
    
    ' 遍历文件夹中的文件
    For Each file In folder.Files
        ' 将文件名写入单元格
        Cells(rowIndex, 1).Value = file.Name
        rowIndex = rowIndex + 1
    Next file
    
    ' 遍历子文件夹中的文件
    For Each subFolder In folder.SubFolders
        For Each file In subFolder.Files
            ' 将文件名写入单元格
            Cells(rowIndex, 1).Value = file.Name
            rowIndex = rowIndex + 1
        Next file
    Next subFolder
End Sub

上述代码中，首先创建了一个FileSystemObject对象，然后设置了文件夹路径。接下来，通过GetFolder方法获取文件夹对象。然后，使用For Each循环遍历文件夹中的文件，并将文件名写入Excel单元格。最后，使用嵌套的For Each循环遍历子文件夹中的文件，并将文件名写入Excel单元格。

这种方法可以方便地获取指定文件夹及其子文件夹中的所有文件列表。可以根据实际需求进行扩展，例如添加文件大小、修改日期等信息。

腾讯云相关产品和产品介绍链接地址：

• 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
• 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
• 腾讯云云函数（SCF）：https://cloud.tencent.com/product/scf
• 腾讯云数据库（TencentDB）：https://cloud.tencent.com/product/tencentdb
• 腾讯云CDN加速（CDN）：https://cloud.tencent.com/product/cdn
• 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
• 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iot
• 腾讯云移动开发（Mobile）：https://cloud.tencent.com/product/mobile
• 腾讯云区块链（Blockchain）：https://cloud.tencent.com/product/baas
• 腾讯云元宇宙（Metaverse）：https://cloud.tencent.com/product/metaverse

以上是腾讯云提供的一些相关产品，可以根据具体需求选择适合的产品进行开发和部署。