Kai galvojate apie automatinį „Excel“ darbaknygių atidarymą, pagalvokite, kas gali nutikti, jei bandysite atidaryti jau atidarytą knygą. Ne VBA pasaulyje „Excel“ bando dar kartą atidaryti failą ir rodomas pranešimas, įspėjantis, kad visi neišsaugoti pakeitimai bus prarasti. Galite apsisaugoti nuo tokio įvykio patikrinę, ar tam tikras failas jau atidarytas, prieš bandydami jį atidaryti dar kartą.
Venkite šio įspėjimo pranešimo.
Pirmiausia reikia pastebėti šią makrokomandą, kad tai yra funkcija, o ne antrinė procedūra. Kaip matysite, šią makrokomandą padarę funkcija, galėsite jai perduoti bet kokį failo pavadinimą, kad patikrintumėte, ar tas failas jau atidarytas.
Šio kodo esmė paprasta. Bandote duotą failo pavadinimą, kad sužinotumėte, ar jį galima priskirti objekto kintamajam. Objekto kintamajam gali būti priskirtos tik atidarytos darbaknygos. Kai bandote priskirti uždarą darbaknygę kintamajam, įvyksta klaida.
Jei duotą darbaknygę galima priskirti, darbaknygė atidaryta; jei įvyksta klaida, darbaknygė uždaroma.
Funkcija FileIsOpenTest(TargetWorkbook As String) Kaip Būlio reikšmė
1 veiksmas: deklaruokite savo kintamuosius
Pritemdyta testo knyga kaip darbo knyga
„2 veiksmas: nurodykite „Excel“ tęsti, jei įvyko klaida
Įvykus klaidai, tęskite toliau
3 veiksmas: pabandykite priskirti tikslinę darbaknygę „TestBook“.
Nustatyti testo knygą = darbaknygės (tikslinė darbo knyga)
4 veiksmas: jei klaida neįvyko, darbaknygė jau atidaryta
Jei Err.Number = 0 Tada
FileIsOpenTest = Tiesa
Kitas
FileIsOpenTest = Netiesa
Pabaiga, jei
Pabaigos funkcija
Pirmas dalykas, kurį atlieka makrokomandos, yra paskelbti eilutės kintamąjį, kuriame bus vartotojo pasirinktas failo pavadinimas. TestBook yra jūsų eilutės kintamojo pavadinimas.
Atlikdami 2 veiksmą, pranešate programai Excel, kad paleidžiant šį kodą gali būti klaida, o klaidos atveju atnaujinkite kodą. Be šios eilutės kodas tiesiog sustotų, kai įvyktų klaida. Vėlgi, jūs patikrinate nurodytą failo pavadinimą, kad sužinotumėte, ar jį galima priskirti objekto kintamajam. Jei duotą darbaknygę galima priskirti, ji atidaryta; jei įvyksta klaida, jis uždaromas.
3 veiksme bandote priskirti nurodytą darbaknygę TestBook Object kintamajam. Darbaknygė, kurią bandote priskirti, yra eilutės kintamasis, vadinamas TargetWorkbook. „TargetWorkbook“ perduodama funkcijai funkcijų deklaracijose (žr. pirmąją kodo eilutę). Ši struktūra pašalina poreikį koduoti darbaknygės pavadinimą, todėl galite perduoti jį kaip kintamąjį.
4 veiksme tiesiog patikrinkite, ar neįvyko klaida. Jei klaida neįvyko, darbaknygė atidaryta, todėl FileIsOpenTest nustatote kaip True. Jei įvyko klaida, darbaknygė neatidaryta ir jūs nustatote FileIsOpenTest į False.
Vėlgi, šią funkciją galima naudoti bet kuriam failui, kurį jai perduodate, įvertinti naudojant TargetWorkbook argumentą. Tai yra makrokomandos panaudojimo funkcija grožis.
Šioje makrokomandoje parodyta, kaip įgyvendinti šią funkciją. Čia iškviečiate naują funkciją FileIsOpenTest, kad įsitikintumėte, jog vartotojas negali atidaryti jau atidaryto failo:
Sub-makro1()
„1 veiksmas: apibrėžkite eilutės kintamąjį
Dim FName kaip variantas
Pritemdyti FNFileOnly kaip eilutę
2 veiksmas: „GetOpenFilename Method“ suaktyvina dialogo langą
FName = Application.GetOpenFilename(_
FileFilter:="Excel Workbooks,*.xl*", _
Title:="Pasirinkite atidaryti darbaknygę", _
MultiSelect:=False)
„3 veiksmas: atidarykite pasirinktą failą, jei jis dar nebuvo atidarytas
Jei FName <> False Tada
FNFileOnly = StrReverse(Left(StrReverse(FName), _
InStr(StrReverse(FName), ") - 1))
Kaip neleisti Microsoft Word atidaryti failų tik skaitymo režimu sistemoje Windows. Microsoft Word atidaro failus tik skaitymo režimu, todėl jų redaguoti neįmanoma? Nesijaudinkite, metodai pateikiami žemiau
Kaip ištaisyti klaidas spausdinant neteisingus Microsoft Word dokumentus.Klaidos spausdinant Word dokumentus su pakeistais šriftais, netvarkingomis pastraipomis, trūkstamo teksto ar prarasto turinio yra gana dažnos. Tačiau nereikia
Jei naudodami rašiklį ar žymeklį piešėte ant savo PowerPoint skaidrės pristatymo metu, galite išsaugoti brėžinius kitam pristatymui arba ištrinti juos, kad kitą kartą rodydami pradėtumėte nuo švarių PowerPoint skaidrių. Vykdykite šias instrukcijas, kad ištrintumėte rašiklio ir žymeklio piešinius: Trinti linijas po vieną […]
Stilių bibliotekoje yra CSS failų, XSL (Extensible Stylesheet Language) failų ir vaizdų, naudojamų iš anksto nustatytų puslapių puslapiuose, puslapių išdėstymuose ir valdikliuose „SharePoint 2010“. Norėdami rasti CSS failus publikavimo svetainės stilių bibliotekoje: pasirinkite Svetainės veiksmai → Peržiūrėti Visas svetainės turinys. Pasirodo svetainės turinys. Stiliaus biblioteka yra […]
Neužkraukite savo auditorijos milžiniškais skaičiais. Programoje „Microsoft Excel“ galite pagerinti informacijos suvestinių ir ataskaitų skaitomumą formatuodami skaičius, kad jie būtų rodomi tūkstančiais arba milijonais.
Sužinokite, kaip naudoti „SharePoints“ socialinių tinklų įrankius, leidžiančius asmenims ir grupėms bendrauti, bendradarbiauti, bendrinti ir prisijungti.
Julijaus datos dažnai naudojamos gamybos aplinkoje kaip laiko žyma ir greita partijos numerio nuoroda. Šio tipo datos kodavimas leidžia mažmenininkams, vartotojams ir paslaugų agentams nustatyti, kada produktas buvo pagamintas, taigi ir produkto amžių. Julijaus datos taip pat naudojamos programavimo, kariuomenės ir astronomijos srityse. Skirtingi […]
Galite sukurti žiniatinklio programą naudodami „Access 2016“. Taigi, kas vis dėlto yra žiniatinklio programa? Na, žiniatinklis reiškia, kad jis yra internete, o programa yra tik „programos“ santrumpa. Pasirinktinė žiniatinklio programa yra internetinė duomenų bazės programa, pasiekiama iš debesies naudojant naršyklę. Kuriate ir prižiūrite žiniatinklio programą darbalaukio versijoje […]
Daugumoje „SharePoint 2010“ puslapių sparčiojo paleidimo juostoje, esančioje kairėje puslapio pusėje, pateikiamas naršymo nuorodų sąrašas. Greitosios paleidimo juostoje rodomos nuorodos į siūlomą svetainės turinį, pvz., sąrašus, bibliotekas, svetaines ir publikavimo puslapius. Greitojo paleidimo juostoje yra dvi labai svarbios nuorodos: Visas svetainės turinys: […]
Paprastoms problemoms spręsti „Excel“ sprendėjas paprastai greitai suranda optimalias tikslinės funkcijos „Solver“ kintamųjų reikšmes. Tačiau kai kuriais atvejais „Solver“ turi problemų ieškant „Solver“ kintamųjų reikšmių, optimizuojančių tikslo funkciją. Tokiais atvejais „Solver“ paprastai rodo pranešimą arba klaidos pranešimą, kuriame aprašoma arba aptariama problema, kurią […]
