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

Jak wyeksportować wszystkie makra z jednego skoroszytu do innego skoroszytu?

Jeśli chcesz wyeksportować wiele kodów makr vba z jednego skoroszytu do drugiego, możesz normalnie skopiować je jeden po drugim. Ale będzie to czasochłonne, w tym artykule omówię, jak szybko wyeksportować wszystkie makra z jednego skoroszytu do drugiego i zapisać pliki makr również w określonym folderze.

Eksportuj wszystkie makra z jednego skoroszytu do drugiego za pomocą kodu VBA


Eksportuj wszystkie makra z jednego skoroszytu do drugiego za pomocą kodu VBA

Aby wyeksportować wszystkie kody makr VBA z jednego pliku Excel do innego, wykonaj następujące czynności:

1. Najpierw powinieneś otworzyć dwa skoroszyty w tym samym czasie, jeden zawiera makra, a drugi to ten, do którego chcesz wyeksportować makra, patrz zrzut ekranu:

makra eksportu do dokumentów 1

Office Tab-Open, czytaj, edytuj i zarządzaj wieloma dokumentami Office w jednym oknie z zakładkami

Karta Office umożliwia przeglądanie, edytowanie i zarządzanie aplikacjami Microsoft Office w kartach. Możesz otworzyć wiele dokumentów / plików w jednym oknie z zakładkami, na przykład za pomocą przeglądarki IE 8/9/10, Firefox i Google Chrome. Kliknij, aby pobrać i bezpłatną wersję próbną teraz!

makra eksportu do dokumentów

2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3, Kliknij wstawka > Moduł, i wklej następujące makro w Moduł Okno.

Kod VBA: Eksportuj wszystkie makra z jednego skoroszytu do drugiego:

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
Uwagi: W powyższym kodzie „stary skoroszyt”To nazwa skoroszytu, z którego chcesz wyeksportować makra, a„nowy-skoroszyt”To skoroszyt, do którego chcesz zaimportować makra. Powinieneś zmienić nazwy na własne. Oba oba skoroszyty powinny być xlsm format pliku.

makra eksportu do dokumentów 2

4. Po wklejeniu powyższego kodu naciśnij F5 klucz do uruchomienia tego kodu oraz plik Przeglądaj zostanie wyświetlone okno, wybierz folder do umieszczenia wyeksportowanych plików makr, patrz zrzut ekranu:

makra eksportu do dokumentów 3

5. Następnie kliknij OK przycisk, a wszystkie makra zostały wyeksportowane z określonego skoroszytu do innego pliku programu Excel, a pliki makr zostały również zapisane w określonym folderze. Zobacz zrzut ekranu:

makra eksportu do dokumentów 4

Uwagi: Ten kod może eksportować makra tylko z normalnego modułu.


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (3)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam, U mnie to nie zadziałało:( Wszystkie moje makra mają nazwy, czy w tym problem? Dzięki za pomoc
Ten komentarz został zminimalizowany przez moderatora na stronie
czy można to zmienić, aby po prostu wyeksportować wszystkie moduły z personal.XLSB? Tylko do regularnego „Kopia zapasowa moich makr” — powody
Ten komentarz został zminimalizowany przez moderatora na stronie
Zgadzam się z Rediflow. Podaj wskazówkę, gdzie można znaleźć kod umożliwiający wyeksportowanie wszystkich makr z pliku personal.xlsb do pliku tekstowego.
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL