【VBA】連番ファイルの読み込み！001,002など複数の0を付ける方法！

「連番ファイル名のデータを一括操作したい。」

「でも連番の前に0がついててうまく処理できない。」

この記事ではこんな悩みを一瞬で解決します。

file001.txt, file002.txt, file003.txtなどの連番の前に複数の0が付け加えられているファイルは多いですよね。

そんなファイルを読み込む際、連番の前についている0の処理に苦戦しているのではないでしょうか？

この０の処理については、あるスキルを覚えておくだけで一瞬で解決できるようになります。

もちろん、0が何個ついていようが、連番の数字が２桁、３桁と増えていっても問題なく使えるスキルです。

覚えておいて損はないスキルだと思いますので、ぜひ一緒にエクセルを開いて実践してみましょう。

それではさっそくやっていきます！

頭に複数の0がついた連番作成方法
例題説明：やることの共有化
事前準備：エクセルシートを整える
連番作成スキルの実際の使用例
おわりに

頭に複数の0がついた連番作成方法

まず始めに、頭に複数の0がついた連番作成スキルについて解説しておきましょう。

今回使用する連番作成スキルは以下のようなものです。

連番作成スキル：Format
使用方法：Format(i,”連番桁数分の0″)
⇒ i : 連番作成時の整数変数
⇒連番桁数分の0 : 三桁連番なら000 四桁なら0000

とはいえ、これだけでは何のことかよくわからないと思いますので、実際の使用例を見ていきましょう。

例題説明：やることの共有化

使用例に移る前に、この記事で行っていく作業内容を共有化しておきましょう。

（その方が理解が深まるはずです。）

今回は、連番のファイル名がついているテキストファイルをエクセルシート上に順番に読み込んでいくという作業を行ってみようと思います。

もう少し具体的に説明しておきます。

以下のようにあるフォルダの中に、複数の０が頭についている連番ファイルが入っています。

そしてこれらのファイルには以下のように適当なデータが入力されています。

これらのデータを連番作成スキルを使って、順番にエクセルシートに読み込んでいきたいと思います。

やりたいことのイメージがつかめたところで、早速本体に入っていきましょう。

事前準備：エクセルシートを整える

今回はエクセルシート上に、ファイルの置き場所と連番前後のファイル名を記述する形にしています。

※このあたりのフォルダのパスやファイル名の指定については、あなたの状況に応じて適宜変更してください。

最終的にはA8セル以降に先ほどの連番ファイルたちを読み込んでいくことになります。

事前準備はここまでです。

ここからは実際実行コードを紹介しておきます。

連番作成スキルの実際の使用例

先ほど紹介した一連の作業を自動化するVBAコードは以下のようになります。

Sub open_text()
    '変数の方を宣言
    Dim base_file As String
    Dim read_file_path As String
    Dim i As Integer
    'マクロファイル名を記憶させる
    base_file = ThisWorkbook.Name
    'テキストファイルの場所を記憶させる
    read_file_path = Cells(2, 1)
    '連番読み込み処理の開始
    For i = 1 To 4
        read_file_name = Cells(5, 1) & Format(i, "000") & ".txt"
        Workbooks.OpenText Filename:= _
        read_file_path & "\" & read_file_name _
        , Origin:=932, startrow:=1, DataType:=xlDelimited, textQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, Space:=True, Other:=False
        'データコピー
        Range(Cells(1, 1), Cells(1, 1)).Copy
        'もとのファイルに戻って張り付ける
        Windows(base_file).Activate
        Cells(i + 7, 1).Select
        ActiveSheet.Paste
        'テキストファイルを閉じる
        Windows(read_file_name).Close
    Next
End Sub

☆read_file_name = Cells(5, 1) & Format(i, “000”) & “.txt”

↑の部分が今回のスキル紹介の最も重要な部分になります。

最初に紹介しように、Format( 【整数変数】, 【”連番桁数分の0″ 】)という構図になっていることが確認できると思います。

そしてこのコードを実際に実行すると以下のように、しっかりとエクセルシート上にテキストファイルの中身が読み込まれています。