Šiame straipsnyje parodysime 5 naudojimo būdai "Excel" VBA į išsaugoti ir uždaryti Darbo knygą Kadangi laikas yra labai brangus, galime sutaupyti daug laiko praleisdami kasdienes užduotis, naudodami "Excel" VBA Be to, mes paėmėme duomenų rinkinį, kurį sudaro 3 stulpeliai : " Pavadinimas ", " Gimė " ir " Naujausi darbai ". Šis duomenų rinkinys atspindi 6 žmonių gimimo metus ir naujausią informaciją apie jų filmus.

Atsisiųsti praktikos sąsiuvinį

VBA, skirtas darbaknygei išsaugoti ir uždaryti.xlsm

5 pavyzdžiai, kaip išsaugoti ir uždaryti darbaknygę naudojant VBA programoje "Excel

1. Išsaugoti ir uždaryti aktyvųjį sąsiuvinį naudojant "Excel VBA

Taikydami pirmąjį metodą išsaugoti ir uždaryti . Aktyvus sąsiuvinis naudojant VBA makrokomandos . Mes iškelsime VBA modulis langą, įveskite mūsų kodą ir vykdykite kodą, kad pasiektume savo tikslą. Be didesnio vargo pereikime prie atskirų žingsnių procedūros.

Žingsniai:

Prieš įvesdami savo kodą turime iškelti VBA modulis . Kad tai padarytumėte -

• Pirma, iš Kūrėjas skirtukas>>>> pasirinkite "Visual Basic .

Arba galite paspausti ALT + F11 taip pat tai padaryti. " "Microsoft Visual Basic taikymas " bus rodomas po to.

• Antra, iš Įdėkite >>>> pasirinkti Modulis .

Čia įvesime savo kodą.

• Trečia, įveskite šį kodą į Modulis .

 Sub Save_and_Close_Active_Workbook() ActiveWorkbook.Close SaveChanges:=True End Sub 

VBA kodo suskirstymas

• Pirma, mes skambiname savo Papildoma procedūra Save_and_Close_Active_Workbook .
• Tada mes nurodome dabartinę Darbo knyga kaip ActiveWorkbook .
• Po to, naudodami Uždaryti metodas mes esame uždarymas mūsų failą.
• Galiausiai nustatėme SaveChanges į Tiesa , kuri padės išsaugoti mūsų Darbo knyga adresu . uždarymas .

Dabar įvykdysime savo kodą.

• Pirma, Išsaugoti šis Modulis .
• Antra, spustelėkite mūsų kodo viduje.
• Galiausiai paspauskite Paleisti mygtuką.

Jei eisime į savo "Excel" programa , pamatysime mūsų Darbo knyga yra uždara. Taigi, mes sėkmingai išsaugotas ir uždarytas . Darbo knyga naudojant "Excel" VBA .

Skaityti daugiau: Kaip išsaugoti visų "Excel" darbaknygių makrokomandą (paprastais žingsniais)

2. "Excel" VBA, kad išsaugotumėte ir uždarytumėte konkretų sąsiuvinį

Taikydami antrąjį metodą, naudosime išsaugoti ir uždaryti konkretus Darbo knyga naudojant kitą VBA kodą. Čia mes atidarėme du Darbo sąsiuviniai ir mes išsaugoti ir uždaryti pirmasis Darbo knyga iš kairės pusės.

Žingsniai:

• Pirma, kaip parodyta 1 metode , iškvieskite VBA modulis .
• Antra, įveskite šį kodą Modulis .

 Sub Save_and_Close_Specific_Workbook() Workbooks("Macro Save and Close.xlsm").Close SaveChanges:=True End Sub 

VBA kodo suskirstymas

• Pirma, mes skambiname savo Papildoma procedūra Išsaugoti_ir_uždaryti_konkrečią_darbaknygę .
• Tada mes kreipiamės į savo pirmąjį Darbo knyga viduje Darbo knygų objektas .
• Po to, naudodami Uždaryti metodas mes esame uždarymas mūsų failą.
• Galiausiai nustatėme SaveChanges į Tiesa , kuri padės išsaugoti mūsų Darbo knyga adresu . uždarymas .

• Trečia, kaip parodyta 1 metode , vykdykite kodą.

Po to pamatysime, kad pirmasis Darbo knyga yra . uždarytas ir tik antrasis Darbo knyga yra . Atviras . Todėl mes parodėme jums dar vieną metodą, kaip taupymas ir uždarymas a Darbo knyga .

Skaityti daugiau: "Excel VBA": išsaugokite lapą kaip naują darbaknygę neatidarydami

3. Išsaugoti ir uždaryti konkretų sąsiuvinį konkrečiame aplanke

Taikydami trečiąjį metodą, ketiname išsaugoti ir uždaryti a specifinis sąsiuvinis į aplankas naudojant "Excel" VBA .

Žingsniai:

• Pirma, kaip parodyta 1 metode , iškvieskite VBA modulis .
• Antra, įveskite šį kodą Modulis .

 Sub Save_and_Close_Workbook_in_Specific_Folder() Workbooks("Macro Save and Close.xlsm").SaveAs _ Filename:="C:\Users\Rafi\OneDrive\Desktop\Exceldemy\Macro Save and Close.xlsm" Workbooks("Macro Save and Close.xlsm").Close End Sub 

VBA kodo suskirstymas

