The BrowseForFolder metoden kan gjøre Microsoft Office Excel -programmet mer dynamisk ved å ikke kreve deg til harde kode baner i programmet. Den BrowseForFolder metoden tillater deg å be brukeren om å søke etter en bestemt mappe på datamaskinen ved hjelp av Visual Basic for Applications ( VBA ) . Mappebanen returneres kan brukes til andre programmeringsspråk formål, for eksempel å lese eller lagre en fil . Reduser vedlikeholdbarhet ved ikke å måtte vanskelig kode noen stier i programmet. Instruksjoner
en

Launch Excel , klikker du på " Developer "-kategorien etterfulgt av " Visual Basic. " Klikk på " Insert"-menyen og velg " UserForm " for å sette inn et nytt skjema . Klikk på "View "-menyen og klikk " Toolbox " for å vise kontrollene du kan legge til Form din .
2

Klikk " CommandButton " på verktøykassen og klikk deretter dra på skjemaet for å lage knapp kontroll. Legg til en ny tekstboks kontroll ved hjelp av samme teknikk.
3

Dobbeltklikk på den nye knappen for å åpne Visual Basic Editor Window . Skriv inn følgende kode under "Private Sub CommandButton1_Click ( ) : "

On Error GoTo Err_CommandButton1_Click :
4

Skriv inn følgende kode for å definere to variablene du vil bruke i programmet :

Dim pathSelected As String

Dim ShellApp som objekt
5

Skriv inn følgende kode for å starte " BrowseForFolder "-metoden og vise et dialogvindu for brukeren å velge en mappe : en

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

BrowseForFolder ( 0 , " Velg en mappe " , 0 , OpenAt )
6

Skriv inn følgende for å få mappen valgt i " BrowseForFolder " dialogvindu :

pathSelected = ShellApp.self.Path
7

Skriv inn følgende for å legge banen valgt til tekstboksen kontroll på skjemaet : en

Me.TextBox1.Text = pathSelected
8

Skriv inn følgende for å frigjøre objektet fra minnet : en

Set ShellApp = Ingenting
9

Skriv inn følgende for å vise en meldingsboks med alle mulige feil og avslutte prosedyren :

Exit_CommandButton1_Click :

Exit Sub

Err_CommandButton1_Click :

MsgBox err.Description

Resume Exit_CommandButton1_Click :

End Sub
10

Trykk " F5 " for å kjøre programmet og klikk " CommandButton1 " for å finne en mappe . Velg en mappe og klikk "OK". Banen vil bli vist i tekstboksen kontroll.