Finde en mappe og undermapper ved hjælp af Visual Basic for Applications ( VBA ), er ikke så kompliceret som du måske tror. I VBA kan du bruge " Dir "-funktionen for at få mappenavne i en sti. Når du har fundet den mappe , du leder efter , kan du bruge stien til at finde undermapper . Denne proces er nyttig, når du har brug for at gemme en fil i en bestemt mappe , men ikke har den fulde sti til det. Ting du skal
Microsoft Office Excel
Vis Flere Instruktioner
1

Launch Microsoft Office Excel , skal du klikke på "Udvikler " fanen og klik på " Visual Basic ". Klik på " Indsæt" menuen og klikke på " Modul " for at indsætte en ny kode modul
2

Skriv følgende for at oprette en ny sub procedure : .

Private Sub findDirectories ( ) < br >
3

Føj følgende kode til at oprette tre variabler, du vil bruge til at finde den mappe af interesse : Hej

Dim startPath As String

Dim myname As String

Dim dirFound Som Boolean
4

Definer det drev, hvor du vil søge efter biblioteket og få den første mappe : Hej

startPath = " C: \\ "

myname = Dir ( startPath , vbDirectory )
5

Opret en while-løkke , søge hver mappe i "C: \\ ", indtil " Temp" mappe er fundet, og kalder de " getSubDirectories " sub procedure at få alle undermapper i mappen " Temp" mappe : Hej

Do While dirFound = False
p Hvis myname < > " . " Og myname < > ".." Så

Hvis ( GetAttr ( startPath & myname ) Og vbDirectory ) = vbDirectory Så
p Hvis myname = " Temp" Så

dirFound = Sand

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

End If

End If

End If
p Hvis ( dirFound = False ) Så

myname = Dir

End If

Loop

End Sub
6

Kopier og indsæt følgende kode til at skabe den " getSubDirectories "sub procedure og vise alle sub mapper findes i " Temp " mappe ved hjælp af Immediate -vinduet:

Private Sub getSubDirectories ( startPath As String )

Dim myname As String
< p > myname = Dir ( startPath , vbDirectory )

Do While myname < > " "
p Hvis myname < > " . " Og myname < > ".." Så

Hvis ( GetAttr ( startPath & myname ) Og vbDirectory ) = vbDirectory Så

Debug.Print myname

End If

End If

myname = Dir

Loop

End Sub
7

Tryk på " Ctrl" og "G " for at vise Immediate -vinduet. Klik inde i " findDirectories " og tryk " F5 " for at køre programmet.