Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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


Удалите все макросы из нескольких книг:

Kutools for Excel's Пакет Удаление всех макросов утилита может помочь вам удалить все макросы из нескольких книг по мере необходимости. Скачайте бесплатную пробную версию Kutools для Excel прямо сейчас!

doc запускает макрос, если изменения ячейки 3

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


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

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

1, Во-первых, вы должны одновременно открыть две книги, в одной из которых есть макросы, другая - та, которую вы хотите экспортировать макросы, см. Снимок экрана:

макросы экспорта документов 1

Вкладка Office. Откройте, прочитайте, отредактируйте и управляйте несколькими документами Office в одном окне с вкладками.

Вкладка Office позволяет просматривать вкладки, редактировать и управлять приложениями 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
Внимание: В приведенном выше коде "старые книги"- это название книги, с которой вы хотите экспортировать макросы, и"новая книга«Это книга, которую вы хотите импортировать макросы. Вы должны изменить имена на свои собственные. Обе эти книги должны быть XLSM формат файла.

макросы экспорта документов 2

4, После вставки вышеуказанного кода, затем нажмите F5 для запуска этого кода и просмотреть отображается окно, выберите папку для размещения экспортированных макрофайлов, см. снимок экрана:

макросы экспорта документов 3

5, Затем нажмите OK и все макросы экспортированы из указанной книги в другой файл Excel, а макрофайлы также сохранены в конкретной папке. Смотрите скриншот:

макросы экспорта документов 4

Внимание: Этот код может экспортировать только макросы из обычного модуля.


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.