photosdematures.com

Excel VBA Desa com

VBA Desa com a s'utilitza per desar el fitxer Excel en una ubicació específica. Per desar el llibre mitjançant el codi vba, fem servir l'objecte Workbook amb la funció SaveAs.

Després de tota l’esforç que hem fet al llibre, el guardem, oi? És dolorós perdre les dades que hem treballat. Tenim dos tipus de desades a Excel o a qualsevol fitxer, un és "Desa" i un altre és "Desa com". Ctrl + S és la popular tecla de drecera com a Ctrl + C & Ctrl + V a tot el món. Però no és un concepte tan familiar "Guardar com". A la tecla de drecera normal del full de treball a Guardar com l'arxiu és F12 clau. A VBA també podem desar el fitxer com “Guardar com“.

Què fa VBA Save As Function?

És una tasca general d’estalviar treballs en el procés d’automatització. Després de tot el treball, volem desar el fitxer.

Llibres de treball ("Sales 2019.xlsx"). Deseu

En aquest codi es llegia el llibre de treball anomenat "Sales 2019.xlsx" per desar.

De manera similar, per reproduir el llibre de treball en què estem treballant, es pot crear mitjançant el mètode "Desa com a".

• Nom de l'arxiu: Quin és el nom del fitxer que voleu donar. Això s’ha de combinar amb el camí de la carpeta de fitxers.
• Format del fitxer: Quin és el format del fitxer que deseu.
• Contrasenya: Voleu proporcionar una contrasenya per al fitxer desat.
• Escriu la contrasenya de Res: Mencioneu la contrasenya reservada per al llibre.

Crec que aquests paràmetres són suficients per entendre el mètode Desa com a.

Com s'utilitza la funció Desa com a?

Podeu descarregar aquesta plantilla VBA Desa com a Excel aquí: VBA Desa com a plantilla Excel

Exemple 1

Desem el llibre de treball correctament, de manera que és important esmentar el nom del llibre i la seva extensió per utilitzar el mètode Desa com a. Esmenta, doncs, el llibre que esteu desant.

Codi:

 Sub SaveAs_Example1 () Llibres de treball ("Sales 2019.xlsx"). Finalitzar sub 

Ara utilitzeu el mètode Desa com.

Codi:

 Subcategoria SaveAs_Exemple1 () Llibres de treball ("Sales 2019.xlsx") 

Ara identifiqueu on voleu desar.

Codi:

 Sub SaveAs_Example1 () Llibres de treball ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 End Sub 

Ara poseu barra invertida i introduïu el nom del fitxer segons el vostre desig amb una extensió de fitxer.

Codi:

 Sub SaveAs_Example1 () Llibres de treball ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx" End Sub 

Ara mencioneu el format del fitxer com a "xlWorkbok".

Codi:

 Sub SaveAs_Example1 () Llibres de treball ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx", FileFormat: = xlWorkbook End Sub 

D’acord, ja hem acabat, desarà el fitxer a la unitat D> Nom de la carpeta (articles)> Nom de la carpeta secundària (2019).

Exemple 2

Deseu tots els llibres de treball oberts

Suposem que esteu treballant amb 10 llibres de treball a l'ordinador. Voleu crear una còpia de seguretat d’aquests llibres guardant-los a l’ordinador com a còpia. Quan vulgueu treballar amb més d'un llibre, cal utilitzar els bucles.

El codi següent us ajudarà a desar tots els llibres de treball com a còpia.

Codi:

 Sub SaveAs_Example2 () Atenueu Wb com a llibre de treball per a cada Wb dels llibres de treball ActiveWorkbook.SaveAs "D: \ Articles \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Canvieu el camí del fitxer Següent final de Wb Sub

Si voleu seleccionar la vostra pròpia ruta de carpeta, podeu utilitzar aquest codi.

Codi:

 Sub SaveAs_Example3 () Dim FilePath As String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Filename: = FilePath & ".xlsx", FileFormat: = xlOpenXMLWorkbook End Sub 

Tan bon punt executeu aquest codi amb la tecla F5 o manualment, us demanarà que seleccioneu el camí de la carpeta de destinació, seleccioneu i feu clic a D'acord, desarà el fitxer.