【Excel VBA】他の複数のExcel（エクセル）のシートをコピーするマクロ

社員の日報をまとめる、部署ごとの報告をまとめるなど、他のExcelのシートを一つのExcelにまとめたいことはあると思います。

本記事では、他のExcel（エクセル）のシートを一つのExcelにまとめるマクロを紹介します。

同じExcel内のシートコピーの方法を知りたい方は以下の記事をご覧ください。

【Excel VBA】シートコピーの方法

他の複数のExcel（エクセル）のシートをコピーするマクロ

他の複数のExcel（エクセル）のシートをコピーするマクロ

1. VBAのソースコードを書く

ソースコードを書きましょう。処理内容はソースのコメントに書いてあります。

たけのこ

右上の”copy”をクリックしたらソースをコピーできますよ！

copy

Sub OtherBookSheetsCopy()

    Dim fromWorkBook As Workbook
    Dim folderPath
    Dim fileName As String
    
    ' 画面の更新が見えないようにする
    Application.ScreenUpdating = False
    
    ' フォルダパスを変数に設定する
    folderPath = thisWorkBook.Path
    
    ' コピーするファイルのファイル名を取得する
    fileName = Dir(folderPath & "\*.xlsx")
    
    ' ファイル名が取得できた場合にループする
    Do While fileName <> ""
    
        ' コピーするファイルを開く
        Set fromWorkBook = Workbooks.Open(folderPath & "\" & fileName)
        
        ' コピーするファイルの1シート目を、このファイルの1シート目にコピーする
        fromWorkBook.Worksheets(1).Copy before:=thisWorkBook.Worksheets(1)
        
        ' コピーするファイルを閉じる
        fromWorkBook.Close
        
        ' 次にコピーするファイルのファイル名を取得する
        fileName = Dir()
        
    Loop
    
    ' 画面の更新が見えるようにする
    Application.ScreenUpdating = True

End Sub

本マクロのポイント