Ugrás a tartalomra

Hogyan konvertálhat egyszerre több munkafüzetet vagy munkalapot PDF fájlokká az Excelben?

Valamikor át kell alakítania az Excel fájlokat PDF fájlokká, hogy mások ne módosíthassák azokat. Az Excel programban Excel fájlt menthetünk PDF fájlként a Mentés másként funkció használatával. De hogyan konvertálhat egyszerre több munkafüzetet PDF fájlokká az Excel programban?


Több munkafüzet konvertálása PDF fájlokká a Mentés másként funkcióval egyenként

Normál esetben az Excel Mentés másként funkciója segíthet a teljes munkafüzet mentésében PDF-fájlba, kérjük, tegye a következőket:

1. Indítsa el azt a munkafüzetet, amelyet PDF-formátumba kíván konvertálni.

2. Kattints filé > Mentés másként, és a Mentés másként párbeszédpanelen adjon meg egy mappát az új fájl mentéséhez, majd válassza a lehetőséget PDF tól Mentés típus legördülő listából, majd kattintson a gombra Opciók gomb, lásd a képernyőképet:

3. Aztán beugrott Opciók párbeszédpanelen ellenőrizze Teljes munkafüzet, lásd a képernyőképet:

4. Kattintson a gombra OK > Megtakarítás, ez az egész munkafüzet PDF fájl formátumban mentésre került.

tippek: Ha több munkafüzetet kell átalakítani, kérjük, hajtsa végre a fenti lépéseket a munkafüzetek egyesével történő PDF-fájlokba mentéséhez.

Több munkafüzet konvertálása PDF fájlokká VBA kóddal egyszerre

Ha több száz Excel-fájlt kell konvertálni, a fenti módszer problémás lesz, itt egy VBA-kódról fogok beszélni, amely egyszerre több munkafüzetet konvertál PDF-fájlokká, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Több munkafüzet konvertálása egyszerre PDF fájlokká

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy ablak, válasszon egy mappát, amely tartalmazza az átalakítandó munkafüzeteket, lásd a képernyőképet:

4. Ezután kattintson a gombra OK, egy másik ablak jelenik meg, válassza ki a mappa elérési útját, ahová az új PDF fájlokat szeretné kiadni, lásd a képernyőképet:

5. És akkor, klikk OKaz átalakítás befejezése után a megadott mappába léphet, hogy megtekintse az átalakított eredményt, lásd a képernyőképeket:


Konvertáljon több munkafüzetet PDF-fájlokká egy hatékony funkcióval

Ha van Kutools az Excel számára, Annak Format Converter segédprogram segítségével gyorsan átalakíthat több munkafüzetet PDF fájlokká egyszerre.

tippek:Ennek alkalmazásához Format Converter funkció, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Munkafüzet > Format Converter, lásd a képernyőképet:

2. És megjelenik egy felszólító mező, amely emlékeztet arra, hogy be kell zárnia az átalakítandó munkafüzeteket.

3. Kattints OK, majd a FileFormat konverter párbeszédpanelen adja meg a következő lehetőségeket:

  • Alatt Konvertálás típusa legördülő listából válassza a lehetőséget Excel munkafüzet PDF-be;
  • Ezután kattintson hozzáad gombra a konvertálni kívánt Excel fájlok hozzáadásához, hozzáadhatja a munkafüzeteket a számítógépről vagy a OneDrive-ból, amire szüksége van; 

4. A konvertálni kívánt munkafüzetek behelyezése után még mindig a Fájlformátum átalakító párbeszédpanelen kattintson a gombra gombot, hogy kiválasszon egy mappaútvonalat az átalakított fájlok kimenetéhez, majd a párbeszédpanel alján adjon meg néhány szükséges műveletet, lásd a képernyőképet:

Megjegyzések: A fenti párbeszédpanelen:
  • Ha az almappákban lévő munkafüzeteket is átalakítani kellett, ellenőrizze a Mappák hozzáadásakor vegye fel az almappákat jelölőnégyzet;
  • Ha konvertálás után el akarja távolítani az eredeti fájlokat, ellenőrizze a A konvertálás után törölje a forrásfájlokat doboz;
  • Ha meg akarja őrizni az eredeti fájlok módosított dátumát, ellenőrizze a Az eredeti fájlok módosított dátumának megőrzése doboz;
  • A fájl könyvtárstruktúrája a Átalakításkor a fájl könyvtárstruktúrája megmarad doboz;

5. Ezután kattintson OK az átalakítás megkezdéséhez, amikor az összes megadott Excel fájlt konvertálta PDF fájlokká, lépjen a megadott mappába, hogy megtekintse az átalakított eredményt, lásd a képernyőképeket:


Konvertáljon több munkalapot egy munkafüzetből, hogy különítsen el PDF fájlokat VBA kóddal

