Ako nájsť adresár a podadresár v jazyku VBA

Hľadanie adresára a podadresáre pomocou jazyka Visual Basic for Applications ( VBA ) , nie je tak zložité , ako si môžete myslieť . Vo VBA , môžete použiť funkciu " Dir " získať názvy adresárov v ceste . Akonáhle ste našli adresár , ktorý hľadáte , môžete použiť cestu k adresáru nájsť podadresára . Tento proces je užitočný , ak potrebujete uložiť súbor v určitom adresári , ale nemajú úplnú cestu k nemu . Veci , ktoré budete potrebovať v Microsoft Office Excel
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Office Excel , kliknite na kartu " Vývojár " a kliknite na " Visual Basic " . Kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový kód modulu
2

Zadajte nasledujúci vytvoriť nový čiastkové postup : .

Private Sub findDirectories ( )

3

Pridajte nasledujúci kód vytvoriť tri premenné , ktoré budú používať nájsť adresár záujmu :

Dim startPath As String Dim

myname As String

Dim dirFound As Boolean
4

Definujte jednotku , v ktorej chcete vyhľadávať adresáre a získať prvý adresár :

startPath = " C : \\ "

myname = Dir ( startPath , vbDirectory )
5

Vytvorte while , hľadať každý adresár " C : \\ " , až kým nebol nájdený " Temp " adresári a volanie " getSubDirectories " sub postup , aby boli všetky podadresáre nájdené v " Temp " adresári :

robiť , keď dirFound = False

Ak myname < > " . " A myname < > " .. " Potom

( GetAttr ( startPath & myname ) A vbDirectory ) = vbDirectory Potom

Ak myname = " Temp " a potom

dirFound = true

volanie getSubDirectories ( startPath & myname & " \\ " )

End If

End If

End If

( dirFound = False ) Potom

myname = Dir

End If

Loop

End Sub
6

skopírujte a vložte nasledujúci kód na vytvorenie " getSubDirectories " sub Postup a zobrazia sa všetky čiastkové adresára nájdené v " Temp " adresári pomocou okna Immediate :

Private sub getSubDirectories ( startPath As String )

Dim Jmeno As String

myname = Dir ( startPath , vbDirectory )

robiť , keď myname < > " "

Ak myname < > " . " A myname < > " .. " Potom

( GetAttr ( startPath & myname ) A vbDirectory ) = vbDirectory Potom

Debug.Print myname

End If

End If

myname = Dir

Loop

End Sub
7

Stlačte tlačidlo " Ctrl " a " G " sa zobrazí okno Immediate . Kliknite vnútri " findDirectories " a stlačte " F5 " pre spustenie programu .

• Predchádzajúca strana: Ako previesť reťazec na malé písmená v jazyku VBA 
• Ďalšia strana: Ako napísať kód VBA