VBA Saglabāt kā Kā VBA Excel izmantot metodi Saglabāt kā?

Excel VBA Saglabāt kā

VBA saglabāšanas kā metodi izmanto, lai saglabātu Excel failu noteiktā vietā. Lai saglabātu darbgrāmatu, izmantojot vba kodu, mēs izmantojam objektu Darbgrāmata ar funkciju SaveAs.

Pēc visa darba, ko esam paveikuši darbgrāmatā, mēs to saglabājam, vai ne? Ir sāpīgi zaudēt datus, pie kuriem esam strādājuši. Mums ir divu veidu saglabāšana Excel vai jebkuros failos, viens ir “Saglabāt” un cits “Saglabāt kā”. Ctrl + S ir populārs īsinājumtaustiņš kā Ctrl + C & Ctrl + V visā pasaulē. Bet tas nav tik pazīstams jēdziens “Saglabāt kā” . Parastajā darblapā īsinājumtaustiņš Saglabāt kā fails ir F12 taustiņš. Arī VBA mēs varam saglabāt failu kā Saglabāt kā ”.

Ko dara funkcija VBA Save As Function?

Tas ir vispārējs uzdevums ietaupīt darbu automatizācijas procesā. Pēc visa darba mēs vēlamies failu saglabāt.

Darbgrāmatas ("Pārdošana 2019.xlsx"). Saglabājiet

Lai saglabātu, šajā kodā tika lasīta darbgrāmata ar nosaukumu “Pārdošana 2019.xlsx”.

Tāpat, lai atkārtotu darbgrāmatu, pie kuras strādājam, var izveidot, izmantojot metodi “Saglabāt kā”.

  • Faila nosaukums: kāds ir faila nosaukums, kuru vēlaties piešķirt. Tas jāapvieno ar failu mapes ceļu.
  • Faila formāts: Kādam jābūt saglabājamā faila formātam.
  • Parole: vai vēlaties norādīt paroli saglabāšanas failam.
  • Write Res Password: Norādiet rezervēto paroli darbgrāmatai.

Es domāju, ka šie parametri ir pietiekami, lai saprastu metodi Saglabāt kā.

Kā izmantot funkciju Saglabāt kā?

Šo VBA Saglabāt kā Excel veidni varat lejupielādēt šeit - VBA Saglabāt kā Excel veidni

1. piemērs

Mēs saglabājam darbgrāmatu pareizi, tāpēc ir svarīgi pieminēt darbgrāmatas nosaukumu un tā paplašinājumu, lai izmantotu metodi Saglabāt kā. Tāpēc pieminējiet darbgrāmatu, kuru saglabājat.

Kods:

Sub SaveAs_Example1 () darbgrāmatas ("Pārdošana 2019.xlsx"). Beigu apakš

Tagad izmantojiet metodi Saglabāt kā.

Kods:

 Sub SaveAs_Example1 () darbgrāmatas ("Pārdošana 2019.xlsx"). SaveAs beigu apakšdaļa 

Tagad nosakiet, kur vēlaties saglabāt.

Kods:

 Sub SaveAs_Example1 () darbgrāmatas ("Pārdošana 2019.xlsx"). SaveAs "D: \ Articles \ 2019 End Sub 

Tagad ielieciet atpakaļ slīpsvītru un ievadiet faila nosaukumu atbilstoši jūsu vēlmēm ar faila paplašinājumu.

Kods:

 Sub SaveAs_Example1 () darbgrāmatas ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx" Beigas Sub 

Tagad faila formātu miniet kā “xlWorkbok”.

Kods:

 Sub SaveAs_Example1 () darbgrāmatas ("Pārdošana 2019.xlsx"). Saglabājiet kā "D: \ Articles \ 2019 \ My File.xlsx", FileFormat: = xlWorkbook End Sub 

Labi, mēs esam izdarījuši, ka fails tiks saglabāts D diskā> Mapes nosaukums (raksti)> Apakšmapes nosaukums (2019).

2. piemērs

Saglabājiet visas atvērtās darbgrāmatas

Pieņemsim, ka datorā strādājat ar 10 darbgrāmatām. Jūs vēlaties izveidot šo darbgrāmatu dublējumkopijas, saglabājot tās datorā kā vienu no kopijām. Ja vēlaties strādāt ar vairāk nekā vienu darbgrāmatu, ir jāizmanto cilpas.

Zemāk esošais kods palīdzēs jums saglabāt visas darbgrāmatas kā kopijas.

Kods:

 Sub SaveAs_Example2 () Dim Wb kā darbgrāmata katram darbgrāmatas darbgrāmatai ActiveWorkbook.SaveAs "D: \ Articles \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Mainīt faila ceļu Nākamā Wb beigu apakšdaļa

Ja vēlaties izvēlēties savu mapes ceļu, varat izmantot šo kodu.

Kods:

 Sub SaveAs_Example3 () Dim FilePath kā ​​virkne FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Filename: = FilePath & ".xlsx", FileFormat: = xlOpenXMLWorkbook End Sub 

Tiklīdz palaidīsit šo kodu, izmantojot F5 taustiņu vai manuāli, tas lūgs jums izvēlēties mērķa mapes ceļu, atlasīt un noklikšķināt uz Labi, tas saglabās failu.


$config[zx-auto] not found$config[zx-overlay] not found