Excel VBAのLine Input、ファイルから1行ずつテキストを読み込むために使用します。テキストファイルの内容をプログラムに読み込む際に使います。具体的な使い方や、注意点やサンプルコードを紹介します。
以下のようなシーンで利用されます。
・テキストファイルからデータを読み込んで処理する場合に使用します。また、CSVファイルなどの形式のデータを読み込む際によく利用します。
・ファイル番号を使用してファイルを開きます。
・ファイルから1行ずつテキストを読み込みます。
・ファイルの終端に達すると、End Of File (EOF) マークが設定
・ファイルの各行は、ファイルの改行文字(通常は vbCrLf)で区切られている。
・テキストファイルが大きい場合やフォーマットが複雑な場合は、他の方法を検討する。
・ファイルが存在しない場合やアクセスできない場合、実行時エラーが発生します。
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エキスパート資格取得問題集を活用して資格取得、そして効率的な仕事を実現しましょう!
VBAエキスパート資格は、日常業務でExcelを多用し、手動作業を減らしたいと考えている方には価値あるものです。
ExcelVBAエキスパートベーシック
仕事の効率をあげるためにExcelVBAを利用する人が対象の問題集です。
ExcelVBAエキスパートスタンダード
ExcelVBAの開発を仕事にする人が対象の問題集です。
Excel VBA エキスパート資格について知りたい方は、下記「Excel VBAスキルアップを目指すなら知っておきたいVBAエキスパート」をご確認ください。
ExcelVBAの学習方法で効果的な学び方を知りたい方は、下記「Excel VBA初心者のための効果的な学習ガイド」をご確認ください。