Excel VBA: saglabāt un aizvērt darbgrāmatu (5 piemēroti piemēri)

Hugh West

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

Šajā rakstā mēs jums parādīsim 5 izmantošanas metodes Excel VBA uz saglabāt un aizvērt Darba burtnīca . Tā kā laiks ir ļoti vērtīgs, mēs varam ietaupīt daudz laika, izlaižot ikdienišķus uzdevumus, izmantojot Excel VBA Turklāt mēs esam izmantojuši datu kopu, kas sastāv no 3 kolonnas : " Nosaukums ", " Dzimis " un " Jaunākie darbi ". Šis datu kopums atspoguļo 6 cilvēku dzimšanas gadu un jaunāko informāciju par viņu filmām.

Lejupielādēt Practice Workbook

VBA, lai saglabātu un aizvērtu darbgrāmatu.xlsm

5 piemēri, kā saglabāt un aizvērt darbgrāmatu, izmantojot VBA programmā Excel

1. Aktīvās darbgrāmatas saglabāšana un aizvēršana, izmantojot Excel VBA

Pirmajai metodei mēs saglabāt un aizvērt . Aktīvā darbgrāmata izmantojot VBA makro programma . Mēs uzmodināsim VBA modulis logu, ierakstiet mūsu kodu un pēc tam izpildiet kodu, lai sasniegtu mūsu mērķi. Bez liekas laika kavēšanās, sāksim soli pa solim procedūru.

Soļi:

Pirms mūsu koda ievadīšanas mums ir jāievada VBA modulis . Lai to izdarītu -

  • Pirmkārt, no Izstrādātājs cilne>>>> atlasiet Visual Basic .

Varat arī nospiest ALT + F11 lai to arī izdarītu. " Microsoft Visual Basic pieteikumam " parādīsies pēc tam.

  • Otrkārt, no Ievietot >>>> atlasīt Modulis .

Šeit ievadīsim savu kodu.

  • Treškārt, ievadiet šādu kodu Modulis . 
 Sub Save_and_Close_Active_Workbook() ActiveWorkbook.Close SaveChanges:=True End Sub

VBA koda sadalījums

  • Pirmkārt, mēs aicinām mūsu Apakšprocedūra Save_and_Close_Active_Workbook .
  • Tad mēs atsaucamies uz mūsu pašreizējo Darba burtnīca kā ActiveWorkbook .
  • Pēc tam, izmantojot Aizvērt metode mēs esam slēgšana mūsu failu.
  • Visbeidzot, mēs esam iestatījuši SaveChanges uz True , kas ietaupīs mūsu Darba burtnīca pēc slēgšana .

Tagad izpildīsim mūsu kodu.

  • Pirmkārt, Saglabāt šis Modulis .
  • Otrkārt, noklikšķiniet uz mūsu koda iekšpusē.
  • Visbeidzot, nospiediet Palaist pogu.

Ja mēs dodamies uz mūsu Excel lietojumprogramma , mēs redzēsim mūsu Darba burtnīca ir slēgts. Tādējādi mēs esam veiksmīgi saglabāts un slēgts . Darba burtnīca izmantojot Excel VBA .

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

2. Excel VBA, lai saglabātu un aizvērtu konkrētu darbgrāmatu

Otrajai metodei mēs izmantosim saglabāt un aizvērt īpašs Darba burtnīca izmantojot citu VBA kods. Šeit mēs esam atvēruši divus Darba burtnīcas un mēs saglabāt un aizvērt pirmais Darba burtnīca no kreisās puses.

Soļi:

  • Pirmkārt, kā parādīts 1. metodē , uz augšu izcelt VBA modulis .
  • Otrkārt, ievadiet šo kodu Modulis . 
 Sub Save_and_Close_Specific_Workbook() Workbooks("Makro Saglabāt un aizvērt.xlsm").Close SaveChanges:=True End Sub

VBA koda sadalījums

  • Pirmkārt, mēs aicinām mūsu Apakšprocedūra Save_and_Close_Specific_Workbook .
  • Tad mēs atsaucamies uz mūsu pirmo Darba burtnīca iekšpusē Darba burtnīcas objekts .
  • Pēc tam, izmantojot Aizvērt metode mēs esam slēgšana mūsu failu.
  • Visbeidzot, mēs esam iestatījuši SaveChanges uz True , kas ietaupīs mūsu Darba burtnīca pēc slēgšana .
  • Treškārt, kā parādīts 1. metodē , izpildiet kodu.

Pēc tam mēs redzēsim, ka pirmais Darba burtnīca ir slēgts un tikai otrais Darba burtnīca ir atvērts . Tāpēc mēs esam parādījuši jums vēl vienu metodi, kā ietaupot un slēgšana a Darba burtnīca .

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

3. Saglabāt un aizvērt konkrētu darbgrāmatu noteiktā mapē

Trešās metodes gadījumā mēs saglabāt un aizvērt a īpaša darba burtnīca ar mape izmantojot Excel VBA .

Soļi:

  • Pirmkārt, kā parādīts 1. metodē , uz augšu izcelt VBA modulis .
  • Otrkārt, ievadiet šo kodu Modulis . 
 Sub Save_and_Close_Workbook_in_Specific_Folder() Darbgrāmatas("Makro Save and Close.xlsm").SaveAs _ Filename:="C:\Users\Rafi\OneDrive\Desktop\Exceldemy\Macro Save and Close.xlsm" Darbgrāmatas("Makro Save and Close.xlsm").Aizvērt End Sub

