Excel VBA: salvestada ja sulgeda töövihik (5 sobivat näidet)

Hugh West

03-10-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

Selles artiklis näitame teile 5 meetodite kasutamine Excel VBA aadressile Salvesta ja sulge töövihik Kuna aeg on väga väärtuslik, saame palju aega kokku hoida, jättes vahele igapäevased ülesanded, kasutades Excel VBA Lisaks oleme võtnud andmekogumi, mis koosneb 3 veergu : " Nimi ", " Sündinud ", ja " Viimane töö ". See andmekogum esindab 6 inimeste sünniaasta ja nende viimased filmiandmed.

Lae alla praktiline töövihik

VBA töövihiku salvestamiseks ja sulgemiseks.xlsm

5 näidet Exceli VBA abil töövihiku salvestamiseks ja sulgemiseks VBAs

1. Salvestage ja sulgege aktiivne töövihik Exceli VBA abil

Esimese meetodi puhul me Salvesta ja sulge . Aktiivne töövihik kasutades VBA makro Me toome üles VBA moodul aknas, kirjutame meie koodi ja seejärel täidame koodi, et saavutada meie eesmärk. Ilma pikema jututa, hüppame samm-sammult protseduurile.

Sammud:

Enne, kirjutades meie koodi peame tooma üles VBA moodul . Selleks -

  • Esiteks, alates Arendaja tab>>>> valige Visual Basic .

Teise võimalusena võite vajutada ALT + F11 ka seda teha. " Microsoft Visual Basic Taotluse jaoks " ilmub pärast seda.

  • Teiseks, alates Sisesta >>>> valige Moodul .

Siia kirjutame oma koodi.

  • Kolmandaks, kirjutage järgmine kood sees Moodul . 
 Sub Save_and_Close_Active_Workbook() ActiveWorkbook.Close SaveChanges:=True End Sub

VBA koodi lahtikirjutamine

  • Esiteks, me kutsume meie Alammenetlus Save_and_Close_Active_Workbook (Salvesta_ja_sulge_aktiivne_tööraamat) .
  • Siis me viitame meie praegusele Töövihik nagu ActiveWorkbook .
  • Pärast seda, kasutades Sulge meetodi oleme sulgemine meie faili.
  • Lõpuks oleme seadnud SaveChanges aadressile Tõsi , mis päästab meie Töövihik aadressil sulgemine .

Nüüd käivitame oma koodi.

  • Esiteks, Salvesta see Moodul .
  • Teiseks, klõpsake meie koodi sees.
  • Lõpuks vajutage Käivita nupp.

Kui me läheme meie Exceli rakendus , näeme meie Töövihik on suletud. Seega oleme edukalt salvestatud ja suletud . Töövihik kasutades Excel VBA .

Loe edasi: Kuidas salvestada makro kõigi Exceli töövihikute jaoks (lihtsate sammudega)

2. Exceli VBA konkreetse töövihiku salvestamiseks ja sulgemiseks

Teise meetodi puhul kasutame Salvesta ja sulge konkreetne Töövihik kasutades teist VBA kood. Siin oleme avanud kaks Tööraamatud ja me Salvesta ja sulge esimene Töövihik vasakult poolt.

Sammud:

  • Esiteks, nagu näidatud meetodis 1 , tuua üles VBA moodul .
  • Teiseks, kirjutage see kood sisse, et Moodul . 
 Sub Save_and_Close_Specific_Workbook() Workbooks("Macro Save and Close.xlsm").Close SaveChanges:=True End Sub

VBA koodi lahtikirjutamine

  • Esiteks, me kutsume meie Alammenetlus Salvesta_ja_sulge_spetsiifiline_tööraamat .
  • Siis me viitame meie esimesele Töövihik sees Tööraamatute objekt .
  • Pärast seda, kasutades Sulge meetodi oleme sulgemine meie faili.
  • Lõpuks oleme seadnud SaveChanges aadressile Tõsi , mis päästab meie Töövihik aadressil sulgemine .
  • Kolmandaks, nagu näidatud meetodis 1 , täitke kood.

Pärast seda näeme, et esimene Töövihik on suletud ja ainult teine Töövihik on avatud Seetõttu oleme näidanud teile veel ühe meetodi, mis on säästmine ja sulgemine a Töövihik .

Loe edasi: Excel VBA: salvestage leht uue töövihikuna ilma avamata

3. Salvestage ja sulgege konkreetne töövihik konkreetses kaustas

Kolmanda meetodi puhul hakkame Salvesta ja sulge a konkreetne töövihik aastal kaust kasutades Excel VBA .

Sammud:

  • Esiteks, nagu näidatud meetodis 1 , tuua üles VBA moodul .
  • Teiseks, kirjutage see kood sisse, et Moodul . 
 Sub Save_and_Close_Workbook_in_Spetsiifilises_kaustas() 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 koodi lahtikirjutamine

  • Esiteks, me kutsume meie Alammenetlus Save_and_Close_Workbook_in_Spetsiifilises_kaustas_Salvestamine_ja_sulge_tööraamat .
  • Pärast seda, kasutades SaveAs meetodi oleme säästmine meie faili konkreetses kohas.
  • Seejärel hoiame failinime sama, mis originaalil. Töövihik .
  • Lõpuks, me sulge meie Töövihik .
  • Kolmandaks, nagu näidatud meetodis 1 , täitke kood.

