Excel VBAで、テキストファイルから1行ずつデータを読み込む使い方、注意点やサンプルコードを紹介します。
外部のテキストファイルを開き、1行ずつ読み込む手順は以下になります。
1.ファイルのオープン
Open "ファイルのパス" For Input As #1
ファイルを読み取り専用で開きます。
2.1行ずつ読み込み
Line Input #1, データ変数
Line Inputステートメントを使用して1行ずつデータを読み込みます。
3.ファイルのクローズ
Close #1
ファイルを閉じます。
・ファイルの存在やアクセス権限に注意してください。
・テキストファイルのフォーマットによっては、データの解釈に問題が生じる可能性があります。
Option Explicit
Sub ReadTextFileLineByLine()
Dim filePath As String
Dim fileNumber As Integer
Dim textLine As String
' テキストファイルのパス
filePath = "C:\Users\User\Desktop\DataCsv\テキスト.txt"
' ファイルを開く
fileNumber = FreeFile
Open filePath For Input As fileNumber
' ファイルから1行ずつ読み込む
Do Until EOF(fileNumber)
Line Input #fileNumber, textLine
MsgBox textLine
Loop
' ファイルを閉じる
Close fileNumber
End Sub
サンプルコードは、指定したテキストファイルを開き、1行ずつ読み込んでメッセージボックスに表示しています。
毎日のルーチン作業をExcel VBAで自動化し、時間を有効活用しませんか?Excel VBAエキスパート資格取得問題集を活用して資格取得、そして効率的な仕事を実現しましょう!
VBAエキスパート資格は、日常業務でExcelを多用し、手動作業を減らしたいと考えている方には価値あるものです。
ExcelVBAエキスパートベーシック
仕事の効率をあげるためにExcelVBAを利用する人が対象の問題集です。
ExcelVBAエキスパートスタンダード
ExcelVBAの開発を仕事にする人が対象の問題集です。
Excel VBA エキスパート資格について知りたい方は、下記「Excel VBAスキルアップを目指すなら知っておきたいVBAエキスパート」をご確認ください。
ExcelVBAの学習方法で効果的な学び方を知りたい方は、下記「Excel VBA初心者のための効果的な学習ガイド」をご確認ください。