使用Filesystemobject从文本文件中读取行的范围

Question

我正在学习使用Excel宏的VBA脚本。我很难找到脚本的最佳示例来从文本文件中读取特定行并填充excel单元格。例如，文本文件有100行。我想阅读第67到76行并填写Excel单元格。我不能使用.readall或.readline ??

请帮帮我:)

现在，该脚本是否能够读取每个文本文件的第67到76行。我有大约100个具有相同格式的文本文件..它可以在Excel上每个单元格打印每行文件行吗？

Answer 1

也许是这样的：

Sub ImportFile()
    Dim J As Long, K As Long
    Close #1
    Open "C:\TestFolder\TestFile.txt" For Input As #1
    J = 1
    K = 0
    Do While Not EOF(1)
        K = K + 1
        Line Input #1, TextLine
        If K > 66 And K < 77 Then
            Cells(J, 1) = TextLine
            J = J + 1
        End If
    Loop
    Close #1
End Sub