ExcelVBA

Excel VBA Line Inputはファイルから1行ずつテキスト読み込みで使用

Excel VBA Line Inputはファイルから1行ずつテキスト読み込みで使用

 

Excel VBAのLine Input、ファイルから1行ずつテキストを読み込むために使用します。テキストファイルの内容をプログラムに読み込む際に使います。具体的な使い方や、注意点やサンプルコードを紹介します。

 

📌 「これ、自動化できたらラクなのに…」と思ったこと、ありませんか？
実はその作業、Excelマクロで簡単に自動化できるかもしれません。
「でもマクロって難しそう…」という方のために、完全初心者向けの入門記事をご用意しました！

👇実務で“そのまま使える”テンプレ付きで、コピペするだけ！
初心者向けエクセルマクロの作り方を解説｜コピペOK実務テンプレ付き

 

Excel VBA Line Inputの利用

以下のようなシーンで利用されます。

・テキストファイルからデータを読み込んで処理する場合に使用します。また、CSVファイルなどの形式のデータを読み込む際によく利用します。

 

Excel VBA Line Inputの使い方とポイント

使い方

・ファイル番号を使用してファイルを開きます。

・ファイルから1行ずつテキストを読み込みます。

・ファイルの終端に達すると、End Of File (EOF) マークが設定

 

ポイント

・ファイルの各行は、ファイルの改行文字（通常は vbCrLf）で区切られている。

・テキストファイルが大きい場合やフォーマットが複雑な場合は、他の方法を検討する。

・ファイルが存在しない場合やアクセスできない場合、実行時エラーが発生します。

 

Excel VBA Line Inputのサンプルコード

自分の実力を客観的にチェックしたい…。そんな方のために、自分に合ったスタート地点がわかる無料のExcelVBAベーシック選択問題集をご用意しました。

👉無料ExcelVBAベーシック選択問題138問

Option Explicit

Sub ReadTextFile()
    Dim fileNum As Integer
    Dim textLine As String
    
    ' ファイルを開く
    fileNum = FreeFile
    Open "C:\Users\User\Desktop\DataCsv\テキスト.txt" For Input As fileNum
    
    ' ファイルから1行ずつ読み込む
    Do Until EOF(fileNum)
        Line Input #fileNum, textLine
        Debug.Print textLine ' 1行ずつデバッグウィンドウに出力
    Loop
    
    ' ファイルを閉じる
    Close fileNum
End Sub

サンプルコードは、"C:\Users\User\Desktop\DataCsv\テキスト.txt" というファイルから1行ずつテキストを読み込み、デバッグウィンドウに出力します。

 

「Excel VBAで自動化するコードのベースが習得できる解説書」

👉初心者の人は、Excel VBAエキスパートベーシック解説書

👉マクロの基礎知識がある人は、Excel VBAエキスパートスタンダード解説書

 

Excel VBAエキスパートベーシックとスタンダード、どちらを選べばいいか判断が難しい…。そんな方のために、自分に合ったスタート地点がわかる無料のExcelVBAベーシック選択問題集を用意しました。

👉無料ExcelVBAベーシック選択問題138問