使用VBA将多个CSV文件导入到Excel中的单个工作表中(当前只能执行1项操作)

Sub ImportCSVFiles()
    Dim MyFolder As String
    Dim MyFile As String
    Dim CurrentWorkbook As Workbook
    Dim TargetWorkbook As Workbook
    Dim TargetWorksheet As Worksheet
    Dim LastRow As Long
    
    ' 设置目标工作簿和工作表
    Set CurrentWorkbook = ThisWorkbook
    Set TargetWorkbook = CurrentWorkbook
    Set TargetWorksheet = TargetWorkbook.Worksheets("Sheet1") ' 修改为目标工作表的名称
    
    ' 选择包含CSV文件的文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择包含CSV文件的文件夹"
        .Show
        If .SelectedItems.Count <> 0 Then
            MyFolder = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With
    
    ' 循环处理文件夹中的CSV文件
    MyFile = Dir(MyFolder & "*.csv")
    Do While MyFile <> ""
        ' 打开CSV文件
        Workbooks.Open Filename:=MyFolder & MyFile
        ' 将CSV文件内容复制到目标工作表中
        LastRow = TargetWorksheet.Cells(Rows.Count, 1).End(xlUp).Row
        Range("A1").CurrentRegion.Copy Destination:=TargetWorksheet.Cells(LastRow + 1, 1)
        ' 关闭CSV文件
        Workbooks(MyFile).Close SaveChanges:=False
        ' 继续处理下一个CSV文件
        MyFile = Dir
    Loop
    
    ' 清理对象
    Set TargetWorksheet = Nothing
    Set TargetWorkbook = Nothing
    Set CurrentWorkbook = Nothing
    
    MsgBox "CSV文件导入完成！"
End Sub