Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

Jak wyeksportować i zapisać każdy arkusz roboczy jako oddzielny nowy skoroszyt w programie Excel?

Powiedzmy, że chcesz wyeksportować i zapisać jeden lub kilka arkuszy roboczych jako nowy skoroszyt, jak sobie z tym poradzisz? Zwykle możesz skopiować każdy arkusz i wkleić go do nowego skoroszytu. Ale tutaj przedstawiamy kilka przydatnych sztuczek, aby sobie z tym poradzić:

Eksportuj i zapisz arkusze jako nowy skoroszyt za pomocą polecenia Przenieś lub Kopiuj

Eksportuj i zapisz arkusze jako nowy skoroszyt z kodem VBA

Eksportuj i zapisuj arkusze jako nowy skoroszyt za pomocą Kutools for Excel dobry pomysł 3


strzałka niebieski prawy bąbelek Eksportuj i zapisz arkusze jako nowy skoroszyt za pomocą polecenia Przenieś lub Kopiuj

Korzystanie z Przenieś lub skopiuj polecenie pomoże ci szybko wyeksportować lub skopiować jeden lub kilka arkuszy roboczych do nowego skoroszytu.

Krok 1: Wybierz nazwy arkuszy roboczych na pasku kart. Możesz wybrać wiele, przytrzymując Ctrl klucz lub przesunięcie klawisz.

Krok 2: Kliknij prawym przyciskiem myszy nazwę arkusza i kliknij plik Przenieś lub skopiuj z menu kontekstowego.
arkusze eksportu doc ​​1

Krok 3: W Przenieś lub skopiuj w oknie dialogowym wybierz opcję (Nowa książka) element z rozwijanej listy Przenieś wybrane arkusze do książki.

arkusze eksportu doc ​​2

Krok 4: Następnie kliknij OK, teraz przełączyłeś się na nowy skoroszyt z wyeksportowanymi lub skopiowanymi arkuszami, kliknij filet > Zaoszczędź aby zapisać nowy skoroszyt.

Uwaga: w Przenieś lub skopiuj W oknie dialogowym znajduje się plik Utwórz kopię opcja. Jeśli tego nie zaznaczysz, spowoduje to przeniesienie wybranych arkuszy z oryginalnego skoroszytu; jeśli to zaznaczysz, skopiuje wybrane arkusze.


Szybko podziel wiele arkuszy roboczych na osobny skoroszyt w programie Excel

W programie Microsoft Excel możesz zapisać lub podzielić arkusz z jednego skoroszytu jako nowy plik programu Excel, kopiując i wklejając ten arkusz do nowego skoroszytu. Wydaje się to kłopotliwe, jeśli chcesz podzielić każdy arkusz / arkusz roboczy dużego skoroszytu na osobne pliki Excel, txt, csv, pdf. Ale z Kutools dla programu Excel'S Podziel skoroszyt narzędzie, możesz szybko sobie z tym poradzić.  Kliknij, aby skorzystać z 30-dniowej bezpłatnej wersji próbnej z pełnymi funkcjami!
skoroszyt podzielony na dokumenty 1
 
Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do Excela, możesz wypróbować bez ograniczeń w 30 dniach.

strzałka niebieski prawy bąbelek Eksportuj i zapisz arkusze jako nowy skoroszyt z kodem VBA

Poniższy kod wyeksportuje każdy widoczny arkusz w nowym skoroszycie i zapisze skoroszyt z nazwą oryginalnego arkusza w nowo utworzonym folderze w tej samej ścieżce co aktywny skoroszyt. Wykonaj następujące czynności:

Krok 1: Przytrzymaj przycisk ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.

Krok 2: Kliknij wstawka > Modułi wklej następujące makro w oknie modułu:

VBA: Eksportuj i zapisz arkusze jako nowy skoroszyt w nowym folderze.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

Krok 3: Naciśnij F5 klucz do uruchomienia tego kodu. Pojawi się okienko zachęty z informacją o lokalizacji nowych wyeksportowanych skoroszytów, a wszystkie arkusze z oryginalnego skoroszytu zostały wyeksportowane do kilku nowych oddzielnych skoroszytów, które nazwały oryginalne arkusze w nowym określonym folderze. Zobacz zrzuty ekranu:

arkusze eksportu doc ​​7

strzałka niebieski prawy bąbelek Eksportuj i zapisuj arkusze jako nowy skoroszyt za pomocą Kutools for Excel

Jeśli masz wiele arkuszy roboczych, które należy zapisać jako oddzielny skoroszyt, pierwsza metoda nie może być dobrym wyborem. A kod VBA może być trochę skomplikowany dla początkujących użytkowników Excela. Tutaj możesz użyć Podziel skoroszyt użyteczność Kutools dla programu Excel aby szybko i łatwo wyeksportować i zapisać każdy arkusz jednego skoroszytu, aby oddzielić nowy skoroszyt.

Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. 

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

Krok 1: Kliknij Kutools Plus > skoroszyt > Podziel skoroszyt…. Zobacz zrzut ekranu:
arkusze eksportu doc ​​3

Krok 2: W Podziel skoroszyt okno dialogowe, wykonaj poniższe czynności:

arkusze eksportu doc ​​4
1: wszystkie nazwy arkuszy zostały domyślnie zaznaczone, jeśli nie chcesz dzielić niektórych arkuszy, możesz je odznaczyć;


2: Jeśli chcesz uniknąć dzielenia ukrytych lub pustych arkuszy, możesz zaznaczyć plik Pomiń ukryte arkusze or Pomiń puste arkusze.);


3: a także możesz sprawdzić Określ zapisywanie format i aby wybrać podzielenie arkuszy, a następnie zapisz jako plik tekstowy, plik pdf lub plik csv, domyślnie, jeśli nie zaznaczysz tej opcji, podzieli arkusze i zapisze jako skoroszyt.

Krok 3: Następnie kliknij Rozdzielać i wybierz folder, w którym chcesz umieścić nowe skoroszyty. Zobacz zrzut ekranu:
arkusze eksportu doc ​​6

Krok 4: A następnie kliknij OK, a następnie każdy sprawdzony arkusz roboczy w Podziel skoroszyt okno dialogowe jest eksportowane i zapisywane jako osobny skoroszyt. Każdy nowy skoroszyt nosi nazwę oryginalnego arkusza. Zobacz zrzut ekranu:
arkusze eksportu doc ​​5

Kliknij, aby dowiedzieć się więcej o tym narzędziu Podziel skoroszyt.

strzałka niebieski prawy bąbelek Wyeksportuj i zapisz każdy arkusz jako nowy skoroszyt


Szybko podziel dane na wiele arkuszy roboczych na podstawie kolumn lub ustalonych wierszy w programie Excel

Przypuśćmy, że masz arkusz, który zawiera dane w kolumnach od A do G, nazwisko sprzedawcy znajduje się w kolumnie A i musisz automatycznie podzielić te dane na wiele arkuszy w oparciu o kolumnę A w tym samym skoroszycie, a każdy sprzedawca zostanie podzielony na nowy arkusz roboczy. Kutools dla programu Excel'S Data podziału Narzędzie może pomóc w szybkim podzieleniu danych na wiele arkuszy roboczych na podstawie wybranej kolumny, jak na poniższym zrzucie ekranu pokazanym w programie Excel.  Kliknij, aby uzyskać w pełni funkcjonalny 30-dniowy bezpłatny okres próbny!
dane podzielone na dokumenty 2
 
Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do Excela, możesz wypróbować bez ograniczeń w 30 dniach.

Podobne artykuły:


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-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 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ęć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.