Excel vba如何仅将csv中的一列提取到电子表格中

Sub ExtractColumnFromCSV()
    Dim filePath As String
    Dim csvData As String
    Dim dataArray() As String
    Dim i As Long
    
    ' 选择CSV文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "选择CSV文件"
        .Filters.Clear
        .Filters.Add "CSV文件", "*.csv"
        If .Show = -1 Then
            filePath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ' 读取CSV文件数据
    Open filePath For Input As #1
    csvData = Input$(LOF(1), 1)
    Close #1
    
    ' 将CSV数据分割为数组
    dataArray = Split(csvData, vbCrLf)
    
    ' 将数组中的数据逐行写入电子表格的第一列
    For i = LBound(dataArray) To UBound(dataArray)
        Cells(i + 1, 1).Value = dataArray(i)
    Next i
End Sub