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 
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.
Krok 3: W Przenieś lub skopiuj w oknie dialogowym wybierz opcję (Nowa książka) element z rozwijanej listy Przenieś wybrane arkusze do książki.
Krok 4: Następnie kliknij OK, teraz przełączyłeś się na nowy skoroszyt z wyeksportowanymi lub skopiowanymi arkuszami, kliknij filet > Zapisz 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 i skorzystaj z 30-dniowego bezpłatnego okresu próbnego z pełnymi funkcjami! |
 |
| Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do Excela, możesz wypróbować bez ograniczeń w 30 dniach. |
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 SubKrok 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:
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:
Krok 2: W Podziel skoroszyt okno dialogowe, wykonaj poniższe czynności:
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 Split i wybierz folder, w którym chcesz umieścić nowe skoroszyty. Zobacz zrzut ekranu:
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:
Kliknij, aby dowiedzieć się więcej o tym narzędziu Podziel skoroszyt.
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ć pełny, 30-dniowy bezpłatny okres próbny! |
 |
| Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do Excela, możesz wypróbować bez ograniczeń w 30 dniach. |
Podobne artykuły:
- Połącz wiele skoroszytów w jeden skoroszyt
- Zapisz wybór jako pojedynczy plik
- Podziel skoroszyt, aby oddzielić pliki Excela
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
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!
