Come convertire più cartelle di lavoro o fogli di lavoro in file PDF contemporaneamente in Excel?

La conversione dei file Excel in PDF è un'operazione comune quando si desidera condividere i dati prevenendo modifiche. Sebbene la funzione Salva con nome di Excel consenta di convertire una singola cartella di lavoro in PDF, può risultare dispendiosa in termini di tempo per più file. Questa guida esplora vari metodi, inclusi codici VBA e Kutools per Excel, per convertire rapidamente più cartelle di lavoro o fogli di lavoro in file PDF contemporaneamente.

• Convertire più cartelle di lavoro in file PDF utilizzando la funzione Salva con nome una alla volta
• Convertire più cartelle di lavoro in file PDF utilizzando il codice VBA tutto in una volta
• Convertire più cartelle di lavoro in file PDF utilizzando una funzionalità avanzata
• Convertire più fogli di lavoro da una cartella di lavoro in file PDF separati utilizzando il codice VBA
• Convertire più fogli di lavoro da una cartella di lavoro in file PDF separati utilizzando una funzionalità pratica

Convertire più cartelle di lavoro in file PDF utilizzando la funzione Salva con nome una alla volta

Normalmente, la funzione Salva con nome in Excel ti consente di salvare l'intera cartella di lavoro come file PDF, procedi nel seguente modo:

1. Apri la cartella di lavoro che desideri convertire in formato PDF.

2. Clicca su File > Salva con nome, e nella finestra di dialogo Salva con nome, specifica una cartella per salvare il nuovo file, quindi seleziona PDF dall'elenco a discesa Tipo di file, e poi clicca sul pulsante Opzioni, vedi screenshot:

3. Successivamente, nella finestra di dialogo Opzioni visualizzata, seleziona Tutta la cartella di lavoro, vedi screenshot:

4. Quindi clicca su OK > Salva, l'intera cartella di lavoro verrà salvata in formato PDF.

Convertire più cartelle di lavoro in file PDF utilizzando il codice VBA tutto in una volta

Se ci sono centinaia di file Excel da convertire, il metodo sopra descritto potrebbe essere complicato. Qui parlerò di un codice VBA per convertire più cartelle di lavoro in file PDF contemporaneamente, segui i seguenti passaggi:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Convertire più cartelle di lavoro in file PDF contemporaneamente

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. Premi il tasto F5 per eseguire questo codice, e apparirà una finestra; seleziona una cartella contenente le cartelle di lavoro che desideri convertire, vedi screenshot:

4. Clicca su OK, apparirà un'altra finestra; seleziona un percorso di cartella dove vuoi esportare i nuovi file PDF, vedi screenshot:

5. Clicca su OK, dopo aver completato la conversione, puoi andare nella cartella specificata per visualizzare il risultato della conversione, vedi screenshot:

Convertire più cartelle di lavoro in file PDF utilizzando una funzionalità avanzata

Se possiedi Kutools per Excel, con la sua utility Convertitore di Formato, puoi convertire rapidamente più cartelle di lavoro in file PDF contemporaneamente.

1. Clicca su Kutools Plus > Cartella di lavoro > Convertitore di Formato, vedi screenshot:

2. Apparirà una finestra di avviso che ti ricorda di chiudere le cartelle di lavoro che desideri convertire.

3. Clicca su OK, quindi, nella finestra di dialogo Convertitore di Formato File , specifica le seguenti opzioni:

• Nell'elenco a discesa Tipo di conversione, seleziona Converti Excel in PDF;
• Clicca sul pulsante Aggiungi per selezionare i file Excel che desideri convertire. Puoi scegliere cartelle di lavoro dal tuo computer o OneDrive secondo necessità.

4. Dopo aver inserito le cartelle di lavoro che desideri convertire, ancora nella finestra Convertitore di Formato File clicca sul pulsante per scegliere un percorso di cartella per esportare i file convertiti, e poi specifica alcune operazioni necessarie nella parte inferiore della finestra di dialogo, vedi screenshot:

5. Quindi clicca su OK per iniziare la conversione. Una volta convertiti tutti i file Excel specificati in PDF, vai alla cartella designata per visualizzare i risultati. Vedi gli screenshot qui sotto:

Convertire più fogli di lavoro da una cartella di lavoro in file PDF separati utilizzando il codice VBA

In alcuni casi, potresti voler convertire ogni foglio di lavoro in una cartella di lavoro in file PDF separati. Se la tua cartella di lavoro contiene molte schede, il codice VBA seguente può aiutarti a salvare ogni foglio di lavoro come file PDF separato simultaneamente.

1. Apri una cartella di lavoro che desideri convertire, e poi tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Convertire più fogli di lavoro da una cartella di lavoro in file PDF separati

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. Premi il tasto F5 per eseguire questo codice, e apparirà una finestra; scegli un percorso di cartella per salvare i file PDF convertiti. Vedi screenshot:

4. Clicca sul pulsante OK, e tutti i fogli di lavoro nella cartella di lavoro corrente verranno convertiti in file PDF separati:

Convertire più fogli di lavoro da una cartella di lavoro in file PDF separati utilizzando una funzionalità pratica

Kutools per Excel supporta anche una funzionalità utile - Dividi Cartella di Lavoro, con questa funzionalità, puoi salvare più fogli di lavoro all'interno della cartella di lavoro in file Excel separati, file Txt, file CSV e file PDF secondo necessità.

1. Apri la cartella di lavoro in cui desideri salvare ogni foglio come file PDF separato, e poi clicca su Kutool Plus > Cartella di lavoro > Dividi Cartella di Lavoro, vedi screenshot:

2. Nella finestra di dialogo Dividi Cartella di Lavoro, seleziona i fogli che desideri salvare, e poi scegli PDF (*.pdf) dall'elenco a discesa Tipo di file, e clicca sul pulsante Dividi, nella finestra Seleziona Cartella, specifica una cartella per inserire i file convertiti, vedi screenshot:

3. E poi, tutti i fogli di lavoro selezionati nella cartella di lavoro corrente saranno salvati come file PDF individualmente, vedi screenshot:

Altri articoli correlati: