ファイル操作Ⅱ（Line Input #）

公開日：2013年5月以前　最終更新日：2022-03-24

第117回.ファイル操作Ⅱ（Line Input #）

VBAでファイル（CSV等）を扱う時は、
最初に、ファイルを開き、
次に、読込書込みを行い、
最後に、ファイルを閉じます。

ファイルを読み込む時には、Line Input # ステートメントを使います。

Line Input # ステートメント

シーケンシャル入力モード (Input) で開いたファイルから行全体を読み込み、
文字列型 (String) の変数に代入するファイル入出力ステートメントです。

Line Input #filenumber, varname

filenumber	必ず指定します。任意のファイル番号を指定します。 OpenステートメントやCloseステートメントで指定するファイル番号と一致させます。
varname	必ず指定します。バリアント型 (Variant) の変数または文字列型 (String) の変数の名前を指定します。

Line Input # ステートメントは、
ファイルからキャリッジリターン (Chr(13)) または改行コード (Chr(13)) + Chr(10)) の直前までのすべての文字を読み込みます。

キャリッジリターン (Chr(13)) は、VbCr
改行コード (Chr(13)) + Chr(10)) は、VbCrLf

キャリッジリターンと改行コードは、変数に読み込まれる文字列に追加されません。
キャリッジリターンと改行コードは、読み飛ばされますので変数に入りません。

EOF関数

開いたファイルの現在位置がファイルの末尾に達している場合、
ブール型 (Boolean) の値の真 (True) を含む整数型 (Integer) の値を返します。

EOF(filenumber)

引数 filenumber には、任意の有効なファイル番号を表す整数型 (Integer) の数値を指定します。この引数は必ず指定します。

EOF関数は、ファイルから読み込みを行っているとき、
読み込み位置がファイルの末尾に達していないかどうかを確かめるために使用します。

Line Input # ステートメントと EOF関数の使用例．


  
    
      Sub sample()

      　　Dim i As Long

      　　Dim FileNumber

      　　Dim InputData

      　　FileNumber = FreeFile

      　　Open "C:\TEST.txt" For Input As #FileNumber

      　　i = 1

      　　Do While Not EOF(FileNumber)

      　　　　Line Input #FileNumber, InputData

      　　　　Cells(i, 1) = InputData

      　　　　i = i + 1

      　　Loop

      　　Close #FileNumber

      End Sub

上記では、テキストファイル"C:\TEST.txt"から、１行ずつデータを読み込み、
ワークシートのA列に出力しています。

以下も参考にしてください。

VBAでのCSVの扱い方まとめ

・本サイトにあるCSV関連記事一覧・CSVの読込方法・CSVの読み込み方法（改）・CSVの読み込み方法（改の改）・CSVの読み込み方法（ジャグ配列）・CSVの読み込み方法（ジャグ配列）（改）・CSVの出力（書き出し）方法・UTF-8でCSVの読み書き（ADODB.Stream）・ADOでCSVの読み込み（SQL）

CSVの読込方法

・もっとも簡単かつ良くあるCSV読み込みVBAコード・「,」「"」に対応したCSV読み込みVBAコード・CSVをExcelブックとして開くVBA ・クエリーテーブルを使ったCSV読み込みVBAコード・その他のCSV読み込み方法

CSVの読み込み方法（改）

実施したいこと・ファイル名を指定し、形式をカンマ区切り、文字列で開く、その際、改行コードLF、CRLF、CRいずれにも対応、セル内の","や改行についてはカラムで区切らない。掲示板で上記のリクエストを頂きました。ということで、対応ロジックを書いてみました。

CSVの読み込み方法（改の改）

・CSVの形式について・CSV読み込みVBAコード・配列を使ってシートにまとめて出力する場合・QueryTablesを使ったCSV読み込みVBAコード・本サイトにあるCSV関連記事一覧

CSVの読み込み方法（ジャグ配列）

・CSVの読み込み方法（改の改）での予告・CSV読み込みでのジャグ配列の使いどころ・CSV読み込みVBAコード：ジャグ配列バージョン・最後に・本サイトにあるCSV関連記事一覧

CSVの読み込み方法（ジャグ配列）（改）

・CSV読み込みVBAコード：CSVの読み込み方法（ジャグ配列）（改）・CSVの読み込み方法（ジャグ配列）（改）の使用例・本サイトにあるCSV関連記事一覧

CSVの出力（書き出し）方法

・エクセルの機能をそのまま利用します・直接CSVを出力・本サイトにあるCSV関連記事一覧

UTF-8でCSVの読み書き（ADODB.Stream）

・アクティブシートの内容をUTF-8でCSV出力します・UTF-8のCSVを読込、シートに出力します・ADODB.Streamのメソッドとプロパティ・本サイトにあるCSV関連記事一覧

ADOでCSVの読み込み（SQL）

・CSVテストデータ・ADOでCSV読込のVBA ・ADO使用時の注意点・ADOレコードセットをCSV出力・ADOでTSVの読み込み・ADOでCSVの読み込みについて・本サイトにあるCSV関連記事一覧

同じテーマ「マクロVBA入門」の記事

第114回.セル範囲⇔配列（マクロVBA高速化必須テクニック）
第115回.Split関数
 第116回.ファイル操作Ⅱ（OpenとClose）
第117回.ファイル操作Ⅱ（Line Input #）
第118回.ファイル操作Ⅱ（Print #）
第119回.ファイルシステムオブジェクト（FileSystemObject）
第120回.OnTimeメソッド
 第121回.SendKeysメソッドとAppActivateステートメント
 第122回.Shell関数
 第123回.APIについて（Win32API）
第124回.Workbookのイベントプロシージャー

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.変数宣言のDimとデータ型｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.FILTER関数（範囲をフィルター処理）｜エクセル入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
10.マクロとは？VBAとは？VBAでできること｜VBA入門

ホーム
マクロVBA入門編
マクロVBA入門
ファイル操作Ⅱ（Line Input #）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBA入門
ファイル操作Ⅱ（Line Input #）

第117回.ファイル操作Ⅱ（Line Input #）

Line Input # ステートメント

EOF関数

Line Input # ステートメントと EOF関数の使用例．

同じテーマ「マクロVBA入門」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング・・・ランキング一覧を見る

第117回.ファイル操作Ⅱ（Line Input #）

Line Input # ステートメント

EOF関数

Line Input # ステートメント と EOF関数の使用例．

同じテーマ「マクロVBA入門」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング ・・・ ランキング一覧を見る

Line Input # ステートメントと EOF関数の使用例．

アクセスランキング・・・ランキング一覧を見る