希望excel中的VBA读取非常大的CSV并创建CSV的一小部分的输出文件

Sub ReadCSV()
    Dim filePath As String
    Dim fileName As String
    Dim data As String
    Dim lines() As String
    Dim lineCount As Integer
    Dim i As Integer

    filePath = "C:\path\to\your\csv\file.csv"
    fileName = Dir(filePath)

    Open filePath For Input As #1
    data = Input(LOF(1), #1)
    Close #1

    lines = Split(data, vbNewLine)
    lineCount = UBound(lines)

    For i = 0 To lineCount
        Debug.Print lines(i)
    Next i
End Sub

Sub WriteCSV()
    Dim filePath As String
    Dim fileName As String
    Dim data As String
    Dim lines() As String
    Dim lineCount As Integer
    Dim i As Integer

    filePath = "C:\path\to\your\output\file.csv"

    For i = 0 To lineCount
        data = data & lines(i) & vbNewLine
    Next i

    Open filePath For Output As #1
    Print #1, data
    Close #1
End Sub