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 > Prihranek, 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:

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: