Как экспортировать все макросы из одной книги в другую?

Если вам нужно перенести несколько макросов VBA из одной книги в другую, можно копировать их по одному вручную — но это займёт уйму времени. В этой статье я покажу, как быстро экспортировать все макросы из одной книги в другую и сохранить файлы макросов в нужную папку.

Экспорт всех макросов из одной книги в другую с помощью кода VBA

---

Экспорт всех макросов из одной книги в другую с помощью кода VBA

Чтобы экспортировать все макросы VBA из одного файла Excel в другой, выполните следующие действия:

1. Сначала откройте обе книги одновременно: одна содержит макросы, а в другую вы хотите их экспортировать (см. скриншот):

Office Tab — открывайте, читайте, редактируйте и управляйте несколькими документами Office в одном окне с вкладками Office Tab добавляет вкладки в приложения Microsoft Office для удобного просмотра, редактирования и управления документами. Открывайте сразу несколько файлов в одном окне — точно так же, как это делают браузеры IE 8/9/10, Firefox и Google Chrome.Нажмите, чтобы скачать и начать бесплатную пробную версию прямо сейчас!

2. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

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. Затем нажмите кнопку ОК, и все макросы будут экспортированы из указанной вами книги в другой файл Excel, а файлы макросов также сохранятся в выбранную папку (см. скриншот):

Примечание: этот код экспортирует макросы только из обычных модулей.