VBA打开文件夹里所有子文件夹里的表格

以下是一个VBA代码示例，可以用于打开文件夹中所有子文件夹中的表格文件：

Sub OpenAllExcelFilesInSubfolders()

    Dim FolderPath As String
    Dim SubFolderPath As String
    Dim FileName As String
    Dim wb As Workbook
    
    '设置主文件夹路径
    FolderPath = "C:\MainFolder\"
    
    '循环遍历主文件夹及其所有子文件夹
    SubFolderPath = Dir(FolderPath, vbDirectory)
    Do While SubFolderPath <> ""
        
        '排除 "." 和 ".." 文件夹
        If SubFolderPath <> "." And SubFolderPath <> ".." Then
            
            '检查子文件夹是否存在Excel文件
            FileName = Dir(FolderPath & SubFolderPath & "\*.xlsx")
            Do While FileName <> ""
                
                '打开Excel文件
                Set wb = Workbooks.Open(FolderPath & SubFolderPath & "\" & FileName)
                
                '进行一些操作
                
                '关闭Excel文件
                wb.Close False
                
                '获取下一个Excel文件
                FileName = Dir()
            Loop
            
            '递归遍历子文件夹
            Call OpenAllExcelFilesInSubfolders(FolderPath & SubFolderPath & "\")
        End If
        
        '获取下一个子文件夹
        SubFolderPath = Dir()
    Loop

End Sub

这个代码使用了递归来遍历主文件夹及其所有子文件夹。对于每个子文件夹，它会搜索文件夹中的所有Excel文件，打开它们并做一些操作，然后关闭它们。然后，它将递归到该子文件夹中的所有子文件夹中，并重复该过程。