如何使用vba将一个大的文本文件拆分成具有相同行数的小文件？

Sub SplitTextFile()
    Dim filePath As String
    Dim fileNum As Integer
    Dim linesPerFile As Integer
    Dim totalLines As Long
    Dim startLine As Long
    Dim endLine As Long
    Dim newFilePath As String
    
    ' 设置文件路径和每文件的行数
    filePath = "C:\path\to\your\largefile.txt"
    linesPerFile = 1000 ' 每个小文件的行数
    fileNum = 1 ' 初始文件编号
    
    ' 打开大文件并读取总行数
    Open filePath For Input As #1
    totalLines = LOF(1) / Len(Chr$(13)) ' 假设每行以回车符结束
    Close #1
    
    ' 循环拆分文件
    startLine = 1
    Do While startLine <= totalLines
        endLine = startLine + linesPerFile - 1
        If endLine > totalLines Then endLine = totalLines
        
        ' 创建新文件并写入数据
        newFilePath = "C:\path\to\your\splitfile_" & fileNum & ".txt"
        Open newFilePath For Output As #2
        For i = startLine To endLine
            Line Input #1, lineFromFile
            Print #2, lineFromFile
        Next i
        Close #2
        
        ' 更新起始行号和文件编号
        startLine = endLine + 1
        fileNum = fileNum + 1
    Loop
End Sub