Se hai molte cartelle di lavoro accumulate nel corso degli anni, potresti dover stampare alcuni fogli di lavoro da ciascuna di esse. Ad esempio, potresti avere una cartella che contiene una cartella di lavoro per ciascuna delle divisioni della tua azienda per il decennio precedente. Se la tua azienda ha otto divisioni, significa che hai 80 cartelle di lavoro nella cartella. Ora, se è necessario stampare le cifre del secondo e del terzo trimestre (dal secondo e dal terzo foglio di lavoro di ciascuna cartella di lavoro), si inizia a vedere il problema. Il caricamento di ciascuna cartella di lavoro e la stampa dei fogli selezionati potrebbe richiedere molto tempo.

Un modo più rapido è creare una macro che eseguirà la stampa per te.

La seguente macro inizia chiedendoti un percorso di directory. A condizione che venga specificato un percorso, la macro inizia quindi a caricare ogni XLS (Excel)

file nella directory, quindi stampare il secondo e il terzo foglio di lavoro da ciascuno. Una volta stampato, il foglio di lavoro viene chiuso.

Public Sub PrintWorkbooks()

Dim sCurFile As String     Dim sPath As String

'Get the path     sPath = InputBox("Starting path?", "PrintWorkbooks")

If sPath <> "" Then         On Error Resume Next         Application.ScreenUpdating = False         If Right(sPath, 1) <> "\" Then             sPath = sPath & "\"

End If         sCurFile = Dir(sPath & "*.xls", vbNormal)

Do While Len(sCurFile) <> 0             Workbooks.Open sPath & sCurFile, , True             With Workbooks(sCurFile)

.Worksheets(2).PrintOut                 .Worksheets(3).PrintOut                 .Close SaveChanges:=False             End With             sCurFile = Dir             DoEvents         Loop         Application.ScreenUpdating = True         On Error GoTo 0     End If End Sub

Ovviamente, se hai un bel po ‘di cartelle di lavoro nella directory, la stampa potrebbe richiedere parecchio tempo. Potresti voler trovare un po ‘di tempo in cui non hai nient’altro da fare, quindi lasciare che la macro inizi a funzionare.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

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

Questo suggerimento (2215) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Stampa di fogli di lavoro selezionati.