Pärast seda on see Salvesta meie Töövihik meie määratletud kausta asukoha sees ja sulge seda. Seega oleme näidanud teile teise meetodi säästmine ja sulgemise töövihik aastal konkreetne kaust kasutades VBA .

Loe edasi: Exceli VBA makro PDF-i salvestamiseks konkreetsesse kausta (7 ideaalset näidet)

Sarnased lugemised

  • Excel VBA: salvestage töövihik ilma üleskutseeta (lihtsate sammudega)
  • [Parandatud!] Miks Excel ei salvesta minu vormingut? (7 võimalikku põhjust)
  • Kuidas salvestada Exceli PDF-maastikuna (kiirete sammudega)
  • Exceli VBA failina salvestamiseks, kasutades raku teed (kiirete sammudega)
  • [Parandatud!] Exceli CSV-faili ei salvesta muudatusi (6 võimalikku lahendust)

4. Nupu sisestamine Exceli töövihiku salvestamiseks ja sulgemiseks

Neljanda meetodi jaoks loome me luua VBA nupp sulgeda ja salvestada Exceli töövihik.

Sammud:

  • Esiteks, nagu näidatud meetodis 1 , tuua üles VBA moodul .
  • Teiseks, kirjutage see kood sisse, et Moodul . 
 Sub Button_Click_Save_and_Close_Workbook() ThisWorkbook.Save Application.Quit End Sub

VBA koodi lahtikirjutamine

  • Esiteks, me kutsume meie Alammenetlus Button_Click_Save_and_Close_Workbook (nuppu_klõpsake_säästmine_ja_sulge_tööraamat) .
  • Pärast seda, kasutades Salvesta meetodi oleme säästmine meie töövihik
  • Lõpuks, me sulge meie Töövihik kasutades Lõpeta meetod.

Nüüd sisestame me VBA nuppu siin.

  • Esiteks, alates Arendaja tab>>>> Sisesta >>>> valige Nupp (Vormikontroll) .

  • Seejärel muutub hiirekursor ja lohistab kasti sees oleva kasti Töövihik .

Pärast seda on Dialoogiboks Assign Macro (Makro määramine) ilmub.

  • Seejärel valige " Button_Click_Save_and_Close_Workbook (nuppu_klõpsake_säästmine_ja_sulge_tööraamat) ".
  • Pärast seda vajutage OK .

Siis näeme Nupp 1 aastal Töövihik .

  • Lõpuks klõpsake nupule.

See on Salvesta ja sulge meie Töövihik .

Loe edasi: VBA-kood Exceli salvestusnupu jaoks (4 varianti)

5. Salvestage ja sulgege kõik avatud töövihikud Exceli VBA abil

Selle viimase meetodi puhul salvestame ja sulgeme kõik avatud Tööraamatud Seekord on meil samad kaks Tööraamatud nagu meetod 3 , aga seekord me Salvesta ja sulge mõlemad Tööraamatud Siinkohal kasutame For Next Loop läbida meie Tööraamatud .

Sammud:

  • Esiteks, nagu näidatud meetodis 1 , tuua üles VBA moodul .
  • Teiseks, kirjutage see kood sisse, et Moodul . 
 Sub CloseAndSaveOpenWorkbooks() Dim z As Workbook With Application For Each z In Workbooks With z If Not z.ReadOnly Then .Save End If If If .Name ThisWorkbook.Name Then .Close End If End With Next z .Quit End With End Sub

VBA koodi lahtikirjutamine

  • Esiteks, me kutsume meie Alammenetlus CloseAndSaveOpenWorkbooks .
  • Siis kasutame me Järgmise silmuse jaoks et läbida kõiki Tööraamatud .
  • Pärast seda, kasutades Salvesta meetodi oleme säästmine meie failid.
  • Siis me sulge kõik Tööraamatud välja arvatud meie praegune Töövihik .
  • Lõpuks on meil suletud originaal Töövihik kasutades Lõpeta vara.
  • Kolmandaks, nagu näidatud meetodis 1 , täitke kood.

Seetõttu on see Salvesta ja sulge kaks Tööraamatud Me näeme muudetud kuupäev on sama kahe puhul Tööraamatud Kokkuvõttes oleme näidanud, et 5 erinevad Exceli VBA makros aadressile Salvesta ja sulge töövihik .

Loe edasi: Kuidas salvestada makro isiklikku makrotöövihikusse?

Kokkuvõte

Me oleme näidanud teile 5 kiire ja lihtne mõista Excel VBA aadressile Salvesta ja sulge töövihik Kui teil on probleeme, siis kommenteerige allpool. Lisaks võite külastada meie veebilehte. Exceldemy rohkem Exceliga seotud artiklid. Tänan lugemise eest, jätkake kiitust!

Eelmine postitus Kuidas ühendada kaks rida Excelis (4 lihtsat viisi)
Järgmine postitus Kuidas värskendada Exceli lehte automaatselt (3 sobivat meetodit)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.