Den BrowseForFolder metode kan gøre din Microsoft Office Excel ansøgning mere dynamisk ved ikke at kræve dig til hårde kodestier i dit program. Den BrowseForFolder metoden tillader dig at bede brugeren om at søge efter en bestemt mappe på din computer ved hjælp af Visual Basic for Applications ( VBA ) . Mappen returnerede sti kan benyttes til andre programmeringssprog formål såsom at læse eller gemme en fil. Reducer vedligeholdelsestekniske ved ikke at skulle hårdt kode eventuelle stier i dit program. Instruktioner
1

Launch Excel , skal du klikke på "Udvikler "-fanen efterfulgt af " Visual Basic ". Klik på " Indsæt" menuen og vælg " UserForm " for at indsætte en ny formular . Klik på "Vis" -menuen og klik på " Toolbox " for at se kontrol, hvor du kan tilføje til din formular .
2

Klik på " KommandoKnap " i værktøjskassen , og klik derefter trække på dit formular til at oprette knapper . Tilføj en ny tekstboks ved hjælp af samme teknik.
3

Dobbeltklik på den nye knap for at åbne Visual Basic Editor-vinduet . Indtast følgende kode nedenfor "Private Sub CommandButton1_Click (): "

On Error GoTo Err_CommandButton1_Click :
4

Indtast følgende kode til at definere to variabler, du vil bruge i dit program : < br >

Dim pathSelected As String

Dim ShellApp As Object
5

Indtast følgende kode for at starte " BrowseForFolder "-metoden og vise en dialogboks for brugeren at vælge en mappe : Hej

Set ShellApp = CreateObject ( " Shell.Application "). _

BrowseForFolder (0, " Vælg en mappe, " , 0, OpenAt )
6

Skriv følgende for at få den valgte mappe i " BrowseForFolder " dialogvindue : Hej

pathSelected = ShellApp.self.Path
7

Skriv følgende for at tilføje stien udtaget til tekstboks på formularen : Hej

Me.TextBox1.Text = pathSelected
8

Skriv følgende for at frigøre objektet fra hukommelsen : Hej

Set ShellApp = Nothing
9

Skriv følgende for at få vist en besked boks med nogen mulige fejl og afslutte proceduren :

Exit_CommandButton1_Click :

Exit Sub

Err_CommandButton1_Click :

MsgBox Err.Description

Genoptag Exit_CommandButton1_Click :

End Sub
10

Tryk på " F5 " for at køre dit program og derefter klikke på " CommandButton1 " for at søge efter en mappe. Vælg en mappe, og klik på " OK". Stien vil blive vist i tekstboks .