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

Wzór Polityki Bezpieczeństwa w ochronie danych osobowych

pobierz

Konfiguracja bezpieczeństwa. Windows 10

pobierz

10 sprytnych trików na szybkie obliczenia w Excelu

pobierz

Polecane artykuły

Polecamy kancelarię:

  • Kancelaria Radcy Prawnego Małgorzata Suchecka

    al. Grunwaldzka 472D Lokal 1 Olivia Business Centre, Olivia Six (13. piętro), 80-309 Gdańsk

    Wyświetl wizytówkę
  • Kancelaria Prawna Iurisco Edyta Przybyłek

    ul. Zgrzebnioka 28, 40-520 Katowice

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Marcin Majcherczyk

    ul. Stawowa 4 lok. 39, 41-200 Sosnowiec

    Wyświetl wizytówkę
  • Buszan Suchecka Orłowski Adwokat Radcowie Prawni Sp.p.

    ul. Armii Krajowej 22/2, 81-849 Sopot

    Wyświetl wizytówkę
  • THE N.E.W.S. LAW CENTER Kancelaria Adwokatów i Radców Prawnych

    ul. Kazachska 1/89, 02-999 Warszawa

    Wyświetl wizytówkę
  • adwokat Wojciech Rudzki - kancelaria adwokacka

    Józefa Piłsudskiego 40/4 Kraków 31 - 111

    Wyświetl wizytówkę
  • KANCELARIA ADWOKACKA Adwokat Michał Gajda

    ul. Księcia Bogusława X 1/3, 70-440 Szczecin

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Robert Dudkowiak

    ul. Jana Pawła II 11 lok. 5, 62-300 Września

    Wyświetl wizytówkę
  • Kancelaria Adwokacka Adwokata Piotra Sęka

    ul. Narutowicza 44 lok. 20, 90-135 Łódź

    Wyświetl wizytówkę
  • Kancelaria Radców Prawnych ARVE M.Kusztan & R.Ponichtera Sp. K.

    ul. Czysta 4, 50-013 Wrocław

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Marek Foryś

    ul. Słupecka 9/1, Gdynia

    Wyświetl wizytówkę
  • Kancelaria MERITUM

    ulica Westerplatte 13/5, 31-033 Kraków

    Wyświetl wizytówkę
  • Kancelaria Radcy Prawnego Radosław Tymiński

    Łukowska 9 Lok. 126, 04-133 Warszawa

    Wyświetl wizytówkę
Array ( [docId] => 25326 )
Array ( [docId] => 25326 )

Array ( [docId] => 25326 )