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

複数のマクロvbaコードをXNUMXつのブックから別のブックにエクスポートする必要がある場合は、通常、それらをXNUMXつずつコピーできます。 ただし、これには時間がかかります。この記事では、すべてのマクロをXNUMXつのブックから別のブックにすばやくエクスポートし、マクロファイルを特定のフォルダーに保存する方法についても説明します。

VBAコードを使用して、すべてのマクロをXNUMXつのブックから別のブックにエクスポートします

---

VBAコードを使用して、すべてのマクロをXNUMXつのブックから別のブックにエクスポートします

すべてのマクロvbaコードをXNUMXつのExcelファイルから別のファイルにエクスポートするには、次の手順を実行してください。

1。 まず、XNUMXつのワークブックを同時に開く必要があります。XNUMXつにはマクロが含まれ、もうXNUMXつはマクロのエクスポート先になります。スクリーンショットを参照してください。

Officeタブ-XNUMXつのタブ付きウィンドウで複数のOfficeドキュメントを開き、読み取り、編集、および管理します Officeタブを使用すると、Microsoft Officeアプリケーションをタブで参照、編集、および管理できます。 ブラウザIE8 / 9/10、Firefox、Google Chromeなどを使用して、XNUMXつのタブ付きウィンドウで複数のドキュメント/ファイルを開くことができます。 今すぐダウンロードして無料トライアルをクリックしてください！

2。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、 次のマクロをに貼り付けます モジュール 窓。

VBAコード：XNUMXつのワークブックから別のワークブックにすべてのマクロをエクスポートします。

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

Note：上記のコードでは、「古いワークブック」はマクロをエクスポートするブックの名前であり、「」はマクロをエクスポートするブックの名前です。新しいワークブック」は、マクロをインポートするワークブックです。 名前を自分のものに変更する必要があります。 XNUMXつのワークブックは両方とも xlsm ファイル形式。

4。 上記のコードを貼り付けた後、を押します F5 このコードを実行するためのキー、および ブラウズ ウィンドウが表示されたら、エクスポートされたマクロファイルを配置するフォルダを選択してください。スクリーンショットを参照してください。

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

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