Come salvare rapidamente una cartella di lavoro in più posizioni in Excel?

In Excel, possiamo salvare una cartella di lavoro in una posizione specifica a nostro piacimento; tuttavia, avete mai immaginato di salvare una cartella di lavoro in più cartelle contemporaneamente? In questo articolo, con il codice VBA, potrete salvare rapidamente una cartella di lavoro in più posizioni in una sola volta.

Salvare una cartella di lavoro in più posizioni con VBA

Salvare una cartella di lavoro in più posizioni con VBA

Per salvare una cartella di lavoro in più posizioni, è sufficiente applicare un codice macro.

1. Premere i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Fare clic su Inserisci > Modulo e incollare il codice sottostante nello script del Modulo. Vedere screenshot:

VBA: Salvare una cartella di lavoro in più posizioni

Sub SaveToLocations()
'UpdateByExtendoffice20160623
    ActiveWorkbook.SaveCopyAs "C:\Users\DT168\Documents\" + ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs "C:\Users\DT168\" + ActiveWorkbook.Name
    ActiveWorkbook.Save
End Sub

Suggerimento: Nel codice macro, potete modificare i percorsi di salvataggio come desiderate.

3. Premere il tasto F5 per eseguire il codice e la cartella di lavoro attiva verrà salvata nelle posizioni specificate nel codice.