Potrebbe essere necessario copiare regolarmente una cartella di lavoro in più posizioni sul sistema. Ad esempio, potrebbe essere necessario copiare la cartella di lavoro aperta su un disco rigido locale e su diverse unità mappate che si trovano effettivamente sulla rete dell’ufficio.

Excel non ha una capacità integrata per farlo, ma se le varie posizioni sono ben definite, puoi creare una macro che farà il salvataggio per te. La seguente macro è un esempio di tale strumento:

Sub SaveToLocations()

Dim OrigName As String

OrigName = ActiveWorkbook.FullName     ActiveWorkbook.SaveAs "G:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "L:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "K:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "S:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs OrigName End Sub

L’esempio particolare della macro salva la cartella di lavoro attiva in cinque posizioni diverse, utilizzando tutte lo stesso nome di cartella di lavoro. La macro determina la posizione corrente della cartella di lavoro in modo che possa salvarla per ultima nella posizione corrente. Il motivo per cui questo viene fatto è che puoi continuare a utilizzare il normale strumento di salvataggio e ottenere i risultati attesi.

Se vuoi usare questa macro sul tuo sistema, tutto ciò che devi fare è assicurarti di cambiare le lettere di unità di dove verrà salvata ogni cartella di lavoro. Se una delle unità specificate è per una posizione che utilizza un supporto rimovibile e non sono presenti supporti nell’unità, la macro genererà un errore e si interromperà. Dovrai quindi capire dove è stata originariamente salvata la cartella di lavoro in modo da poterla salvare manualmente lì (usando Salva con nome).

Un’altra particolarità della macro è che poiché utilizza il metodo SaveAs, se in ciascuna delle destinazioni è già presente una cartella di lavoro con lo stesso nome della cartella di lavoro corrente, Excel chiederà se si desidera sovrascrivere la versione esistente della cartella di lavoro. Questo sarà sempre il caso dell’ultimo salvataggio, nella posizione originale.

_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 (2774) 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:

Salvataggio in più posizioni.