Excel VBA Saglabāt kā faila formātu (12 piemēroti piemēri)

Hugh West

16-10-2023 Makroprogrammas & amp; Excel VBA
  • Dalīties Ar Šo
Hugh West

Mēs glabājam svarīgu informāciju Excel darbgrāmatas. Mēs arī veicam dažādas darbības atbilstoši mūsu prasībām. Tāpēc ir nepieciešams saglabāt failu, tiklīdz mēs to atjauninām. Pretējā gadījumā mēs varam zaudēt dažus vērtīgus datus. Ir daži efektīvi veidi, lai Saglabāt . Excel darbgrāmata Turklāt, saglabājot Excel failu atbilstoši mūsu vēlamajam Formāts vai saglabāt failu vēlamajā Atrašanās vieta ir vēl viens svarīgs uzdevums. Šajā rakstā mēs parādīsim jums noderīgākos piemērus par Excel VBA Saglabāt kā faila formātu .

Lejupielādēt Practice Workbook

Lejupielādējiet šo darba burtnīcu, lai praktizētos paši.

VBA Saglabāt kā faila formātu.xlsm

12 Excel VBA piemēri Saglabāt kā faila formātu

Lai ilustrētu, kā piemēru izmantosim šādu datu kopu. Piemēram, datu kopa attēlo, piemēram. Pārdevējs , Produkts , un Neto pārdošanas apjoms uzņēmuma. Šeit mēs saglabāsim šo darbgrāmatu, piemērojot Excel VBA Saglabāt kā faila formātu .

1. VBA, lai saglabātu kā Excel failu

Mūsu pirmajā piemērā mēs parādīsim vienkāršu VBA kods lai saglabātu Excel Tāpēc, lai veiktu šo uzdevumu, izpildiet tālāk norādītās darbības.

PASĀKUMI:

  • Vispirms dodieties uz cilne Izstrādātājs.
  • Pēc tam atlasiet Visual Basic .

  • Tā rezultātā VBA tiks atvērts logs.
  • Pēc tam noklikšķiniet uz Ievietot .
  • Pēc tam atlasiet Modulis .

  • Tādējādi Modulis tiks parādīts logs.
  • Pēc tam nokopējiet šādu kodu un ielīmējiet to lodziņā. 
 Sub Example_1() ActiveWorkbook.SaveAs End Sub

  • Tagad palaidiet kodu, nospiežot F5 .
  • Līdz ar to jums būs jāievada faila nosaukums, formāts un cita pieprasītā informācija.
  • Visbeidzot, tas saglabās failu norādītajā atrašanās vietā.

Lasīt vairāk: Kā saglabāt darblapu kā jaunu failu, izmantojot Excel VBA

2. Faila paplašinājuma norādīšana ar Excel VBA

Iepriekšējā piemērā mums bija manuāli jānorāda Failu formāts pēc tam, kad nospiežot komandu palaist. Bet šeit mēs parādīsim efektīvāku veidu, kā piemērot Excel VBA Saglabāt kā faila formātu lai saglabātu darbgrāmatas vēlamajā formātā. Mēs vienkārši norādīsim faila paplašinājumu pēc faila nosaukuma. Tātad, ievietojiet tālāk norādīto kodu. Modulis logs. 

 Sub Example_2() Dim location As String location = "D:\SOFTEKO\excel vba save as file format.xlsm" ActiveWorkbook.SaveAs Filename:=location End Sub

Šādā veidā varat palaist kodu, lai iegūtu failu vēlamajā formātā un vietā. saglabājiet failu xlsx formātā, tips xlsx tā vietā, lai xlsm .

Lasīt vairāk: Excel VBA makro, lai saglabātu PDF konkrētā mapē (7 ideāli piemēri)

3. Excel VBA, lai izmantotu faila formāta kodu

Tomēr mēs varam ievadīt Datnes formāta koda numurs tā vietā, lai norādītu faila paplašinājumu. Daži noderīgi kodi ir šādi: .xlsx = 51 , . xlsm = 52 , .xlsb = 50 , .xls = 56 . Līdz ar to nokopējiet šādu kodu un ielīmējiet to kontā Modulis kaste. 

 Sub Example_3() Dim location As String location = "D:\SOFTEKO\excel vba saglabāt kā faila formātu" ActiveWorkbook.SaveAs Filename:=location, FileFormat:=52 End Sub

Lasīt vairāk: [Labots!] Kāpēc Excel nesaglabā manu formatējumu? (7 iespējamie iemesli)

4. Saglabāt tajā pašā direktorijā, izmantojot VBA

Šajā piemērā mēs parādīsim, kā Saglabāt in the Tas pats katalogs kur fails jau ir ar Excel VBA . Tāpēc ievietojiet kodu Modulis logs. 

 Sub Example_4() ActiveWorkbook.SaveAs Filename:="Excel vba saglabāt kā faila formātu" End Sub

Lasīt vairāk: Excel VBA: Izvēlieties atrašanās vietu un saglabājiet kā PDF failu

5. VBA, lai saglabātu jaunā direktorijā

Tomēr mums var būt nepieciešams arī saglabāt failu Jauns katalogs . Tādējādi ievadiet šādu kodu Modulis un palaidiet to. 

 Sub Example_5() Dim location As String location = "D:\SOFTEKO\excel vba saglabāt kā faila formātu" ActiveWorkbook.SaveAs Filename:=location End Sub

6. Pieprasiet paroli, lai atvērtu Excel failu

