V aplikaci Microsoft Excel můžeme pomocí kódu VBA zkontrolovat, zda soubor existuje na konkrétním místě. Makro zobrazí stav ve formě pole se zprávou. V tomto článku určíme, zda stav konkrétního souboru existuje nebo ne, pomocí kódu VBA. Pomocí funkce Dir můžeme pomocí aplikace Excel VBA zkontrolovat, zda soubor existuje v umístění.
Pomocí tohoto programu můžeme zkontrolovat, zda existuje soubor, který již existuje ve stejném umístění. Abychom mohli starý soubor odstranit nebo přejmenovat.
Otázka: Když vytváříme makro pro automatizaci úkolu, obvykle ukládáme výstupní soubor na určité místo. Chtěl bych mít makro pro ověření a na oplátku ukázat, že soubor je k dispozici nebo není na konkrétní cestě.
Pro ilustraci tohoto příkladu uložíme soubor „Sample.xlsx“ do cesty „D: \ FolderName \ Sample.xlsx“
Chcete -li zjistit, zda sešit existuje, musíme ke spuštění editoru VB provést následující kroky:
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
- Klikněte na Vložit a poté na Modul
- Tím se vytvoří nový modul
- Do standardního modulu zadejte následující 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 " Soubor neexistuje "Else Workbooks.Open" D: \ FolderName \ Sample.xlsx "End If End Sub
- Nyní je makro nastaveno ke spuštění, použijeme klávesovou zkratku F5 a otevře se soubor „Ukázka“
- Pokud soubor není k dispozici na předem definované cestě, zobrazí se následující okno se zprávou
Závěr: Tímto způsobem můžeme snadno rozpoznat, zda konkrétní soubor existuje nebo ne na konkrétní cestě pomocí kódu VBA.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail