VBA Salvați ca | Cum se folosește metoda Salvare ca în VBA Excel?

Excel VBA Salvați ca

Metoda VBA Save As este utilizată pentru a salva fișierul Excel într-o anumită locație. Pentru a salva registrul de lucru folosind codul vba, utilizăm obiectul Workbook cu funcția SaveAs.

După toată munca grea pe care am făcut-o în registrul de lucru o salvăm, nu-i așa? Este dureros să pierdem datele la care am lucrat. Avem două tipuri de salvări în Excel sau orice fișier, unul este „Salvare” și altul este „Salvare ca”. Ctrl + S este tasta de scurtătură populară ca Ctrl + C & Ctrl + V în întreaga lume. Dar nu este atât de familiar un concept „Salvați ca” . În tasta de comandă rapidă a foii de lucru obișnuite la Salvare ca fișierul este cheia F12 . Și în VBA putem salva fișierul ca „ Salvare ca “.

Ce face VBA Save As Function?

Este o sarcină generală de a salva munca în procesul de automatizare. După toată munca dorim să salvăm fișierul.

Cărți de lucru („Vânzări 2019.xlsx”). Salvați

Acest cod citea Registrul de lucru numit „Sales 2019.xlsx” pentru a salva.

În mod similar, pentru a reproduce registrul de lucru la care lucrăm, putem crea folosind metoda „Salvați ca”.

  • Nume fișier: Care este numele fișierului pe care doriți să îl dați. Acest lucru ar trebui să fie combinat cu calea folderului de fișiere.
  • Format fișier: Care este formatul fișierului pe care îl salvați.
  • Parolă: doriți să furnizați o parolă pentru fișierul de salvare.
  • Scrieți Parola Res: menționați parola rezervată pentru registrul de lucru.

Cred că acești parametri sunt suficienți pentru a înțelege metoda Save As.

Cum se folosește funcția Salvare ca?

Puteți descărca acest șablon VBA Save As Excel aici - VBA Save As Excel Template

Exemplul nr. 1

Salvăm registrul de lucru corect, deci este important să menționăm numele registrului de lucru și extensia acestuia pentru a utiliza metoda Salvare ca. Deci, menționați registrul de lucru pe care îl salvați.

Cod:

Sub SaveAs_Example1 () Cărți de lucru („Vânzări 2019.xlsx”). Sfârșitul Sub

Acum utilizați metoda Salvare ca.

Cod:

 Sub SaveAs_Example1 () Cărți de lucru („Vânzări 2019.xlsx”). SaveAs End Sub

Acum identificați unde doriți să salvați.

Cod:

 Sub SaveAs_Example1 () Cărți de lucru ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 End Sub

Acum puneți backslash și introduceți numele fișierului conform dorinței dvs. cu o extensie de fișier.

Cod:

 Sub SaveAs_Example1 () Cărți de lucru ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx" End Sub

Acum menționați formatul fișierului ca „xlWorkbok”.

Cod:

 Sub SaveAs_Example1 () Cărți de lucru ("Vânzări 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx", FileFormat: = xlWorkbook End Sub

Ok, am terminat, va salva fișierul în unitatea D> Nume folder (articole)> Nume sub folder (2019).

Exemplul nr. 2

Salvați toate registrele de lucru deschise

Să presupunem că lucrați cu 10 registre de lucru pe computer. Doriți să creați o copie de rezervă a acestor registre de lucru salvându-le în computer ca una dintre copii. Când doriți să lucrați cu mai multe cărți de lucru, este necesar să utilizați buclele.

Codul de mai jos vă va ajuta să salvați toate registrele de lucru ca copie.

Cod:

 Sub SaveAs_Example2 () Dim Wb Ca registru de lucru pentru fiecare Wb din registrele de lucru ActiveWorkbook.SaveAs "D: \ Articles \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Schimbă calea fișierului Următorul Wb End Sub

Dacă doriți să selectați propria cale a folderului, puteți utiliza acest cod.

Cod:

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

As soon as you run this code using F5 key or manually, it will ask you to select the destination folder path, select and click on OK, it will save the file.