Note: The other languages of the website are Google-translated. Back to English

Як експортувати всі макроси з однієї книги в іншу книгу?

Якщо вам потрібно експортувати декілька макрокоманд vba з однієї книги в іншу, ви можете нормально копіювати їх по одному. Але це забирає багато часу, у цій статті я розповім про те, як швидко експортувати всі макроси з однієї книги в іншу та зберегти файли макросів також у певній папці.

Експортуйте всі макроси з однієї книги в іншу за допомогою коду VBA


Експортуйте всі макроси з однієї книги в іншу за допомогою коду VBA

Щоб експортувати всі макрокоманди vba з одного файлу Excel в інший, виконайте такі дії:

1. По-перше, вам слід відкрити дві книги одночасно, одна містить макроси, інша - ту, до якої ви хочете експортувати макроси, див. Знімок екрана:

макроси експорту документа 1

Вкладка Office - відкривайте, читайте, редагуйте та керуйте декількома документами Office в одному вікні з вкладками

Вкладка Office дозволяє переглядати вкладки, редагувати та керувати програмами Microsoft Office. Ви можете відкрити кілька документів / файлів в одному вікні з вкладками, наприклад, за допомогою браузера IE 8/9/10, Firefox та Google Chrome. Клацніть, щоб завантажити та безкоштовну пробну версію зараз!

макроси експорту doc -

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. Клацання Insert > Модуль і вставте наступний макрос у Модулі Вікно

Код 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 ключ для запуску цього коду, і a перегорнути відобразиться вікно, будь ласка, виберіть папку для розміщення експортованих файлів макросів, див. знімок екрана:

макроси експорту документа 3

5. Потім натисніть OK , і всі макроси були експортовані із зазначеної книги в інший файл Excel, а файли макросів також збережені у певній папці. Дивіться знімок екрана:

макроси експорту документа 4

примітки: Цей код може експортувати макроси лише із звичайного модуля.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (3)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт, це не спрацювало для мене:( Усі мої макроси мають імена, це проблема? Дякую за будь-яку допомогу
Цей коментар був мінімізований модератором на сайті
чи можна це змінити, щоб просто експортувати всі модулі з personal.XLSB? Просто для звичайного "Резервного копіювання моїх макросів" - Причини
Цей коментар був мінімізований модератором на сайті
Я згоден з Rediflow. Надайте підказку, де можна знайти код для експорту всіх макросів із файлу personal.xlsb у текстовий файл.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL