Excel: Przenoszenie arkuszy do osobnych plików za pomocą makra

Autor: Gromulski Piotr
Data: 11-04-2012 r.

W trakcie pracy ze skoroszytem zawierającym dużą liczbę arkuszy może zajść potrzeba ich uporządkowania i przeniesienia do oddzielnych plików. Najpopularniejszym rozwiązaniem w tym przypadku jest skopiowanie zawartości do nowego arkusza w innym pliku. Jeżeli arkuszy do przeniesienia jest kilkadziesiąt, to takie zadanie okaże się bardzo pracochłonne. Skorzystaj z makra, a wykonasz je w kilka sekund.

 

Aby z każdego arkusza utworzyć osobny plik:

Otwórz Edytor Visual Basic, wybierając z menu Narzędzia polecenie Makro/Edytor Visual Basic (w Excelu 2007: kliknij kartę Deweloper i w grupie poleceń Kod wybierz Visual Basic). Możesz także skorzystać z wygodnego skrótu klawiaturowego lewy Alt + F11.

Uwaga

Jeżeli karta Deweloper jest niewidoczna, kliknij Przycisk pakietu Office i u dołu wyświetlonego okna wybierz Opcje programu Excel. W kategorii Popularne zaznacz pole Pokaż kartę Deweloper na Wstążce i kliknij OK.

Z menu Insert wybierz polecenie Module i wpisz kod makra przedstawiony na rysunku 2.

Zapisz i zamknij Edytor VBA.

 

 

Teraz sprawdź jak działa makro.

W tym celu:

Wciśnij kombinację klawiszy lewy Alt + F8, a następnie w oknie dialogowym wybierz nazwę makra przeniesienie_arkusza i kliknij przycisk Uruchom.

W rezultacie otrzymasz oddzielne skoroszyty o nazwach: Balik.xls, Komar.xls itd., zapisane w folderze Handlowcy na dysku C.

Wskazówka

Arkusze są tworzone na dysku C w folderze Handlowcy. Jeżeli nie jest on jeszcze utworzony, to zrób to przed uruchomieniem makra, albo zmień ścieżkę na inną. Zrobisz to w linii:

ActiveWorkbook.SaveAs "C:\Handowcy\" & Arkusz.Name

 

Gromulski Piotr

Zaloguj się, aby dodać komentarz

Nie masz konta? Zarejestruj się »

Zobacz także

Jak zatrzeć ślady po przeglądaniu Internetu?

pobierz

Biznesplan

pobierz

Wzór Polityki Bezpieczeństwa w ochronie danych osobowych

pobierz

Konfiguracja bezpieczeństwa. Windows 10

pobierz

Polecane artykuły

Polecamy kancelarię:

Array ( [docId] => 25326 )
Array ( [docId] => 25326 )

Array ( [docId] => 25326 )