100行目までの読込 (ID:111213)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは Sub Test() fn = FreeFile strN = ThisWorkbook.Path & "\test.txt" Open strN For Input Access Read As #fn Do Until EOF(fn) Line Input #fn, strOneLine Loop Close #fn End Sub では、最終行までの読込ですが、たとえば１００行目までの 読込の場合はどうすればよいのでしょう？ 基本的なことですみません。 宜しくお願い致します。