Preskoči na glavno vsebino

Kako pretvoriti več delovnih zvezkov ali delovnih listov hkrati v datoteke PDF v Excelu?

Včasih morate pretvoriti datoteke Excel v datoteke PDF, tako da jih drugi ne morejo spremeniti. V Excelu lahko datoteko Excel shranimo kot datoteko PDF s funkcijo Shrani kot. Kako pa pretvoriti več delovnih zvezkov v datoteke PDF hkrati v Excelu?


Pretvorite več delovnih zvezkov v datoteke PDF s funkcijo Shrani kot eno po eno

Običajno vam funkcija Shrani kot v Excelu pomaga shraniti celoten delovni zvezek v datoteko PDF. Naredite naslednje:

1. Zaženite delovni zvezek, ki ga želite pretvoriti v format PDF.

2. Kliknite file > Shrani kot, in v Shrani kot v pogovornem oknu določite mapo za shranjevanje nove datoteke in izberite PDF Iz Shrani kot vrsto spustnega seznama in nato kliknite možnosti gumb, glej posnetek zaslona:

3. Potem, v izskočil možnosti pogovorno okno, preverite Ves delovni zvezek, glej posnetek zaslona:

4. In nato kliknite OK > Shrani, ta celotna delovna zveza je bila shranjena v obliki datoteke PDF.

nasveti: Če je treba pretvoriti več delovnih zvezkov, uporabite zgornje korake, da jih boste posamično shranili v datoteke PDF.

Pretvorite več delovnih zvezkov v datoteke PDF s kodo VBA hkrati

Če je treba pretvoriti na stotine datotek Excel, bo zgornja metoda težavna, tukaj bom govoril o kodi VBA za pretvorbo več delovnih zvezkov v datoteke PDF naenkrat, naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Pretvorite več delovnih zvezkov v datoteke PDF hkrati

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. Nato pritisnite F5 tipko za zagon te kode in prikazalo se bo okno, izberite mapo, ki vsebuje delovne zvezke, ki jih želite pretvoriti, glejte posnetek zaslona:

4. Nato kliknite OK, odpre se novo okno, izberite pot do mape, kamor želite izpisati nove datoteke PDF, glejte posnetek zaslona:

5. In potem, klik OK, po končani pretvorbi lahko odprete določeno mapo za predogled pretvorjenega rezultata, glejte posnetke zaslona:


Pretvorite več delovnih zvezkov v datoteke PDF z zmogljivo funkcijo

Če imate Kutools za Excel, Z njegovim Pretvornik formatov Pripomoček lahko hkrati hitro pretvorite več delovnih zvezkov v datoteke PDF.

nasveti:Če želite uporabiti to Pretvornik formatov funkcijo, najprej morate prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite tako:

1. Kliknite Kutools Plus > Delovni zvezek > Pretvornik formatov, glej posnetek zaslona:

2. Pojavi se pozivno polje, ki vas opozori, da morate zapreti delovne zvezke, ki jih želite pretvoriti.

3. Kliknite OK, nato v Pretvornik datotek v pogovornem oknu določite naslednje možnosti:

  • Pod Pretvori vrsto spustnega seznama izberite Excelov delovni zvezek v PDF;
  • Nato kliknite Dodaj gumb za dodajanje Excelovih datotek, ki jih želite pretvoriti, lahko dodate delovne zvezke z računalniškega diska ali OneDrive po potrebi; 

4. Po vstavitvi delovnih zvezkov, ki jih želite pretvoriti, še vedno v Pretvornik datotek pogovorno okno, kliknite gumb, da izberete eno pot do mape za izhod pretvorjenih datotek, nato pa na dnu pogovornega okna določite nekaj operacij, ki jih potrebujete, glejte sliko zaslona:

Opombe: V zgornjem pogovornem oknu:
  • Če je bilo treba pretvoriti tudi delovne zvezke v podmapah, preverite Pri dodajanju map vključite podmape potrditveno polje;
  • Če želite po pretvorbi odstraniti izvirne datoteke, preverite Po pretvorbi izbrišite izvorne datoteke škatla;
  • Če želite obdržati spremenjeni datum izvirnih datotek, preverite Naj bo spremenjen datum izvirnih datotek škatla;
  • Strukturo imenika datoteke lahko obdržite s preverjanjem Struktura imenika datoteke se ob pretvorbi ohrani škatla;

5. Nato kliknite OK za začetek pretvorbe, ko so vse določene datoteke Excel pretvorjene v datoteke PDF, pojdite v določeno mapo za predogled pretvorjenega rezultata, glejte posnetke zaslona:


