【VBA】テキストファイルの中身をエクセルに出力してみた

Excelのマクロ機能を利用してテキストファイルの中身をエクセルに出力してみました。

実行するスクリプトの流れ
スクリプト
1. スクリプトの解説
  1. ➀特定のファイルを取得
  2. ➁テキストファイルの内容をエクセルのセルに書き込む
スクリプトの実行結果
[参考] 条件に一致するファイルが複数ある場合の挙動について
1. 実行結果
さいごに

実行するスクリプトの流れ

実行するスクリプトは以下の流れで実行します。

①：「C:\hogehoge\」フォルダから[hoge]で始まり、拡張子が[.txt]であるものを取得し
　　※この時取得したファイルのフルパスをメッセージBOXで出力
②：上記①で取得したテキストファイルの内容をエクセルのセルに書き込む

今回は hogehoge から始まるファイル名として [hogehoge12345.txt] を用意して実行してみました。
ファイルの内容は以下のように記載しています。

スクリプト

Sub hogehoge()

    '➀特定のファイルを取得
    Dim fso As Object
    Dim folder_path, file_path
    Dim folder_list, file_item

    Set fso = CreateObject("Scripting.FileSystemObject")
    folder_path = "C:\hogehoge\"
    Set folder_list = fso.GetFolder(folder_path)

    For Each file_item In folder_list.Files
        If LCase(fso.GetExtensionName(file_item.Name)) = "txt" Then
            If file_item.Name Like "hoge*.txt" Then
                file_path = folder_path & file_item.Name
                MsgBox file_path
            End If
        End If
    Next
    Set fso = Nothing

    '➁テキストファイルの内容をエクセルのセルに書き込む
    Open file_path For Input As #1

    Dim buf, r
    r = 1
    
    Do Until EOF(1)
        Line Input #1, buf
            Cells(r, 1) = buf
        Next
        r = r + 1
    Loop
    
    Close #1

End Sub

スクリプトの解説

➀特定のファイルを取得

    Dim fso As Object
    Dim folder_path, file_path
    Dim folder_list, file_item

↑4~6行目では、変数を定義します。

    Set fso = CreateObject("Scripting.FileSystemObject")
    folder_path = "C:\hogehoge\"
    Set folder_list = fso.GetFolder(folder_path)

↑8~10行目では、[fso]を定義しオブジェクト化、パスの変数を定義、フォルダの一覧情報を取得して変数 [folder_list] にその値を格納します。

    Set fso = CreateObject("Scripting.FileSystemObject")
    folder_path = "C:\hogehoge\"
    Set folder_list = fso.GetFolder(folder_path)

    For Each file_item In folder_list.Files
        If LCase(fso.GetExtensionName(file_item.Name)) = "txt" Then
            If file_item.Name Like "hoge*.txt" Then
                file_path = folder_path & file_item.Name
                MsgBox file_path
            End If
        End If
    Next
    Set fso = Nothing

↑12~20行目では、for文を用いて変数 [folder_list] の値すべてに対して「もし拡張子がtxtであり、ファイル名がhoge*.txt（*はどんな文字・文字数でも可）であったならば、そのファイル名のフルパスを[file_path]という変数に格納して、[MsgBox]を利用してポップアップとして出力させる」という処理を実行します。

➁テキストファイルの内容をエクセルのセルに書き込む

    Open file_path For Input As #1

↑23行目では、Openステートメントを利用してファイルを開き、[#]でファイル番号を指定します。

    Dim buf, r
    r = 1

↑25,26行目では、変数を定義して、「r」に値を入れます。

    Do Until EOF(1)
        Line Input #1, buf
            Cells(r, 1) = buf
        Next
        r = r + 1
    Loop

↑28~33行目では、EOF関数を利用して、読み込んでいるファイルの末尾まで繰り返し処理を行います。引数は5段落目で指定したファイル番号です。
繰り返し処理の内容は、「テキストファイルを1行目から順番に読み込み、読み込んだ値をエクセルの今開いているシートのA列の1行目から順番に格納していく」という処理になります。