使用导入按钮访问VBA以导入多个csv文件

Private Sub 导入CSV_Click()
    Dim fileDialog As FileDialog
    Dim selectedFiles As Variant
    Dim currentWorkbook As Workbook
    Dim currentWorksheet As Worksheet
    Dim i As Integer
    
    ' 创建文件对话框对象
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 设置文件对话框属性
    fileDialog.AllowMultiSelect = True
    fileDialog.Title = "选择要导入的CSV文件"
    fileDialog.Filters.Clear
    fileDialog.Filters.Add "CSV文件", "*.csv"
    
    ' 显示文件对话框
    If fileDialog.Show = -1 Then
        ' 获取用户选择的文件路径
        selectedFiles = fileDialog.SelectedItems
        
        ' 获取当前工作簿和工作表
        Set currentWorkbook = ThisWorkbook
        Set currentWorksheet = currentWorkbook.ActiveSheet
        
        ' 循环导入每个CSV文件
        For i = LBound(selectedFiles) To UBound(selectedFiles)
            ' 打开CSV文件
            Workbooks.Open selectedFiles(i)
            
            ' 将CSV文件内容复制到当前工作表
            ActiveSheet.UsedRange.Copy currentWorksheet.Cells(currentWorksheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
            
            ' 关闭CSV文件
            ActiveWorkbook.Close SaveChanges:=False
        Next i
    End If
    
    ' 释放资源
    Set fileDialog = Nothing
    Set currentWorksheet = Nothing
    Set currentWorkbook = Nothing
End Sub