Pretvorite več delovnih listov iz delovnega zvezka v datoteke PDF s kodo VBA

V nekaterih primerih boste morda želeli vsak delovni list v delovnem zvezku pretvoriti v ločene datoteke PDF. Če je v vašem delovnem zvezku veliko listov, vam lahko spodnja koda VBA pomaga shraniti vsak delovni list kot datoteko PDF hkrati.

1. Odprite delovni zvezek, ki ga želite pretvoriti, in nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Pretvorite več delovnih listov iz delovnega zvezka v ločene datoteke PDF

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. Nato pritisnite F5 tipko za zagon te kode in odprlo se bo okno, izberite pot do mape za iskanje pretvorjenih datotek PDF, glejte posnetek zaslona:

4. Nato kliknite OK , so vsi delovni listi v trenutnem delovnem zvezku pretvorjeni v datoteke PDF ločeno, glejte posnetek zaslona:


Pretvorite več delovnih listov iz delovnega zvezka v datoteke PDF s priročno funkcijo

Kutools za Excel podpira tudi uporabno funkcijo - Razdeljeni delovni zvezeks to funkcijo lahko v delovni zvezek shranite več delovnih listov, da po potrebi ločite Excel datoteko, datoteko Txt, datoteko CSV in datoteko PDF.

nasveti:Če želite uporabiti to Razdeljeni delovni zvezek funkcijo, najprej morate prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite tako:

1. Odprite delovni zvezek, v katerega želite shraniti vsak list kot datoteko PDF, in kliknite Kutool Plus > Delovni zvezek > Razdeljeni delovni zvezek, glej posnetek zaslona:

2. v Razdeljeni delovni zvezek v pogovornem oknu označite list, ki ga želite shraniti, in nato izberite PDF (* .pdf) Iz Shrani kot vrsto spustnega seznama in nato kliknite Split v gumbu Izberite mapo okno, določite mapo za shranjevanje pretvorjenih datotek, glejte posnetek zaslona:

3. Nato so bili vsi izbrani delovni listi v trenutnem delovnem zvezku posamezno shranjeni v datoteke PDF, glejte posnetek zaslona:


Več relativnih člankov:

  • Pretvorite več datotek Xls v datoteke Xlsx v Excelu
  • Če želite pretvoriti staro datoteko xls Excel v novo datoteko xlsx, lahko v Excelu uporabite funkcijo Shrani kot, če pa je treba pretvoriti več datotek xls, kako lahko to nalogo opravite hitro in enostavno?
  • Shrani vse delovne liste samo kot vrednosti
  • Če imate delovni zvezek, ki vsebuje več formul, morate to datoteko distribuirati drugim uporabnikom, formul ne želite prikazati, ampak bodo prikazane samo vrednosti. Običajno lahko delovni list hitro shranimo kot vrednosti s kopiranjem in lepljenjem podatkov samo kot vrednosti. Toda kako lahko vse delovne liste shranite kot vrednosti samo brez kopiranja in lepljenja enega za drugim?
  • Ukazni gumb za shranjevanje aktivnega delovnega lista kot datoteke PDF
  • Med delom v programu Microsoft Excel se lahko soočite s težavo shranjevanja aktivnega delovnega lista kot datoteke PDF. V tem članku se lahko naučite, kako prek ukaznega gumba shranite aktivni delovni list kot datoteko PDF s kodo VBA. Če želite tudi obseg ali vsak delovni list shraniti v aktivni delovni zvezek kot posamezno datoteko PDF, vam lahko pomaga tudi ta članek.
  • Razdelite veliko mizo na več majhnih miz
  • Če imate velik delovni list, ki vsebuje več stolpcev in stotine ali tisoče podatkov vrstic, zdaj želite razdeliti to veliko tabelo na več majhnih tabel glede na vrednost stolpca ali število vrstic, da dobite naslednje rezultate. Kako ste se lahko spoprijeli s to nalogo v Excelu?
  • Razdelite delovni zvezek, da ločite Excel datoteke
  • Morda boste morali razdeliti velik delovni zvezek, da boste ločili Excelove datoteke, pri čemer boste vsak delovni list delovnega zvezka shranili kot posamezno Excelovo datoteko. Delovni zvezek lahko na primer razdelite na več posameznih Excelovih datotek in nato vsako datoteko dostavite različni osebi, ki jo bo obdelala. S tem lahko dosežete, da določene osebe obdelujejo določene podatke in jih varujejo. Ta članek bo predstavil načine za razdelitev velikega delovnega zvezka za ločevanje Excelovih datotek na podlagi vsakega delovnega lista.

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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