Excel VBA Salva con nome
Il metodo VBA Salva con nome viene utilizzato per salvare il file Excel in una posizione specifica. Per salvare la cartella di lavoro utilizzando il codice vba utilizziamo l'oggetto Workbook con la funzione SaveAs.
Dopo tutto il duro lavoro che abbiamo svolto nella cartella di lavoro, la salviamo, non è vero? È doloroso perdere i dati su cui abbiamo lavorato. Abbiamo due tipi di salvataggi in Excel o in qualsiasi file; uno è "Salva" e un altro è "Salva con nome". Ctrl + S è il popolare tasto di scelta rapida come Ctrl + C e Ctrl + V in tutto il mondo. Ma non ha molta familiarità con il concetto "Salva con nome". Nel normale tasto di scelta rapida del foglio di lavoro su Salva con nome il file è il tasto F12 . Anche in VBA possiamo salvare il file come " Salva con nome ".
Cosa fa la funzione Salva con nome VBA?
È un compito generale di salvare il lavoro nel processo di automazione. Dopo tutto il lavoro, desideriamo salvare il file.
Cartelle di lavoro ("Vendite 2019.xlsx"). Salva
Questo codice legge la cartella di lavoro denominata "Vendite 2019.xlsx" per salvare.
Allo stesso modo, per replicare la cartella di lavoro su cui stiamo lavorando può essere creata utilizzando il metodo "Salva con nome".
- Nome file: qual è il nome del file che si desidera fornire. Questo dovrebbe essere combinato con il percorso della cartella del file.
- Formato file: quale dovrebbe essere il formato del file che stai salvando.
- Password: si desidera fornire una password per il file di salvataggio.
- Scrivi Res Password: menziona la password riservata per la cartella di lavoro.
Penso che questi parametri siano sufficienti per comprendere il metodo Salva con nome.
Come utilizzare la funzione Salva con nome?
Esempio 1
Salviamo la cartella di lavoro correttamente, quindi è importante menzionare il nome della cartella di lavoro e la sua estensione per utilizzare il metodo Salva con nome. Quindi menziona la cartella di lavoro che stai salvando.
Codice:
Sub SaveAs_Example1 () Cartelle di lavoro ("Vendite 2019.xlsx"). End Sub
Ora usa il metodo Salva con nome.
Codice:
Sub SaveAs_Example1 () Cartelle di lavoro ("Sales 2019.xlsx"). SaveAs End Sub
Ora identifica dove vuoi salvare.
Codice:
Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: Articles 2019 End Sub
Ora metti la barra rovesciata e inserisci il nome del file come desideri con un'estensione del file.
Codice:
Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: Articles 2019 My File.xlsx" End Sub
Ora menziona il formato del file come "xlWorkbok".
Codice:
Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: Articles 2019 My File.xlsx", FileFormat: = xlWorkbook End Sub
Ok, abbiamo finito. Salverà il file nell'unità D> Nome cartella (articoli)> Nome sottocartella (2019).
Esempio n. 2
Salva tutte le cartelle di lavoro aperte
Supponi di lavorare con 10 cartelle di lavoro sul tuo computer. Si desidera creare il backup di queste cartelle di lavoro salvandole sul computer come una delle copie. Quando vuoi lavorare con più di una cartella di lavoro, è necessario usare i loop.
Il codice seguente ti aiuterà a salvare tutte le cartelle di lavoro come copia.
Codice:
Sub SaveAs_Example2 () Dim Wb As Workbook For Each Wb In Workbooks ActiveWorkbook.SaveAs "D: Articles 2019 " & ActiveWorkbook.Name & ".xlsx" 'Cambia il percorso del file Next Wb End Sub
Se desideri selezionare il percorso della tua cartella, puoi utilizzare questo codice.
Codice:
Sub SaveAs_Example3 () Dim FilePath As String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Filename: = FilePath & ".xlsx", FileFormat: = xlOpenXMLWorkbook End Sub
Non appena si esegue questo codice utilizzando il tasto F5 o manualmente, verrà chiesto di selezionare il percorso della cartella di destinazione, selezionare e fare clic su OK. Salverà il file.
