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
- Pretvorite več delovnih zvezkov v datoteke PDF s kodo VBA hkrati
- Pretvorite več delovnih zvezkov v datoteke PDF z zmogljivo funkcijo
- Pretvorite več delovnih listov iz delovnega zvezka v datoteke PDF s kodo VBA
- Pretvorite več delovnih listov iz delovnega zvezka v datoteke PDF s priročno funkcijo
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.
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.
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:
- Č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.
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
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...
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!
