请帮我用VBA代码读取并打开文件夹下所有子文件夹内的.csv文件

以下是用VBA代码读取并打开文件夹下所有子文件夹内的.csv文件的示例代码：

Sub Read_CSV_Files()
    Dim FolderPath As String
    Dim FileStr As String
    Dim MyFile As Variant
    
    '选择要读取的文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        FolderPath = .SelectedItems(1)
    End With
    
    '遍历文件夹及其子文件夹下的所有.csv文件
    FileStr = Dir(FolderPath & "\*.csv", vbNormal)
    Do While Len(FileStr) > 0
        '打开CSV文件进行读取操作
        Workbooks.Open Filename:=FolderPath & "\" & FileStr
        '在这里可以添加读取CSV文件的代码
        '...
        '关闭CSV文件
        ActiveWorkbook.Close SaveChanges:=False
        '继续遍历下一个CSV文件
        FileStr = Dir
    Loop
    
    MsgBox "读取完成！"
End Sub

这段代码会弹出一个文件夹选择框，让用户选择要读取的文件夹。然后，它会遍历文件夹及其子文件夹下的所有.csv文件，并依次打开每个CSV文件进行读取操作。你可以在打开的CSV文件中添加读取CSV文件的代码。完成后，CSV文件会被关闭，代码会继续遍历下一个CSV文件，直到所有CSV文件都被读取完成。