あるワークブックから別のワークブックへすべてのマクロをエクスポートするには、どうすればよいですか？

複数のマクロ（VBA コード）をあるワークブックから別のワークブックへエクスポートする必要がある場合、通常は1 つずつ手動でコピーすることも可能ですが、時間がかかりがちです。本記事では、すべてのマクロを素早くあるワークブックから別のワークブックへ一括エクスポートし、マクロファイルを指定したフォルダーに保存する方法をご紹介します。

VBA コードを使用してあるワークブックから別のワークブックへすべてのマクロをエクスポートする

---

VBA コードを使用してあるワークブックから別のワークブックへすべてのマクロをエクスポートする

あるExcel ファイルから別のExcel ファイルへすべてのマクロ（VBA コード）を移行するには、以下の手順に従ってください。

1．まず、マクロを含むワークブックと、マクロをエクスポートしたい対象のワークブックを同時に開いてください。下図をご参照ください。

Office Tab－1 つのタブ付きウィンドウで複数の Office ドキュメントを開き、閲覧・編集・管理できます Office Tab を使えば、Microsoft Office アプリケーションでタブを使った閲覧・編集・管理が可能に！複数のドキュメントやファイルを1 つのタブ付きウィンドウで開け、インターネットエクスプローラー8/9/10、Firefox、Google Chrome などのブラウザーと同じ感覚で操作できます。今すぐダウンロードして、無料トライアルをお試しください！

2．ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

3．「挿入」→「モジュール」をクリックし、次のマクロをモジュールウィンドウに貼り付けます。

VBA コード：あるワークブックから別のワークブックへすべてのマクロをエクスポートする：

Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
 With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
    MsgBox "come to nothing!"
End Sub

注：上記のコードにおいて、「old-workbook」はマクロをエクスポートしたい元のワークブック名であり、「new-workbook」はマクロをインポートしたいワークブックです。これらをそれぞれのワークブック名に変更してください。いずれのワークブックもxlsm 形式である必要があります。

4．上記のコードを貼り付けたら、F5キーを押してコードを実行してください。すると、参照ウィンドウが表示されるので、エクスポートしたマクロファイルの保存先フォルダーを選択してください。下図をご参照ください。

5．次に、OKボタンをクリックすると、指定したワークブック内のすべてのマクロが別のExcel ファイルにエクスポートされ、マクロファイルも指定したフォルダーに保存されます。下図をご参照ください。

注：このコードは、通常のモジュールに含まれるマクロのみをエクスポートできます。