Kako preveriti, ali mapa obstaja in če je ne, ustvarite?

Ste že kdaj poskusili preveriti, ali mapa obstaja z Excelovega delovnega lista? V tem članku bom govoril o preverjanju, ali mapa obstaja na določeni poti, v nasprotnem primeru bo mapa samodejno ustvarjena pod potjo.

Preverite, ali mapa obstaja na določeni poti datoteke s kodo VBA

Ustvarite mapo, če ne obstaja na določeni poti datoteke s kodo VBA

Preverite, ali mapa obstaja na določeni poti datoteke s kodo VBA

Naslednja koda VBA vam lahko pomaga preveriti, ali mapa obstaja na določeni poti datoteke, naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Preverite, ali mapa obstaja na določeni poti datoteke:

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

Opomba: V zgornji kodi morate spremeniti pot in ime mape C: \ Users \ DT168 \ Desktop \ Test mapa na vaše potrebe.

3. Nato pritisnite F5 tipko za zagon te kode, boste dobili naslednje rezultate:

Ustvarite mapo, če ne obstaja na določeni poti datoteke s kodo VBA

Preverite, ali mapa obstaja na poti datoteke, če ne, če jo želite ustvariti pod to določeno potjo datoteke, vam lahko naslednja koda VBA pomaga dokončati to opravilo.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Ustvarite mapo, če ne obstaja na poti do datoteke:

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

Opombe: V zgornji kodi morate spremeniti pot in ime mape C: \ Users \ DT168 \ Desktop \ Test mapa na vaše potrebe.

3. Ko prilepite kodo, pritisnite F5 tipka za zagon:

(1.) Če mapa obstaja, se prikaže pozivno okno, kot je prikazano na sliki spodaj:

(2.) Če mapa ne obstaja, se bo hkrati ustvarila pod določeno potjo in pojavilo se bo pozivno polje, ki vas bo opomnilo, da je mapa ustvarjena, glejte posnetek zaslona: