V programe Microsoft Excel môžeme pomocou kódu VBA skontrolovať, či súbor existuje na konkrétnom mieste. Makro zobrazí stav vo forme poľa so správou. V tomto článku určíme, či stav nejakého konkrétneho súboru existuje alebo nie, pomocou kódu VBA. Pomocou funkcie Dir môžeme pomocou programu Excel VBA skontrolovať, či súbor existuje v umiestnení.
Pomocou tohto programu môžeme skontrolovať, či existuje nejaký súbor, ktorý už existuje na rovnakom mieste. Aby sme mohli starý súbor odstrániť alebo premenovať.
Otázka: Keď vytvárame makro na automatizáciu úlohy, spravidla uložíme výstupný súbor na určité miesto. Chcel by som mať makro na overenie a na oplátku ukázať, že súbor je k dispozícii alebo nie na konkrétnej ceste.
Na ilustráciu tohto príkladu uložíme súbor „Sample.xlsx“ do cesty „D: \ FolderName \ Sample.xlsx“
Aby sme zistili, či zošit existuje, musíme pri spustení editora VB vykonať nasledujúce kroky:
- Kliknite na kartu Vývojár
- Zo skupiny kódov vyberte Visual Basic
- Kliknite na Vložiť a potom na Modul
- Tým sa vytvorí nový modul
- Do štandardného modulu zadajte nasledujúci kód
Sub FileExists () Dim FilePath as String Dim TestStr As String FilePath = "D: \ FolderName \ Sample.xlsx" TestStr = "" On Error Resume Next TestStr = Dir (FilePath) On Error GoTo 0 If TestStr = "" Then MsgBox " Súbor neexistuje "Ostatné zošity. Otvorte" D: \ FolderName \ Sample.xlsx "End If End Sub
- Teraz je makro spustené, použijeme klávesovú skratku F5 a otvorí sa súbor „Ukážka“
- Ak súbor nie je k dispozícii na vopred definovanej ceste, zobrazí sa nasledujúce okno so správou
Záver: Vďaka tomu môžeme pomocou kódu VBA ľahko rozpoznať, či konkrétny súbor na konkrétnej ceste existuje alebo nie.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku
