Openステートメント、Line Inputステートメント

Open ファイル名 For Input As #ファイル番号

Line Input #ファイル番号, 変数名

テキストファイルからデータを読み込むには、Openステートメントでテキストファイルを開き、Line Inputステートメントを使います。Line Inputステートメントは、読み込んだデータを、指定した変数に格納します。

　Line Inputを実行すると、読み込みポイントが1行ずつ下がり、ファイルの終端（End Of File）で、EOF関数がTrueを返します。そこで、EOF関数がTrueになるまで読み込みを繰り返せば、すべての行を読み込めます。下のサンプルでは、 Do UntilEOF（1）として、終端に到達するまでループを繰り返します。EOF関数の引数には、開いたファイルの番号を指定します。　ここでは、変数rで行番号を増やして順番にデータを入力。終了後、Closeステートメントでファイルを閉じます。

---

Sample1.txtから1行ずつデータを読み込み、セルに入力する

Sub Sample()

Dim buf As String, r As Long

Open “C:\JAM\Sample1.txt” For Input As #1

Do Until EOF(1)

Line Input #1, buf

r = r + 1

Cells(r, 1) = buf

Loop

Close #1

End Sub

 

実行例

 

IT開発関連書とビジネス書が豊富な翔泳社の通販『SEshop』
dポイントがどんどんたまる【d払いポイントGETモール】
業界最安値宣言！高性能・低価格のパソコン通販は【UsedFun】
リラクゼーションをお得に体験!ご予約はEPARKで!
【じゃらん】国内25,000軒の宿をネットで予約OK！2％ポイント還元！
【早い者勝ち！】.com／.net／.jp　ドメイン取るならお名前.com