Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

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.


Minden lapot kötegelt mentéssel vagy exportálással CSV / PDF fájlként a Kutools for Excel programmal

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 Kutools for Excel segédprogram.

Kutools az Excel számára - Több mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! 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öbb mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! 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özt tartalmaz az Excel számára, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Letöltés és ingyenes próba most!

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
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.
  • To post as a guest, your comment is unpublished.
    prashant9810 · 1 years ago
    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
    • To post as a guest, your comment is unpublished.
      kellytte · 1 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Pav · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      Sriraj · 2 years ago
      ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False