• Pirma, mes skambiname savo Papildoma procedūra Išsaugoti_ir_uždaryti_Darbaknygę_konkrečiame_aplanke .
• Po to, naudodami SaveAs metodas mes esame taupymas mūsų failą tam tikroje vietoje.
• Tuomet failo pavadinimas lieka toks pat kaip ir originalo Darbo knyga .
• Galiausiai mes uždaryti mūsų Darbo knyga .

• Trečia, kaip parodyta 1 metode , vykdykite kodą.

Po to išsaugoti mūsų Darbo knyga mūsų apibrėžtoje aplanko vietoje ir uždaryti jį. Taigi, mes parodėme jums kitą metodą taupymas ir uždarymo sąsiuvinis į konkretus aplankas naudojant VBA .

Skaityti daugiau: "Excel" VBA makrokomandos, skirtos PDF įrašyti į tam tikrą aplanką (7 idealūs pavyzdžiai)

Panašūs skaitiniai

• "Excel VBA": išsaugokite darbaknygę be raginimo (paprastais žingsniais)
• [Pataisyta!] Kodėl "Excel" neišsaugo mano formatavimo? (7 galimos priežastys)
• Kaip išsaugoti "Excel" kaip PDF kraštovaizdį (greiti žingsniai)
• "Excel VBA" įrašyti kaip failą naudojant kelią iš ląstelės (su greitais žingsniais)
• [Pataisyta!] "Excel" CSV failas neišsaugo pakeitimų (6 galimi sprendimai)

4. Mygtuko, skirto darbaknygei išsaugoti ir uždaryti, įterpimas "Excel" programoje

Ketvirtajam metodui sukursime VBA mygtukas uždaryti ir išsaugoti "Excel" darbaknygę.

Žingsniai:

• Pirma, kaip parodyta 1 metode , iškvieskite VBA modulis .
• Antra, įveskite šį kodą Modulis .

 Sub Button_Click_Save_and_Close_Workbook() ThisWorkbook.Save Application.Quit End Sub 

VBA kodo suskirstymas

• Pirma, mes skambiname savo Papildoma procedūra Mygtukas_Click_Save_and_Close_Workbook .
• Po to, naudodami Išsaugoti metodas mes esame taupymas mūsų darbo knyga
• Galiausiai mes uždaryti mūsų Darbo knyga naudojant Baigti metodas.

Dabar įterpsime VBA mygtuką čia.

• Pirma, iš Kūrėjas skirtukas>>>> Įdėkite >>>> pasirinkti Mygtukas (Formos valdymas) .

• Tada pelės žymeklis pasikeis ir vilkite langelį viduje Darbo knyga .

Po to Dialogo langas Priskirti makrokomandą pasirodys.

• Tada pasirinkite " Mygtukas_Click_Save_and_Close_Workbook ".
• Po to paspauskite GERAI .

Tada pamatysime 1 mygtukas į Darbo knyga .

• Galiausiai spustelėkite mygtuką .

Tai padės išsaugoti ir uždaryti mūsų Darbo knyga .

Skaityti daugiau: "Excel" išsaugojimo mygtuko VBA kodas (4 variantai)

5. Išsaugoti ir uždaryti visus atidarytus sąsiuvinius taikant "Excel VBA

Paskutiniuoju metodu išsaugosime ir uždarysime visus atidarytus Darbo sąsiuviniai . Šį kartą turime tuos pačius du Darbo sąsiuviniai kaip ir metodas 3 , tačiau šį kartą išsaugoti ir uždaryti abu Darbo sąsiuviniai . Čia naudosime ciklas "For Next eiti per mūsų Darbo sąsiuviniai .

Žingsniai:

• Pirma, kaip parodyta 1 metode , iškvieskite VBA modulis .
• Antra, įveskite šį kodą Modulis .

 Sub CloseAndSaveOpenWorkbooks() Dim z As Workbook With Application For Each z In Workbooks With z If Not z.ReadOnly Then .Save End If If .Name ThisWorkbook.Name Then .Close End If End With Next z .Quit End With End Sub 

VBA kodo suskirstymas

• Pirma, mes skambiname savo Papildoma procedūra CloseAndSaveOpenWorkbooks .
• Tada naudojame Kitai kilpai cikliškai peržiūrėti visus Darbo sąsiuviniai .
• Po to, naudodami Išsaugoti metodas mes esame taupymas mūsų failus.
• Tada mes uždaryti visus Darbo sąsiuviniai išskyrus mūsų dabartinį Darbo knyga .
• Galiausiai turime uždarytas originalus Darbo knyga naudojant Baigti nuosavybė.

• Trečia, kaip parodyta 1 metode , vykdykite kodą.

Todėl ji bus išsaugoti ir uždaryti du Darbo sąsiuviniai . Mes galime matyti data pakeista yra vienodas abiem Darbo sąsiuviniai . Apibendrinant galima teigti, kad 5 skirtingi "Excel" VBA makrokomandos į išsaugoti ir uždaryti Darbo knygą .

Skaityti daugiau: Kaip įrašyti makrokomandą į asmeninį makrokomandų sąsiuvinį?

Išvada

Mes parodėme jums 5 greitai ir lengvai suprantamas "Excel" VBA į išsaugoti ir uždaryti Darbo knygą . Jei susiduriate su kokiomis nors problemomis, nedvejodami komentuokite toliau. Be to, galite apsilankyti mūsų svetainėje Exceldemy daugiau Su "Excel" susijęs straipsniai. Ačiū, kad skaitote, ir toliau tobulėkite!