コピペで使えるVBA！複数のファイルにあるシートをコピーしてまとめるコード

Sub 複数のブックのシートをマクロのブックにまとめる()
    Application.ScreenUpdating = False
    Set メインブック = ActiveWorkbook
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For Each ファイル In FSO.GetFolder(ThisWorkbook.Path).Files
        If ファイル.Name = メインブック.Name Then Exit For
        If ファイル.Name Like "*.xl*" Then
            Set ターゲットブック = Workbooks.Open(ファイル.Name)
            For ターゲットシート = 1 To ターゲットブック.Worksheets.Count
                ターゲットブック.Worksheets(ターゲットシート).Copy After:=メインブック.Worksheets(メインブック.Worksheets.Count)
                メインブック.Worksheets(メインブック.Worksheets.Count).Name = Split(ターゲットブック.Name, ".")(0) & "_" & ターゲットブック.Worksheets(ターゲットシート).Name
            Next
            ターゲットブック.Close
        End If
    Next
    Set FSO = Nothing
    Application.ScreenUpdating = True
End Sub

Sub 複数のブックのシートを新しいブックにまとめる()
    Application.ScreenUpdating = False
    Set マクロブック = ThisWorkbook
    Set メインブック = Workbooks.Add
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For Each ファイル In FSO.GetFolder(ThisWorkbook.Path).Files
        If ファイル.Name = マクロブック.Name Or ファイル.Name = メインブック.Name Then Exit For
        If ファイル.Name Like "*.xl*" Then
            Set ターゲットブック = Workbooks.Open(ファイル.Name)
            For ターゲットシート = 1 To ターゲットブック.Worksheets.Count
                ターゲットブック.Worksheets(ターゲットシート).Copy After:=メインブック.Worksheets(メインブック.Worksheets.Count)
                メインブック.Worksheets(メインブック.Worksheets.Count).Name = Split(ターゲットブック.Name, ".")(0) & "_" & ターゲットブック.Worksheets(ターゲットシート).Name
            Next
            ターゲットブック.Close
        End If
    Next
    Set FSO = Nothing
    Application.ScreenUpdating = True
End Sub