Turklāt varat pieteikties Excel VBA Saglabāt kā faila formātu pieprasīt Parole uz Atvērt Excel failu . Tātad ievietojiet un palaidiet tālāk norādīto kodu. 

 Sub Example_6() ActiveWorkbook.SaveAs _ Faila nosaukums:="D:\SOFTEKO\excel vba saglabāt kā faila formātu.xlsm", Parole:="viens" End Sub

Lasīt vairāk: Kā saglabāt Excel failu ar paroli

Līdzīgi lasījumi

  • Excel VBA, lai saglabātu failu ar mainīgo nosaukumu (5 piemēri)
  • Kā saglabāt Excel kā PDF ainavu (ar ātriem soļiem)
  • Excel VBA, lai saglabātu kā failu, izmantojot ceļu no šūnas (ar ātriem soļiem)
  • VBA kods pogas Saglabāt pogu programmā Excel (4 varianti)
  • [Labots!] Excel CSV faila izmaiņu saglabāšana (6 iespējamie risinājumi)

7. Paroles pievienošana rediģēšanai programmā Excel

Turklāt varat lūgt Parole vietnē Rediģēšana vietnē Excel . Bez paroles tas tiks atvērts tikai lasāmajā formātā. Nokopējiet kodu un ielīmējiet to. Pēc tam palaidiet kodu. 

 Sub Example_7() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", WriteRes:="viens" End Sub

8. Atvērt tikai lasāmajā formātā

Atkal, lai atvērtu failu Tikai nolasāms formāts , ievadiet tālāk norādīto kodu un nospiediet F5 lai to palaistu. 

 Sub Example_8() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", _ ReadOnlyRecommended:=True End Sub

Lasīt vairāk: Kā atvērt Word dokumentu un saglabāt kā PDF vai Docx ar VBA Excel

9. Izveidot dialoglodziņu "Saglabāt kā".

Vēl viena noderīga darbība Excel VBA, lai saglabātu kā faila formātu ir radīt Dialoglodziņš Saglabāt kā . Tādējādi ievietojiet tālāk norādīto kodu. 

 Sub Example_9() Application.GetSaveAsFilename End Sub

Lasīt vairāk: Excel makro programma, lai saglabātu kā PDF (5 piemēroti piemēri)

10. VBA, lai izveidotu & amp; Saglabāt jaunu darbgrāmatu

Papildus faila saglabāšanai mēs varam arī Izveidot & amp; Saglabāt jaunu darbgrāmatu ar VBA Lai izpildītu uzdevumu, ievadiet turpmāk norādīto kodu laukā Modulis logu un nospiediet F5 . 

 Sub Example_10() Dim book As Workbook Set book = Workbooks.Add Application.DisplayAlerts = False book.SaveAs Filename:="D:\SOFTEKO\excel vba save as file format.xlsm" Application.DisplayAlerts = True End Sub

Lasīt vairāk: Excel VBA: saglabājiet lapu kā jaunu darbgrāmatu bez atvēršanas

11. Aktīvās darbgrāmatas saglabāšana programmā Excel

Tāpat mēs varam saglabāt aktīvo darbgrāmatu, kurā tā jau ir saglabāta. Lai veiktu šo darbību, ievietojiet ļoti vienkāršu kodu. 

 Sub Example_11() ActiveWorkbook.Save End Sub

Lasīt vairāk: Kā saglabāt makroreakciju visām darbgrāmatas programmā Excel (ar vienkāršiem soļiem)

12. VBA, lai saglabātu kā PDF formātu programmā Excel

Visbeidzot, mēs varam izmantot PDF faila paplašinājums mūsu VBA kodu, lai saglabātu PDF formātā . Tātad, pieteikties Excel VBA Saglabāt kā faila formātu Pēc tam palaidiet kodu, nospiežot F5 . 

 Sub Example_12() ActiveSheet.SaveAs Filename:="excel vba saglabāt kā faila formātu.pdf" End Sub

Lasīt vairāk: Kā saglabāt Excel kā PDF (6 noderīgi veidi)

Secinājums

Turpmāk varēsiet saglabāt failus ar Excel VBA Saglabāt kā faila formātu Pēc iepriekš aprakstītajiem piemēriem. Turpiniet tos izmantot un ziņojiet mums, ja jums ir vēl citi veidi, kā veikt uzdevumu. Sekojiet ExcelWIKI Neaizmirstiet komentārus, ieteikumus vai jautājumus, ja tādi jums ir, rakstiet komentāru sadaļā zemāk.

Iepriekšējais ieraksts Kā konsolidēt datus no vairākām rindām programmā Excel (4 ātras metodes)
Nākamais ieraksts Kā aprēķināt atlaides procentuālo daļu ar formulu programmā Excel

Hjū Vests ir ļoti pieredzējis Excel treneris un analītiķis ar vairāk nekā 10 gadu pieredzi šajā nozarē. Viņam ir bakalaura grāds grāmatvedībā un finansēs un maģistra grāds uzņēmējdarbības vadībā. Hjū aizraujas ar mācīšanu, un viņš ir izstrādājis unikālu mācīšanas pieeju, kas ir viegli izpildāma un saprotama. Viņa ekspertu zināšanas programmā Excel ir palīdzējušas tūkstošiem studentu un profesionāļu visā pasaulē uzlabot savas prasmes un izcelties karjerā. Izmantojot savu emuāru, Hjū dalās savās zināšanās ar pasauli, piedāvājot bezmaksas Excel apmācības un tiešsaistes apmācību, lai palīdzētu personām un uzņēmumiem pilnībā izmantot savu potenciālu.