Excel VBA テキストファイルから1行ずつデータを読み込む方法

2024年1月31日 2024年11月23日

Excel VBAで、テキストファイルから1行ずつデータを読み込む使い方、注意点やサンプルコードを紹介します。

基本的な文法やVBAの実践的な応用までを網羅的に学習できる方法は、ExcelVBAエキスパート資格の取得を目指すこと。学習を通して、より効率的に、着実に基礎を身につけることが可能です。資格取得すれば、スキルの証明にもなり、職場での評価アップにも繋がるため、勉強を進めるモチベーションにもなります。
本サイト参考：マクロ知識がないから「何から学べば良いのかわからない」という人におすすめの記事

Excel VBA 1行ずつテキストを読み込む

1行ずつテキストを読み込む

外部のテキストファイルを開き、1行ずつ読み込む手順は以下になります。

1.ファイルのオープン
Open "ファイルのパス" For Input As #1
ファイルを読み取り専用で開きます。

2.1行ずつ読み込み
Line Input #1, データ変数
Line Inputステートメントを使用して1行ずつデータを読み込みます。

3.ファイルのクローズ
Close #1
ファイルを閉じます。

ポイント

・ファイルの存在やアクセス権限に注意してください。

・テキストファイルのフォーマットによっては、データの解釈に問題が生じる可能性があります。

ExcelVBAエキスパートベーシックは仕事の効率をあげる人の資格です。
本サイト参考：日常業務でExcelを多用し、手動作業を減らしたいと考えている方におすすめの記事

Excel VBA 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で自動化するコードのベースを習得したい方におすすめ！

VBAエキスパート資格は、日常業務でExcelを多用し、手動作業を減らしたいと考えている方には価値あるものです。

ExcelVBAエキスパートベーシック
仕事の効率をあげるためにExcelVBAを利用する人が対象の問題集です。

Excel VBAベーシック問題集

ExcelVBAエキスパートスタンダード
ExcelVBAの開発を仕事にする人が対象の問題集です。

ExcelVBAスタンダード問題集

Excel VBA エキスパート資格について知りたい方は、下記「Excel VBAスキルアップを目指すなら知っておきたいVBAエキスパート」をご確認ください。