Come convertire più cartelle di lavoro o fogli di lavoro in file PDF contemporaneamente in Excel?
A volte, è necessario convertire i file Excel in file PDF, in modo che non possano essere modificati da altri. In Excel, possiamo salvare un file Excel come file PDF utilizzando la funzione Salva con nome. Ma come convertire più cartelle di lavoro in file PDF contemporaneamente in Excel?
- Converti più cartelle di lavoro in file PDF con la funzione Salva con nome una per una
- Converti più cartelle di lavoro in file PDF con codice VBA contemporaneamente
- Converti più cartelle di lavoro in file PDF con una potente funzionalità
- Converti più fogli di lavoro da una cartella di lavoro in file PDF separati con codice VBA
- Converti più fogli di lavoro da una cartella di lavoro in file PDF separati con una comoda funzionalità
Converti più cartelle di lavoro in file PDF con la funzione Salva con nome una per una
Normalmente, la funzione Salva con nome in Excel può aiutarti a salvare l'intera cartella di lavoro in un file PDF, per favore fai come segue:
1. Avvia la cartella di lavoro che desideri convertire in formato PDF.
2. Clic Compila il > Salva con nome, E nel Salva con nome finestra di dialogo, specificare una cartella per salvare il nuovo file, quindi selezionare PDF dal Salva come tipo elenco a discesa, quindi fare clic su Opzioni pulsante, vedi screenshot:
3. Quindi, nel saltò fuori Opzioni finestra di dialogo, controllare Eserciziario intero, vedi screenshot:
4. E poi clicca OK > Risparmi, l'intera cartella di lavoro è stata salvata come formato di file PDF.
Converti più cartelle di lavoro in file PDF con codice VBA contemporaneamente
Se ci sono centinaia di file Excel che devono essere convertiti, il metodo sopra sarà fastidioso, qui parlerò di un codice VBA per convertire più cartelle di lavoro in file PDF contemporaneamente, per favore esegui i seguenti passaggi:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: converti 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. Quindi, premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra, selezionare una cartella che contiene le cartelle di lavoro che si desidera convertire, vedere screenshot:
4. Quindi fare clic su OK, viene visualizzata un'altra finestra, selezionare un percorso di cartella in cui si desidera visualizzare i nuovi file PDF, vedere screenshot:
5. E poi, clik OK, dopo aver terminato la conversione, puoi andare alla cartella specificata per visualizzare in anteprima il risultato convertito, vedi screenshot:
Converti più cartelle di lavoro in file PDF con una potente funzionalità
Se si dispone di Kutools for Excel, Con la sua Convertitore di formati utility, puoi convertire rapidamente più cartelle di lavoro in file PDF contemporaneamente.
Dopo l'installazione Kutools for Excel, per favore fai come questo:
1. Clic Kutools Plus > Cartella di lavoro > Convertitore di formati, vedi screenshot:
2. E viene visualizzata una finestra di messaggio per ricordare che è necessario chiudere le cartelle di lavoro che si desidera convertire.
3. Clic OK, quindi, nel file Convertitore formato file finestra di dialogo, specificare le seguenti opzioni:
- Sotto il Converti tipo elenco a discesa, selezionare Cartella di lavoro Excel in PDF;
- Quindi fare clic su Aggiungi pulsante per aggiungere i file Excel che desideri convertire, puoi aggiungere le cartelle di lavoro dal disco del tuo computer o da OneDrive di cui hai bisogno;
4. Dopo aver inserito le cartelle di lavoro che vuoi convertire, sempre nel file Convertitore di formato file finestra di dialogo, fare clic pulsante per scegliere un percorso di cartella per l'output dei file convertiti, quindi specificare alcune operazioni necessarie nella parte inferiore della finestra di dialogo, vedere screenshot:
- Se è necessario convertire anche le cartelle di lavoro nelle sottocartelle, controllare il file Includi sottocartelle quando aggiungi cartelle casella di controllo;
- Se desideri rimuovere i file originali dopo la conversione, controlla il file Elimina i file di origine dopo la conversione scatola;
- Se desideri mantenere la data di modifica dei file originali, controlla il file Mantieni la data modificata dei file originali scatola;
- La struttura della directory del file può essere mantenuta controllando il La struttura della directory del file viene preservata durante la conversione scatola;
5. Quindi fare clic OK per avviare la conversione, quando tutti i file Excel specificati sono stati convertiti in file PDF, puoi andare alla cartella specificata per visualizzare in anteprima il risultato convertito, vedi screenshot:
Converti più fogli di lavoro da una cartella di lavoro in file PDF separati con codice VBA
In alcuni casi, potresti voler convertire ogni foglio di lavoro nella cartella di lavoro in file PDF separati, se ci sono molti fogli nella tua cartella di lavoro, il codice VBA sottostante può aiutarti a salvare ogni foglio di lavoro come file PDF contemporaneamente.
1. Apri una cartella di lavoro che desideri convertire e quindi tieni premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: converti 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. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra, scegliere un percorso di cartella per individuare i file PDF convertiti, vedere screenshot:
4. Quindi, fare clic OK pulsante, tutti i fogli di lavoro all'interno della cartella di lavoro corrente sono stati convertiti in file PDF separatamente, vedi screenshot:
Converti più fogli di lavoro da una cartella di lavoro in file PDF separati con una comoda funzionalità
Kutools for Excel supporta anche una funzione utile: Cartella di lavoro divisa, con questa funzione, puoi salvare più fogli di lavoro all'interno della cartella di lavoro per separare file Excel, file Txt, file CSV e file PDF di cui hai bisogno.
Dopo l'installazione Kutools for Excel, per favore fai come questo:
1. Apri la cartella di lavoro in cui desideri salvare ogni foglio come file PDF, quindi fai clic su Kutool Plus > Cartella di lavoro > Cartella di lavoro divisa, vedi screenshot:
2. Nel Cartella di lavoro divisa finestra di dialogo, seleziona il foglio che desideri salvare, quindi scegli PDF (* .pdf) dal Salva come tipo elenco a discesa, quindi fare clic su Diviso pulsante, nel Seleziona cartella finestra, specifica una cartella per mettere i file convertiti, vedi screenshot:
3. E poi, tutti i fogli di lavoro selezionati nella cartella di lavoro corrente sono stati salvati singolarmente in file PDF, vedi screenshot:
Articoli più relativi:
- Converti più file Xls in file Xlsx in Excel
- Per convertire un vecchio file xls Excel in un nuovo file xlsx, puoi applicare la funzione Salva con nome in Excel, ma, se sono necessari più file xls da convertire, come potresti gestire questa attività in modo rapido e semplice?
- Salva tutti i fogli di lavoro solo come valori
- Se hai una cartella di lavoro che contiene più formule, ora devi distribuire questo file ad altri utenti, non vuoi mostrare le formule ma vengono visualizzati solo i valori. Normalmente, possiamo salvare rapidamente un foglio di lavoro come valori copiando e incollando i dati solo come valori. Ma come puoi salvare tutti i fogli di lavoro solo come valori senza copiarli e incollarli uno per uno?
- Pulsante di comando per salvare il foglio di lavoro attivo come file PDF
- Mentre lavori in Microsoft Excel, potresti dover affrontare il problema di salvare il foglio di lavoro attivo come file PDF. In questo articolo, puoi imparare come salvare il foglio di lavoro attivo come file PDF con codice VBA tramite un pulsante di comando. E se desideri anche salvare un intervallo o ciascun foglio di lavoro nella cartella di lavoro attiva come singolo file PDF, anche questo articolo può aiutarti.
- Dividi un tavolo grande in più tavolini
- Se si dispone di un foglio di lavoro di grandi dimensioni che contiene più colonne e centinaia o migliaia di dati di righe, ora si desidera dividere questa tabella di grandi dimensioni in più tabelle piccole in base al valore della colonna o al numero di righe per ottenere i seguenti risultati. Come hai potuto gestire questa attività in Excel?
- Dividi una cartella di lavoro per separare i file Excel
- Potrebbe essere necessario dividere una cartella di lavoro di grandi dimensioni per separare i file Excel salvando ogni foglio di lavoro della cartella di lavoro come un singolo file Excel. Ad esempio, puoi dividere una cartella di lavoro in più file Excel individuali e quindi consegnare ogni file a una persona diversa per gestirlo. In questo modo, puoi ottenere che determinate persone gestiscano dati specifici e mantengano i tuoi dati al sicuro. Questo articolo introdurrà i modi per dividere una grande cartella di lavoro per separare i file Excel in base a ciascun foglio di lavoro.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!