在Excel VBA中快速从CSV文件中提取行

Sub ExtractRowsFromCSV()
    Dim filePath As String
    Dim csvData As String
    Dim dataArray() As String
    Dim rowNum As Long
    Dim colNum As Long
    
    ' 设置CSV文件路径
    filePath = "C:\path\to\your\csv\file.csv"
    
    ' 读取CSV文件内容
    Open filePath For Input As #1
    csvData = Input$(LOF(1), 1)
    Close #1
    
    ' 将CSV数据按行分割为数组
    dataArray = Split(csvData, vbNewLine)
    
    ' 遍历数组并将每一行数据写入工作表
    rowNum = 1
    For Each dataRow In dataArray
        colNum = 1
        For Each dataItem In Split(dataRow, ",")
            Cells(rowNum, colNum).Value = dataItem
            colNum = colNum + 1
        Next dataItem
        rowNum = rowNum + 1
    Next dataRow
End Sub