エクセルで複数のブックを１つのブックにまとめるマクロボタンを作る方法

You

11か月前

あなたは月末の書類集計をするときなどに、メンバーから集めたエクセルデータを１つにまとめるのが大変だと思ったことはありませんか？

たくさんのエクセルブックを1つ1つ開いて確認するのを、ボタン1つで１つのブックにまとめられたら便利ですよね。

エクセルのマクロを使えば、複数のブックを1つのブックにまとめるのが簡単にできます。

今回は「エクセルで複数のブックを１つのブックにまとめるマクロボタンを作る方法」を紹介します。

エクセルで複数のブックを１つのブックにまとめるマクロボタンを作る方法
まとめ

エクセルで複数のブックを１つのブックにまとめるマクロボタンを作る方法

エクセルで複数のブックを１つのブックにまとめるマクロボタンを作る方法です。

今回は下のようにA、B、Cのエクセルブックを、１つのブックにまとめるのを例に紹介します。

それぞれ開くとこのような形になっています。

マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法

１．「開発」タブをクリック　→「挿入」をクリック　→「ボタン」をクリック

２．「新規作成」をクリック

３．コード入力画面が開く

４．コードを入力

コードを入力します。

デスクトップのA,B,Cのファイルを開いて、シート１をコピーする　→新しいブックに貼り付ける　→新しいブックを保存する、という意味です。

赤枠部のコードです。

    Dim desktopPath As String
    Dim wbA As Workbook, wbB As Workbook, wbC As Workbook
    Dim combinedWorkbook As Workbook
    Dim ws As Worksheet
    Dim i As Integer

    ' デスクトップのパスを取得
    desktopPath = Environ("USERPROFILE") & "\Desktop\"

    ' 各ファイルを開く
    Set wbA = Workbooks.Open(desktopPath & "A.xlsx")
    Set wbB = Workbooks.Open(desktopPath & "B.xlsx")
    Set wbC = Workbooks.Open(desktopPath & "C.xlsx")

    ' 新しいブックを作成
    Set combinedWorkbook = Workbooks.Add

    ' ファイルAの内容をコピー
    wbA.Sheets(1).Copy After:=combinedWorkbook.Sheets(1)

    ' ファイルBの内容をコピー
    wbB.Sheets(1).Copy After:=combinedWorkbook.Sheets(combinedWorkbook.Sheets.Count)

    ' ファイルCの内容をコピー
    wbC.Sheets(1).Copy After:=combinedWorkbook.Sheets(combinedWorkbook.Sheets.Count)

    ' 各ファイルを閉じる
    wbA.Close False
    wbB.Close False
    wbC.Close False

    ' 最初のシートを削除
    Application.DisplayAlerts = False
    combinedWorkbook.Sheets(1).Delete
    Application.DisplayAlerts = True

    ' 新しいブックの名前を設定
    combinedWorkbook.SaveAs desktopPath & "CombinedWorkbook.xlsx"

    ' 新しいブックを閉じる
    combinedWorkbook.Close False

    MsgBox "ファイルを結合し、CombinedWorkbook.xlsxとして保存しました。", vbInformation

コードを入力したら、コードの入力画面を閉じて下さい。

５．ボタンができた　→ボタンをクリック

ボタンができました。