如何通过VBA文件位置表将多个CSV文件合并到一个工作表中？

Sub MergeCSVFiles()
    Dim FolderPath As String, FilePath As String, FileName As String
    Dim wbSource As Workbook, wsSource As Worksheet, wsDest As Worksheet
    Dim RowIndex As Long, LastRow As Long
    
    '设置目标工作表，修改Sheet1为你想要合并数据的工作表名称
    Set wsDest = ThisWorkbook.Worksheets("Sheet1")
    
    '选择CSV文件所在的文件夹路径
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show <> -1 Then Exit Sub
        FolderPath = .SelectedItems(1) & "\"
    End With
    
    '禁用屏幕刷新和事件处理，加快代码执行速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    '获取文件夹中的所有CSV文件
    FilePath = Dir(FolderPath & "*.csv")
    
    '循环处理每个CSV文件
    Do While FilePath <> ""
        '打开CSV文件
        Set wbSource = Workbooks.Open(FolderPath & FilePath)
        Set wsSource = wbSource.Sheets(1) '假设CSV文件中的数据在第一个工作表中
        
        '找到目标工作表中最后一行的行号
        LastRow = wsDest.Cells(wsDest.Rows.Count, 1).End(xlUp).Row
        
        '复制CSV文件中的数据到目标工作表
        wsSource.UsedRange.Copy wsDest.Cells(LastRow + 1, 1)
        
        '关闭CSV文件
        wbSource.Close SaveChanges:=False
        
        '查找下一个CSV文件
        FilePath = Dir()
    Loop
    
    '启用屏幕刷新和事件处理
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    MsgBox "CSV文件已成功合并到工作表中。"
End Sub