VBA Excel从特定行号开始读取文本文件

Sub ReadTextFileFromSpecificLine()
    Dim filePath As String
    Dim lineNumber As Long
    Dim fileContent As String
    Dim fileLines() As String
    Dim i As Long
    
    ' 设置文件路径和起始行号
    filePath = "C:\path\to\your\file.txt"
    lineNumber = 5
    
    ' 创建FileSystemObject对象
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 打开文本文件
    Dim fileStream As Object
    Set fileStream = fso.OpenTextFile(filePath, 1)
    
    ' 跳过指定行之前的行
    For i = 1 To lineNumber - 1
        fileStream.SkipLine
    Next i
    
    ' 读取指定行及其后面的所有行
    fileContent = fileStream.ReadAll
    fileLines = Split(fileContent, vbCrLf)
    
    ' 关闭文件
    fileStream.Close
    
    ' 输出读取的文本内容
    For i = 0 To UBound(fileLines)
        Debug.Print fileLines(i)
    Next i
End Sub