Keď uvažujete o automatickom otváraní excelových zošitov, zvážte, čo sa môže stať, ak sa pokúsite otvoriť knihu, ktorá je už otvorená. Vo svete bez VBA sa Excel pokúsi znova otvoriť súbor, pričom sa zobrazí hlásenie s upozornením, že všetky neuložené zmeny sa stratia. Pred takýmto výskytom sa môžete chrániť tak, že pred opätovným pokusom o jeho otvorenie skontrolujete, či je daný súbor už otvorený.
Vyhnite sa tejto varovnej správe.
Prvá vec, ktorú si treba na tomto makre všimnúť, je, že ide o funkciu, nie procedúru Sub. Ako uvidíte, vytvorenie tohto makra ako funkcie vám umožní odovzdať mu ľubovoľný názov súboru, aby ste otestovali, či je daný súbor už otvorený.
Podstata tohto kódu je jednoduchá. Testujete daný názov súboru, aby ste zistili, či ho možno priradiť objektovej premennej. K premennej objektu možno priradiť iba otvorené zošity. Pri pokuse o priradenie uzavretého zošita k premennej sa vyskytne chyba.
Ak je možné daný zošit priradiť, zošit je otvorený; ak sa vyskytne chyba, zošit sa zatvorí.
Funkcia FileIsOpenTest(TargetWorkbook As String) Ako boolovská hodnota
'Krok 1: Deklarujte svoje premenné
Dim TestBook As Workbook
„Krok 2: Povedzte Excelu, aby pokračoval v chybe
Pri chybe Pokračujte ďalej
'Krok 3: Skúste priradiť cieľový zošit k TestBooku
Nastaviť TestBook = Workbooks (TargetWorkbook)
'Krok 4: Ak sa nevyskytla žiadna chyba, zošit je už otvorený
Ak Err.Number = 0 Potom
FileIsOpenTest = Pravda
Inak
FileIsOpenTest = False
Koniec Ak
End Function
Prvá vec, ktorú makro urobí, je deklarovať premennú String, ktorá bude obsahovať názov súboru, ktorý si používateľ vyberie. TestBook je názov vašej premennej String.
V kroku 2 poviete Excelu, že pri spúšťaní tohto kódu môže nastať chyba, a v prípade chyby pokračujte v kóde. Bez tohto riadku by sa kód jednoducho zastavil, keď sa vyskytne chyba. Opäť otestujete daný názov súboru, aby ste zistili, či ho možno priradiť objektovej premennej. Ak je možné daný zošit priradiť, je otvorený; ak sa vyskytne chyba, je zatvorený.
V kroku 3 sa pokúsite priradiť daný zošit k premennej TestBook Object. Zošit, ktorý sa pokúšate priradiť, je premenná typu String s názvom TargetWorkbook. TargetWorkbook sa odovzdá funkcii v deklaráciách funkcií (pozri prvý riadok kódu). Táto štruktúra eliminuje potrebu pevne zakódovať názov zošita, čo vám umožňuje odovzdať ho ako premennú.
V kroku 4 jednoducho skontrolujete, či sa nevyskytla chyba. Ak sa chyba nevyskytla, zošit je otvorený, takže FileIsOpenTest nastavte na hodnotu True. Ak sa vyskytla chyba, zošit nie je otvorený a FileIsOpenTest nastavíte na hodnotu False.
Túto funkciu možno opäť použiť na vyhodnotenie akéhokoľvek súboru, ktorý jej odošlete, prostredníctvom argumentu TargetWorkbook. Toto je krása uvedenia makra do funkcie.
Nasledujúce makro ukazuje, ako implementovať túto funkciu. Tu zavoláte novú funkciu FileIsOpenTest, aby ste sa uistili, že používateľ nemôže otvoriť už otvorený súbor:
Pod makro1()
'Krok 1: Definujte premennú typu String
Dim FName ako variant
Dim FNFileOnly As String
'Krok 2: Metóda GetOpenFilename aktivuje dialógové okno
FName = Application.GetOpenFilename( _
FileFilter:="Zošity programu Excel,*.xl*", _
Title:="Vyberte pracovný zošit na otvorenie", _
MultiSelect:=False)
'Krok 3: Otvorte vybraný súbor, ak ešte nie je otvorený
Ak FName <> False Then
FNFileOnly = StrReverse(Left(StrReverse(FName), _
InStr(StrReverse(FName), ") - 1))
Ako zablokovať Microsoft Word otváranie súborov v režime len na čítanie v systéme Windows Microsoft Word otvára súbory v režime len na čítanie, takže ich nie je možné upravovať? Nebojte sa, metódy sú uvedené nižšie
Ako opraviť chyby pri tlači nesprávnych dokumentov Microsoft Word Chyby pri tlači dokumentov Word so zmeneným typom písma, chaotickými odsekmi, chýbajúcim textom alebo strateným obsahom sú pomerne časté. Avšak, nie
Ak ste použili pero alebo zvýrazňovač na kreslenie na powerpointové snímky počas prezentácie, môžete si kresby uložiť pre ďalšiu prezentáciu alebo ich vymazať, aby ste pri ďalšom zobrazení začali s čistými powerpointovými snímkami. Ak chcete vymazať kresby perom a zvýrazňovačom, postupujte podľa týchto pokynov: Vymazanie riadkov jedna na […]
Knižnica štýlov obsahuje súbory CSS, súbory XSL (Extensible Stylesheet Language) a obrázky používané preddefinovanými vzorovými stránkami, rozloženiami strán a ovládacími prvkami v SharePointe 2010. Ak chcete nájsť súbory CSS v knižnici štýlov publikačnej lokality: Vyberte Akcie lokality→Zobraziť Všetok obsah stránky. Zobrazí sa obsah stránky. Knižnica štýlov sa nachádza v […]
Nezahlcujte svoje publikum obrovskými číslami. V programe Microsoft Excel môžete zlepšiť čitateľnosť svojich tabúľ a zostáv formátovaním čísel tak, aby sa zobrazovali v tisíckach alebo miliónoch.
Zistite, ako používať nástroje sociálnych sietí SharePoints, ktoré umožňujú jednotlivcom a skupinám komunikovať, spolupracovať, zdieľať a spájať sa.
Juliánske dátumy sa často používajú vo výrobných prostrediach ako časová pečiatka a rýchla referencia pre číslo šarže. Tento typ kódovania dátumu umožňuje maloobchodníkom, spotrebiteľom a servisným zástupcom identifikovať, kedy bol produkt vyrobený, a teda aj vek produktu. Juliánske dátumy sa používajú aj v programovaní, armáde a astronómii. Rôzne […]
V Accesse 2016 môžete vytvoriť webovú aplikáciu. Čo je to teda webová aplikácia? Web znamená, že je online a aplikácia je len skratka pre „aplikáciu“. Vlastná webová aplikácia je online databázová aplikácia, ku ktorej sa pristupuje z cloudu pomocou prehliadača. Vytvárate a udržiavate webovú aplikáciu vo verzii pre počítače […]
Väčšina stránok v SharePointe 2010 zobrazuje zoznam navigačných prepojení na paneli Rýchle spustenie pozdĺž ľavej strany stránky. Panel Rýchle spustenie zobrazuje prepojenia na odporúčaný obsah lokality, ako sú zoznamy, knižnice, lokality a publikačné stránky. Panel Rýchle spustenie obsahuje dva veľmi dôležité odkazy: Odkaz na celý obsah lokality: […]
Pre jednoduché problémy Riešiteľ v Exceli zvyčajne rýchlo nájde optimálne hodnoty premennej Riešiteľ pre cieľovú funkciu. V niektorých prípadoch má však Riešiteľ problém nájsť hodnoty premennej Riešiteľ, ktoré optimalizujú cieľovú funkciu. V týchto prípadoch Riešiteľ zvyčajne zobrazí hlásenie alebo chybové hlásenie, ktoré popisuje alebo diskutuje problém, ktorý […]
