Šiame straipsnyje mes sužinosime, kaip tobulėti uždarytoje darbaknygėje naudojant „Microsoft Excel 2010“ VBA.
Kai jūsų VBA makrokomanda / kodas atliks visus reikiamus veiksmus, norite, kad makrokomanda išsaugotų failą arba praleistų. Taigi čia yra parinktys, kurias galite nustatyti kode, prašydami uždaryti failą. Uždarymo ir atidarymo metodas VBA gali būti naudojamas uždaryti ir atidaryti darbaknyges.
Jei norite, kad kodas tiesiog uždarytų failą neišsaugojęs pakeitimų, tada naudokite šią eilutę kodo pabaigoje arba visur, kur reikia -
„ActiveWorkbook“. Uždaryti (klaidinga) arba „ActiveWorkbook“. Uždaryti klaidingą arba ActiveWorkbook.CloseSaveChanges: = FALSE
Žiūrėkite kodą šioje nuotraukoje žemiau. Norėdami nukopijuoti kodą, paspauskite klaviatūros klavišus „Alt“ + F11 ir užtikrinkite, kad „Excel“ lapas yra atidarytas. Tada dešiniuoju pelės mygtuku spustelėkite „Microsoft Excel“ objektai ir pasirinkite Įterpti. Tada spustelėkite „Modulis“. Nukopijuokite kodą, pateiktą žemiau paveikslėlio -
Pasirinkimas aiškus
Antroji makrokomanda ()
„ActiveWorkbook“. Uždaryti klaidingą
Pabaiga Sub
Pastaba: Galite pakeisti tekstą „ActiveWorkbook“, kad jis nurodytų darbaknygės pavadinimą arba kintamąjį, kurį naudojote identifikuodami darbaknygę pagal savo kodą.
Jei norite, kad kodas išsaugotų pakeitimus uždarant failą, naudokite
ActiveWorkbook. Uždaryti (tiesa) arba ActiveWorkbook. Uždaryti tiesa arba ActiveWorkbook. Uždaryti SaveChanges: = TRUE
Štai kodas -
Pasirinkimas aiškus
Antroji makrokomanda ()
ActiveWorkbook. Uždaryti tiesa
Pabaiga Sub
Tačiau, jei norite, kad vartotojas nuspręstų, jums tereikia įvesti
ActiveWorkbook.Uždaryti
Štai kodas -
Pasirinkimas aiškus
Antroji makrokomanda ()
ActiveWorkbook.Uždaryti
Pabaiga Sub
Vartotojas gaus iššokantįjį langą, kuriame bus klausiama, ar jis nori išsaugoti darbaknygę, ar ne.
Darbaknygės („File1.XLS“). Uždaryti SaveChanges: = False
Šis pavyzdys uždarys „File1.xls“ ir atmeta visus jo pakeitimus.
Išvada:
Jei „Application.DisplayAlerts“ nustatytas kaip „False“, negausite jokių iššokančiųjų langų ir darbaknygė bus tiesiogiai uždaryta neprašius išsaugoti.
Šis iššokantis langas bus rodomas, jei „Application.DisplayAlerts“ niekur prieš „Excel vba Activeworkbook“ nėra nustatyta kaip „False“. Uždaryti kodo eilutę.
Taigi, net jei kodas reikalauja išjungti įspėjimus, įsitikinkite, kad „Application.DisplayAlerts = True“ yra prieš „Activeworkbook.Close“.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Rašykite mums adresupašto svetainę