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 jebkurā failā; viens ir “Saglabāt” un otrs ir “Saglabāt kā”. Ctrl + S ir populārs īsinājumtaustiņš kā Ctrl + C & Ctrl + V visā pasaulē. Bet tas nav tik pazīstams ar jēdzienu “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”.
Līdzīgi, 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ā funkciju?
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šnodaļa
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 ("Pārdošana 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 galā. Tas saglabās failu 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 redzamais kods palīdzēs jums saglabāt visas darbgrāmatas kā kopiju.
Kods:
Sub SaveAs_Example2 () Dim Wb kā darbgrāmata katrai Wb darbgrāmatās 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 atlasīt mērķa mapes ceļu, atlasīt un noklikšķināt uz Labi. Tas saglabās failu.
