Excel vba将csv中的列动态选择到电子表格中

Sub ImportCSV()
    Dim filePath As String
    Dim ws As Worksheet
    Dim csvData As String
    Dim dataArray As Variant
    Dim i As Long, j As Long
    
    '选择CSV文件
    filePath = Application.GetOpenFilename("CSV Files (*.csv), *.csv")
    
    '检查是否选择了文件
    If filePath <> "False" Then
        '读取CSV文件内容
        Open filePath For Input As #1
        csvData = Input$(LOF(1), 1)
        Close #1
        
        '将CSV数据分割为数组
        dataArray = Split(csvData, vbCrLf)
        
        '创建新的工作表
        Set ws = ThisWorkbook.Sheets.Add
        
        '将CSV数据写入工作表
        For i = 0 To UBound(dataArray)
            Dim rowData As Variant
            rowData = Split(dataArray(i), ",")
            
            For j = 0 To UBound(rowData)
                ws.Cells(i + 1, j + 1).Value = rowData(j)
            Next j
        Next i
        
        '自动调整列宽
        ws.Columns.AutoFit
        
        '显示成功消息
        MsgBox "CSV文件已成功导入到工作表中。"
    Else
        '显示取消消息
        MsgBox "操作已取消。"
    End If
End Sub