Ugrás a tartalomra

Hogyan mentse vagy exportálja az egyes lapokat CSV / PDF fájlként az Excel programban?

Például van egy nagyméretű, több lapos munkafüzete, és el akarja menteni vagy exportálni az egyes lapokat különálló .csv fájlként vagy PDF fájlként. Hogyan lehet ezt egyszerűen és gyorsan elvégezni? Ebben a cikkben több módszert is bemutatok annak megoldására.


Mentse vagy exportálja az egyes lapokat CSV / PDF fájlként a Mentés másként funkcióval

Mint tudják, a Microsoft Excel az aktuális munkalapot egyedi .csv vagy PDF fájlként mentheti. Ezért minden lapot manuálisan egyesével .csv vagy PDF fájlként menthet vagy exportálhat.

1. Váltson át arra a munkalapra, amelyet egyedi .csv fájlként menteni vagy exportálni szeretne, majd kattintson a gombra filé (Vagy Iroda gomb)> Mentés másként.

2. A nyitó párbeszédpanelen adja meg a célmappát, ahová a .csv fájlt menti, majd kattintson a gombra Mentés típus négyzetet, és válassza a lehetőséget CSV (vesszővel elválasztva) (* .csv) or PDF (* .pdf) a legördülő listából, majd kattintson a gombra Megtakarítás gombot.

3. Két figyelmeztető párbeszédpanel jelenik meg egymás után. kérem kattintson OK > Igen.

Jegyzet: Ha az aktív munkalapot PDF fájlként menti, ezek a párbeszédpanelek nem jelennek meg. Csak folytassa a következő lépéssel.

4. Ismételje meg az 1-3. Lépést, hogy más lapokat egyenként .csv fájlként mentse.


Kötegelt mentés vagy exportálás minden lapot CSV fájlként VBA-val

Ha számos olyan lapot szeretne menteni vagy exportálni .csv fájlként, az első módszer elég időigényes és unalmas lesz. Ez a VBA egyszerűsítheti a munkát, és megkönnyíti az egyes munkalapok .csv fájlként történő mentését vagy exportálását.

1. nyomja meg más + F11 gombokat egyidejűleg a Microsoft Visual Basic for Application ablak megnyitásához.

2. kettyenés betétlap > Modulok, majd illessze be a következő VBA kódot az új modul ablakba.

VBA: Minden lapot külön CSV fájlként menthet

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. Kattintson a futás vagy nyomja meg a gombot F5 kulcs a VBA futtatásához.

4. A megnyíló Tallózás párbeszédpanelen adja meg a célmappát, ahová az összes .csv fájlt elmenti, majd kattintson a gombra OK gombot.

Ekkor látni fogja, hogy minden lapot különálló .csv fájlként mentenek / exportálnak a megadott célmappába.


Kötegelt mentés vagy exportálás minden lap CSV/PDF fájlként a Kutools for Excel segítségével

Egyes Excel felhasználók bizonyos okokból elutasíthatják a VBA kódot. Ne aggódj! A harmadik módszer az egyes munkalapok kötegelt mentését vagy exportálását .csv fájlként vagy PDF fájlként is megkönnyíti Felosztott munkafüzet a Kutools for Excel segédprogramja.

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

1. Kattintson a Vállalkozás > Munkafüzet > Felosztott munkafüzet.

doc minden lapot a csv 2-be

2. A megnyíló Munkafüzet felosztás párbeszédpanelen

doc minden lapot a csv 8-be

(1) Válassza ki folyamatosan az összes lapot. Ha nem, akkor előtte bejelölheti a jelölőnégyzetet Munkalap neve az összes lap kiválasztásához;

(2) Ellenőrizze a Adja meg a mentési formátumot választási lehetőség;

(3) Kattintson az alábbi négyzetre Adja meg a mentési formátumot opciót, és válasszuk ki CSV (Macintosh) (*. Csv) or PDF (* .pdf) a legördülő listából.

(4) Kattintson a gombra Hasított gombot.

 

Megjegyzések: Ha vannak rejtett és üres munkalapok a munkafüzetben, ellenőrizze a A rejtett munkalapok kihagyása doboz és a Üres munkalap kihagyása mező figyelmen kívül hagyja az összes üres vagy rejtett lapot exportálás közben.

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

3. A megnyíló Mappa tallózása párbeszédpanelen adja meg a célmappát, ahová az összes .csv- vagy PDF-fájlt elmenti, majd kattintson a OK gombot.

Most látni fogja, hogy minden lapot exportálnak és elmentenek .csv fájlként a megadott mappába.


Bemutató: minden lapot CSV / PDF fájlként menthet vagy exportálhat az Excel programba


Kutools az Excel számára: Több mint 300 praktikus eszköz a keze ügyében! Kezdje el a 30 napos ingyenes próbaidőszakot funkciók korlátozása nélkül. Töltse le most!

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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