Jak zkontrolovat, zda složka existuje a pokud ji nevytvořit?
Zkoušeli jste někdy zkontrolovat, zda složka existuje nebo není z listu aplikace Excel? V tomto článku budu hovořit o kontrole, zda složka existuje v zadané cestě, pokud ne, bude složka vytvořena automaticky pod cestou.
Zkontrolujte, zda složka existuje v konkrétní cestě k souboru pomocí kódu VBA
Vytvořte složku, pokud neexistuje v konkrétní cestě k souboru pomocí kódu VBA
Zkontrolujte, zda složka existuje v konkrétní cestě k souboru pomocí kódu VBA
Následující kód VBA vám může pomoci zkontrolovat, zda složka existuje v konkrétní cestě k souboru, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Zkontrolujte, zda složka existuje v konkrétní cestě k souboru:
Sub Test_Folder_Exist_With_Dir()
'Updateby Extendoffice
Dim sFolderPath As String
sFolderPath = "C:\Users\DT168\Desktop\Test folder"
If Right(sFolderPath, 1) <> "\" Then
sFolderPath = sFolderPath & "\"
End If
If Dir(sFolderPath, vbDirectory) <> vbNullString Then
MsgBox "Folder exist", vbInformation, "Kutools for Excel"
Else
MsgBox "Folder doesn't exist", vbInformation, "Kutools for Excel"
End If
End Sub
Poznámka: Ve výše uvedeném kódu byste měli změnit cestu a název složky C: \ Users \ DT168 \ Desktop \ Testovací složka podle vašich potřeb.
3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, získáte následující výsledky:
Vytvořte složku, pokud neexistuje v konkrétní cestě k souboru pomocí kódu VBA
Zkontrolujte, zda složka existuje v cestě k souboru, pokud ne, abyste ji vytvořili pod touto konkrétní cestou k souboru, může vám tento kód pomoci dokončit následující kód VBA.
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Vytvořte složku, pokud v cestě k souboru neexistuje:
Sub MakeMyFolder()
'Updateby Extendoffice
Dim fdObj As Object
Application.ScreenUpdating = False
Set fdObj = CreateObject("Scripting.FileSystemObject")
If fdObj.FolderExists("C:\Users\DT168\Desktop\Test folder") Then
MsgBox "Found it.", vbInformation, "Kutools for Excel"
Else
fdObj.CreateFolder ("C:\Users\DT168\Desktop\Test folder")
MsgBox "It has been created.", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
Poznámka: Ve výše uvedeném kódu byste měli změnit cestu a název složky C: \ Users \ DT168 \ Desktop \ Testovací složka podle vašich potřeb.
3. Po vložení kódu stiskněte a stiskněte F5 klíč k jeho spuštění:
(1.) Pokud složka existuje, zobrazí se okno s výzvou, jak ukazuje následující snímek obrazovky:
(2.) Pokud složka neexistuje, bude vytvořena pod konkrétní cestou najednou a zobrazí se výzva, která vám připomene, že složka byla vytvořena, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!