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

あるワークブックから別のワークブックに複数のマクロVBAコードをエクスポートする必要がある場合、通常はそれらを1つずつコピーすることができます。しかし、これは時間がかかる作業です。この記事では、あるワークブックから別のワークブックにすべてのマクロを迅速にエクスポートし、さらに特定のフォルダにマクロファイルを保存する方法について説明します。

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

---

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

あるExcelファイルから別のファイルにすべてのマクロVBAコードをエクスポートするには、次の手順に従ってください：

1. まず、同時に2つのワークブックを開きます。一方にはマクロが含まれており、もう一方はマクロをエクスポートしたいワークブックです。以下のスクリーンショットをご覧ください：

Office Tab - 複数のOffice文書を1つのタブ付きウィンドウで開き、読み取り、編集、管理する Office Tabは、Microsoft Officeアプリケーションでのタブ付きブラウジング、編集、および管理を可能にします。複数のドキュメント/ファイルを1つのタブ付きウィンドウで開くことができ、例えばIE 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ファイルにエクスポートされ、マクロファイルも特定のフォルダに保存されます。以下のスクリーンショットをご覧ください：

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