Lissa ha una cartella di lavoro che contiene più fogli di lavoro. Vorrebbe creare PDF individuali per questi fogli di lavoro (un PDF per foglio di lavoro)

con il nome del PDF basato sul nome del foglio di lavoro. Si chiede se esiste un modo per farlo in Excel.

Ci sono modi per farlo, a seconda di quanto tempo vuoi spendere.

Se si tratta di un’occorrenza “una tantum”, potresti considerare di stampare manualmente ogni singolo foglio di lavoro. Oppure puoi copiare ogni foglio di lavoro nella propria cartella di lavoro e quindi stampare ogni cartella di lavoro in PDF.

Tuttavia, questi sono piuttosto intensivi manualmente. (Ecco perché ho detto che potrebbero essere utili solo per occorrenze “una tantum”.) Se desideri qualcosa di un po ‘più automatico, ti consigliamo di utilizzare una macro per creare i file PDF. Ecco un esempio di una breve macro che farà per te la creazione del PDF:

Sub CreatePDFs()

Dim wks As Worksheet     Dim sFolder As String     Dim sTemp As String

sFolder = ActiveWorkbook.Path & "\"



sTemp = "Created PDFs for the following worksheets"

For Each wks In ActiveWorkbook.Worksheets         If wks.Visible = xlSheetVisible Then             sTemp = sTemp & vbCrLf & "   * " & wks.Name             wks.ExportAsFixedFormat Type:=xlTypePDF, _               Filename:=sFolder & wks.Name & ".pdf", _               OpenAfterPublish:=False         End If     Next

MsgBox sTemp End Sub

Si noti che il percorso memorizzato nella variabile sFolder è impostato su qualsiasi percorso è associato alla cartella di lavoro attiva. (Se non hai ancora salvato la cartella di lavoro attiva, la macro non verrà eseguita correttamente.) Questo percorso è la cartella in cui vengono salvati i file PDF. Se vuoi salvarli in una posizione diversa, cambia semplicemente il valore assegnato alla variabile sFolder.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (13570) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.