VBA koda sadalījums

  • Pirmkārt, mēs aicinām mūsu Apakšprocedūra Saglabāt_un_Close_Workbook_in_Specific_Folder .
  • Pēc tam, izmantojot Saglabātkā metode mēs esam ietaupot mūsu failu noteiktā vietā.
  • Pēc tam mēs saglabājam to pašu faila nosaukumu, kas sākotnējam Darba burtnīca .
  • Visbeidzot, mēs aizvērt mūsu Darba burtnīca .
  • Treškārt, kā parādīts 1. metodē , izpildiet kodu.

Pēc tam tas saglabāt mūsu Darba burtnīca mūsu definētajā mapes atrašanās vietā un aizvērt to. Tādējādi, mēs esam parādījuši jums citu metodi, kā ietaupot un slēgšana Darba burtnīca ar īpaša mape izmantojot VBA .

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

Līdzīgi lasījumi

  • Excel VBA: saglabājiet darbgrāmatu bez uzaicinājuma (ar vienkāršiem soļiem)
  • [Labots!] Kāpēc Excel nesaglabā manu formatējumu? (7 iespējamie iemesli)
  • 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)
  • [Labots!] Excel CSV faila izmaiņu saglabāšana (6 iespējamie risinājumi)

4. Pogas ievietošana, lai saglabātu un aizvērtu darbgrāmatu programmā Excel

Ceturtajā metodē mēs izveidosim VBA poga lai aizvērtu un saglabātu darbgrāmatu programmā Excel.

Soļi:

  • Pirmkārt, kā parādīts 1. metodē , uz augšu izcelt VBA modulis .
  • Otrkārt, ievadiet šo kodu Modulis . 
 Sub Poga Button_Click_Save_and_Close_Workbook() ThisWorkbook.Save Application.Quit End Sub

VBA koda sadalījums

  • Pirmkārt, mēs aicinām mūsu Apakšprocedūra Poga_Click_Save_and_Close_Workbook .
  • Pēc tam, izmantojot Saglabāt metode mēs esam ietaupot mūsu darba burtnīca
  • Visbeidzot, mēs aizvērt mūsu Darba burtnīca izmantojot Pārtraukt metode.

Tagad mēs ievietosim VBA pogu šeit.

  • Pirmkārt, no Izstrādātājs cilne>>>> Ievietot >>>> atlasīt Poga (Veidlapu kontrole) .

  • Pēc tam peles kursors mainīsies un velciet lodziņu iekšpusē. Darba burtnīca .

Pēc tam Dialoglodziņš Piešķirt makro parādīsies.

  • Pēc tam atlasiet " Poga_Click_Save_and_Close_Workbook ".
  • Pēc tam nospiediet LABI .

Tad mēs redzēsim. Poga 1 in the Darba burtnīca .

  • Visbeidzot noklikšķiniet uz pogas.

Tas ļaus saglabāt un aizvērt mūsu Darba burtnīca .

Lasīt vairāk: VBA kods pogas Saglabāt pogu programmā Excel (4 varianti)

5. Saglabāt un aizvērt visas atvērtās darbgrāmatas, izmantojot Excel VBA

Izmantojot pēdējo metodi, mēs saglabāsim un aizvērsim visus atvērtos Darba burtnīcas . Šoreiz mums ir tie paši divi Darba burtnīcas kā metodē 3 , tomēr šoreiz mēs saglabāt un aizvērt abi Darba burtnīcas . Šeit mēs izmantosim Par nākamo cilpu iziet mūsu Darba burtnīcas .

Soļi:

  • Pirmkārt, kā parādīts 1. metodē , uz augšu izcelt VBA modulis .
  • Otrkārt, ievadiet šo kodu 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 With End Sub

VBA koda sadalījums

  • Pirmkārt, mēs aicinām mūsu Apakšprocedūra CloseAndSaveOpenWorkbooks .
  • Tad mēs izmantojam Nākamajai cilpei lai cikliski skatītu visus Darba burtnīcas .
  • Pēc tam, izmantojot Saglabāt metode mēs esam ietaupot mūsu failus.
  • Tad mēs aizvērt visi Darba burtnīcas izņemot mūsu pašreizējo Darba burtnīca .
  • Visbeidzot, mums ir slēgts oriģināls Darba burtnīca izmantojot Pārtraukt īpašums.
  • Treškārt, kā parādīts 1. metodē , izpildiet kodu.

Tāpēc tas saglabāt un aizvērt abas Darba burtnīcas . Mēs varam redzēt datums mainīts ir vienāds abiem Darba burtnīcas . Nobeigumā mēs esam parādījuši. 5 dažādi Excel VBA makroekrāni uz saglabāt un aizvērt Darba burtnīca .

Lasīt vairāk: Kā saglabāt makroprogrammu personīgajā makro darbgrāmatā?

Secinājums

Mēs esam jums parādījuši 5 ātri un viegli saprotams Excel VBA uz saglabāt un aizvērt Darba burtnīca . Ja saskaraties ar jebkādām problēmām, nekautrējieties komentēt zemāk. Turklāt varat apmeklēt mūsu vietni. Exceldemy lai uzzinātu vairāk Ar Excel saistīts raksti. Paldies, ka lasāt, turpiniet izcelties!

Iepriekšējais ieraksts Kā programmā Excel apvienot divas rindas (4 vienkārši veidi)
Nākamais ieraksts Kā automātiski atsvaidzināt Excel lapu (3 piemērotas metodes)

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.