Excel VBAでフォルダ内の全ファイルを一括結合！完全自動化マクロの作り方

【本日のミッション】

フォルダ内に散らばった複数のExcelファイルを、手作業でコピペせずに「一瞬で1つのブックにまとめる」仕組みを作ること。

1 ミッションの概要
2 解決方法とプロシージャ
3 コード解説
4 まとめ
5 【参考】

ミッションの概要

毎日繰り返し行う作業を自動化すると、劇的に作業効率が上がります。

特に「毎日届く売上報告」や「複数部署の月次ファイル」を1つに集めたい場合、VBAを使えばワンクリックで完了できますね。

別々のファイルのデータが・・・

1つのブックにまとまりました♪

■■■スポンサーリンク■■■

解決方法とプロシージャ

Dir関数でフォルダ内のファイルを順に取得する
Workbooks.Openで開く
Sheets.Copyで集約ブックに転記する
最後に保存して終了

Sub MergeFiles()

    '【変数】
    Dim f_pt As String  'フォルダパス
    Dim fn As String    'ファイル名
    Dim wb As Workbook  'コピー元ブック
    
    Application.ScreenUpdating = False
    
    ’■変数セット
    f_pt = "C:\Data\"                         '処理対象のフォルダパスを指定
    fn = Dir(f_pt & "*.xlsx")                 '最初のExcelファイル名を取得

    ’■ファイルを順に処理
    Do While fn <> ""                         'ファイルがなくなるまで繰り返す
        Set wb = Workbooks.Open(f_pt & fn)    'ファイルを開く
        wb.Sheets(1).Copy Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)    '1枚目のシートをコピー
        wb.Close SaveChanges:=False          '保存せず閉じる
        fn = Dir                             '次のファイル名を取得
    Loop
    
    Application.ScreenUpdating = True
End Sub

■■■スポンサーリンク■■■

今回は、フォルダ内にある複数のExcelファイルを一瞬で結合してしまうマクロをご紹介します。「何十個も開いてコピペ…」という地獄作業を、VBAが一瞬でやってくれるんです。

コード解説

変数宣言

Dim f_pt As String     'フォルダパス
Dim fn As String       'ファイル名
Dim wb As Workbook     'コピー元ブック

f_pt は処理対象フォルダのパスを入れる箱。
fn は Dir 関数で取得したファイル名を入れる箱。
wb は開いたExcelファイル（Workbook）を操作するための箱です。

画面更新の停止

Application.ScreenUpdating = False

VBAを実行すると、通常はシートの画面が1行ずつ切り替わる動きが表示されます。
ファイルを結合する処理など、大量のコピーやシート切り替えが発生すると、その度に画面が更新されて「ガタガタ」と動きが遅くなってしまいます。
このコードを入れると、を入れると、処理中の画面更新を止めることができます。

これにより実行スピードが格段に速くなり、ユーザーも無駄な画面のチラつきを見ずに済みます。
最後に必ず

Application.ScreenUpdating = True

で元に戻しておくのが安全です。

Dir関数とは

Dir関数は、第1引数に指定したファイル・フォルダが存在する場合、パスを除いたファイル名・フォルダ名を返します。存在しない場合は長さ0の文字列 ”” （空欄）を返します。

Dir（ファイル・フォルダのパス,ファイル・フォルダの属性）

Dir (“C:\VBA\第1階層\File1_1.xlsx”) の場合

ファイルが存在する場合（ファイル名を返す）→ File1_1.xlsx
ファイルが存在しない場合（空欄を返す） → ””

第1引数にはワイルドカードを使用することができるので、取得したいファイル名・フォルダ名の幅を広げることができます。

Dir(”C:\VBA\第1階層\*.*“)

参考：ワイルドカードとは。使い方いろいろ。（Excel）

第2引数に下記定数（値）を指定することで、特定の属性のオブジェクトのみを取得の対象とすることができます。

定数	値	属性
vbNormal (既定)	0	標準ファイル
vbReadOnly	1	読み取り専用ファイル
vbHidden	2	隠しファイル
vbSystem	4	システムファイル
vbVolume	8	ボリュームラベル。この値を指定すると、すべての属性は無効になります。
vbDirectory	16	フォルダ
vbAlias	64	エイリアスファイル

※4、8はMacでは使えません。また、64はMacintoshのみ使えます。

今回は、規定値となっている標準ファイルを取得するため、第2引数は省略しています。

Dir関数は一度引数を指定すると、次に別の引数を指定するまで、同じ引数に対する処理を行います。

fn=Dir(”C:\VBA\第1階層\*.*”）
fn=Dir()
fn=Dir()

1行目の処理では、変数fnに「C:\VBA\第1階層\*.*」に一致するファイルが存在すれば、そのファイル名を返します。

2行目以降の「fn=Dir()」では引数を指定していませんが、「C:\VBA\第1階層\*.*」に一致する別のファイル名を返します。

その処理を繰り返し、「C:\VBA\第1階層\*.*」に一致するファイルが無くなった時、長さ0の文字列 ”” 空欄 を返します。

何度も「fn=Dir()」を書くのは面倒だし、どのタイミングでファイルが無くなるかわからないので、Do While ～ Loopを使って繰り返し処理を行います。

fn=Dir(”C:\VBA\第1階層\*.*”）
Do While fn <> ""         'fnが空欄になるまでDo While内の処理を続ける 
    ～fnで行いたい処理を記述～
    fn = Dir()            '変数fnに次のファイル名を格納（ファイルが無い場合は空欄になる） 
Loop

参考：Dir関数が取得するファイルの順番
 参考：Dir関数の使い方。ファイル名やフォルダ名の取得方法。（Excel VBA）

Do While ～ Loop で全ファイルを処理

 Do While fn <> ""                     'ファイルがなくなるまで繰り返す 
    Set wb = Workbooks.Open(f_pt & fn) 'ファイルを開く 
    wb.Sheets(1).Copy Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)  '1枚目のシートをコピー 
    wb.Close SaveChanges:=False        '保存せず閉じる 
    fn = Dir                           '次のファイル名を取得 
Loop

fn <> "" → まだファイルがある間だけ繰り返す
Workbooks.Open → ファイルを開く
wb.Sheets(1).Copy → 開いたブックの1枚目のシートをコピー
ThisWorkbook.Sheets.Count → 今のブックの最後のシートの直前にコピーする
wb.Close SaveChanges:=False → 元ファイルは保存せず閉じる
fn = Dir → 次のファイル名を取得する

これを繰り返すことで、フォルダ内のファイルを片っ端から結合していきます♪

まとめ

Dir 関数でファイルを1つずつ取得
Do While ～ Loop でファイルがなくなるまで繰り返し処理
Workbooks.Open ＆ Copy でシートをまとめる

初めて動かしたとき、ほんとに感動しました。
「あんな面倒な作業が、数秒で終わるなんて！」って。
VBAをちょっと使えるだけで、Excel作業の世界がガラッと変わりますよ♪

■■■スポンサーリンク■■■

【参考】