Bizonyos esetekben érdemes a munkafüzet egyes munkalapjait külön PDF-fájlokká konvertálni, ha sok munkafüzet van a munkakönyvben, az alábbi VBA-kód segíthet az egyes munkalapok egyszerre PDF-fájlként történő mentésében.

1. Nyissa meg a konvertálni kívánt munkafüzetet, majd tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Több munkalap konvertálása egy munkafüzetből PDF-fájlok elválasztására

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy ablak, kérjük, válasszon egy mappa elérési utat az átalakított PDF fájlok megtalálásához, lásd a képernyőképet:

4. Ezután kattints a gombra OK gombra, az aktuális munkafüzet összes munkalapja külön lett konvertálva PDF-fájlokká, lásd a képernyőképet:


Konvertáljon több munkalapot egy munkafüzetből, hogy elkülönítse a PDF fájlokat egy praktikus funkcióval

Kutools az Excel számára egy hasznos funkciót is támogat - Felosztott munkafüzet, ezzel a szolgáltatással több munkalapot menthet a munkafüzetbe, hogy szükség szerint elkülöníthesse az Excel-, a Txt-, a CSV- és a PDF-fájlokat.

tippek:Ennek alkalmazásához Felosztott munkafüzet funkció, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Nyissa meg azt a munkafüzetet, amelybe minden lapot PDF fájlként szeretne menteni, majd kattintson a gombra Kutool Plus > Munkafüzet > Felosztott munkafüzet, lásd a képernyőképet:

2. Az Felosztott munkafüzet párbeszédpanelen jelölje be a menteni kívánt lapot, majd válassza a lehetőséget PDF (* .pdf) tól Mentés típus legördülő listából, majd kattintson a gombra Hasított gombra, a Válassza ki a Mappa ablakban adjon meg egy mappát az átalakított fájlok elhelyezéséhez, lásd a képernyőképet:

3. Ezután az aktuális munkafüzet összes kiválasztott munkalapját külön-külön mentette PDF-fájlokba, lásd a képernyőképet:


Relatívabb cikkek:

  • Több Xls fájl konvertálása Xlsx fájlokká az Excelben
  • A régi xls Excel fájl új xlsx fájlokká történő átalakításához alkalmazhatja az Mentés másként funkciót az Excel programban, de ha több xls fájlra van szükség átalakításra, hogyan lehetne ezt a feladatot gyorsan és egyszerűen kezelni?
  • Mentse el az összes munkalapot csak értékként
  • Ha van egy munkafüzete, amely több képletet tartalmaz, most el kell terjesztenie ezt a fájlt más felhasználóknak, nem a képleteket szeretné megjeleníteni, hanem csak az értékeket jeleníti meg. Normál esetben gyorsan elmenthetünk egy munkalapot értékként, ha az adatokat csak értékekként másoljuk és illesztjük be. De hogyan menthetné el az összes munkalapot csak értékként anélkül, hogy egyesével másolná és beillesztené?
  • Parancs gomb az aktív munkalap PDF fájlként történő mentéséhez
  • Miközben a Microsoft Excel programban dolgozik, szembesülhet az aktív munkalap PDF fájlként történő mentésével. Ebben a cikkben megtudhatja, hogyan mentheti az aktív munkalapot PDF fájlként VBA kóddal a Parancsgomb segítségével. Ha pedig egy tartományt vagy minden munkalapot el akar menteni az aktív munkafüzetbe külön PDF fájlként, akkor ez a cikk is segítségére lehet.
  • Hasítson egy nagy asztalt több kis asztalra
  • Ha van egy nagy munkalapja, amely több oszlopot és több száz vagy ezer soros adatot tartalmaz, akkor ezt a nagy táblázatot több kis táblára szeretné felosztani az oszlop értéke vagy a sorok száma alapján, hogy a következő eredményeket kapja. Hogyan tudta kezelni ezt a feladatot az Excel programban?
  • Osztjon egy munkafüzetet az Excel fájlok szétválasztásához
  • Előfordulhat, hogy fel kell osztania egy nagy munkafüzetet az Excel fájlok elkülönítéséhez, a munkafüzet egyes munkalapjainak külön Excel fájlként történő mentésével. Például feloszthat egy munkafüzetet több különálló Excel fájlba, majd minden fájlt másnak kézbesít, hogy kezelje. Ezzel elérheti, hogy bizonyos személyek bizonyos adatokat kezeljenek, és biztonságban tarthassa adatait. Ez a cikk bemutatja, hogyan lehet egy nagy munkafüzetet felosztani az Excel-fájlok elválasztására az egyes munkalapok alapján.

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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello this might be to much, but is there a way to make a VBA that would separate multiples workbooks worksheets into to their own pdf file and for each header to be a text in a certain cell in worksheet for each one?
This comment was minimized by the moderator on the site
Thank you so much for this code.
This comment was minimized by the moderator on the site
the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
This comment was minimized by the moderator on the site
This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
This comment was minimized by the moderator on the site
i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations