使用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