Przejdź do głównej zawartości

Jak zapisać lub wyeksportować każdy arkusz jako plik CSV / PDF w programie Excel?

Na przykład masz duży skoroszyt z wieloma arkuszami i chcesz zapisać lub wyeksportować każdy arkusz jako osobny plik .csv lub plik PDF, jak zrobić to łatwo i szybko? W tym artykule przedstawię kilka metod rozwiązania tego problemu.


Zapisz lub wyeksportuj każdy arkusz jako plik CSV / PDF z funkcją Zapisz jako

Jak wiesz, Microsoft Excel może zapisać bieżący arkusz jako pojedynczy plik .csv lub plik PDF. Dlatego możesz ręcznie zapisywać lub eksportować każdy arkusz jako plik .csv lub PDF.

1. Przejdź do arkusza, który chcesz zapisać lub wyeksportować jako pojedynczy plik .csv, i kliknij filet (lub Przycisk pakietu Office)> Zapisz jako.

2. W otwartym oknie dialogowym określ folder docelowy, w którym zostanie zapisany plik .csv, kliknij plik Zapisz jako typ i wybierz CSV (rozdzielany przecinkami) (* .csv) or PDF (* .pdf) z listy rozwijanej i kliknij Zapisz przycisk.

3. Będą się pojawiać kolejno dwa okna dialogowe z ostrzeżeniami. Proszę kliknąć OK > Tak.

Uwaga: Jeśli zapiszesz aktywny arkusz jako plik PDF, te okna dialogowe nie pojawią się. Po prostu przejdź do następnego kroku.

4. Powtórz powyższe kroki 1-3, aby po kolei zapisać inne arkusze jako osobne pliki .csv.


Zbiorcze zapisywanie lub eksportowanie każdego arkusza jako pliku CSV z VBA

Jeśli istnieje wiele arkuszy, które chcesz zapisać lub wyeksportować jako pliki .csv, pierwsza metoda będzie dość czasochłonna i żmudna. Ten VBA może uprościć pracę i ułatwić zapisywanie lub eksportowanie każdego arkusza jako pliku .csv.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć okno Microsoft Visual Basic for Application.

2. kliknij wstawka > Moduł, a następnie wklej następujący kod VBA do nowego okna modułu.

VBA: Zapisz każdy arkusz jako osobny plik CSV

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. Kliknij run lub naciśnij F5 klucz do uruchomienia tego VBA.

4. W otwartym oknie dialogowym Przeglądaj określ folder docelowy, w którym zostaną zapisane wszystkie pliki .csv, i kliknij plik OK przycisk.

Następnie zobaczysz, że każdy arkusz jest zapisywany / eksportowany jako osobny plik .csv w określonym folderze docelowym.


Zapisz lub wyeksportuj każdy arkusz jako plik CSV / PDF za pomocą Kutools for Excel

Niektórzy użytkownicy Excela mogą z pewnych powodów odrzucić kod VBA. Nie martw się! Trzecia metoda umożliwia również zbiorcze zapisywanie lub eksportowanie każdego arkusza jako pliku .csv lub pliku PDF za pomocą rozszerzenia Podziel skoroszyt użyteczność Kutools dla programu Excel.

Kutools dla programu Excel - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Zdobądź To Teraz

1. Kliknij Enterprise > skoroszyt > Podziel skoroszyt.

doc każdy arkusz do csv 2

2. W otwartym oknie dialogowym Podziel skoroszyt,

doc każdy arkusz do csv 8

(1) Kontynuuj wybieranie wszystkich arkuszy. Jeśli nie, możesz wcześniej zaznaczyć to pole wyboru Nazwa arkusza aby zaznaczyć wszystkie arkusze;

(2) Sprawdź Określ format zapisu opcja;

(3) Kliknij poniższe pole Określ format zapisu wybierz opcję i wybierz CSV (Macintosh) (*. Csv) or PDF (* .pdf) z rozwijanej listy.

(4) Kliknij Split przycisk.

 

Note: Jeśli w skoroszycie znajdują się ukryte i puste arkusze, zaznacz Pomiń ukryte arkusze pudełko i Pomiń pusty arkusz box zignoruje wszystkie puste lub ukryte arkusze podczas eksportowania.

Kutools dla programu Excel - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Zdobądź To Teraz

3. W otwartym oknie dialogowym Przeglądaj w poszukiwaniu folderu określ folder docelowy, w którym zostaną zapisane wszystkie pliki .csv lub PDF, i kliknij przycisk OK przycisk.

Teraz zobaczysz, że każdy arkusz jest eksportowany i zapisywany jako osobny plik .csv w określonym folderze.


Demo: zapisz lub wyeksportuj każdy arkusz jako plik CSV / PDF w programie Excel


Kutools dla programu Excel: Ponad 300 przydatnych narzędzi na wyciągnięcie ręki! Już dziś rozpocznij 30-dniowy bezpłatny okres próbny bez ograniczeń funkcji. Pobierz teraz!

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook.Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations