The BrowseForFolder metoden kan göra din Microsoft Office Excel ansökan mer dynamisk genom att inte kräva att du ska hårdkoda sökvägar i ditt program . Den BrowseForFolder metod kan du uppmana användaren att leta efter en viss mapp i din dator med hjälp av Visual Basic for Applications ( VBA ) . Mappsökvägen returneras kan användas för andra programmeringsspråk ändamål såsom att läsa eller spara en fil . Minska underhållet genom att inte behöva hårt kod några vägar i ditt program . Instruktioner
1
Launch Excel , klicka på " Utvecklare " fliken , följt av " Visual Basic . " Klicka på " Infoga " -menyn och välj " UserForm " för att infoga en ny form . Klicka på " Visa " -menyn och klicka på " Verktygslåda " för att visa kontroller du kan lägga till ditt formulär .
2
Klicka " CommandButton " på Verktygslådan och klicka sedan dra på formuläret för att skapa knapp kontroll . Lägg till en ny kontroll textruta med samma teknik .
3
Dubbelklicka på den nya knappen för att öppna Visual Basic Editor Window . Skriv följande kod under " Private Sub CommandButton1_Click ( ) : "
On Error GoTo Err_CommandButton1_Click :
4
Skriv in följande kod för att definiera två variabler du kommer att använda i ditt program :
Dim pathSelected As String
Dim ShellApp As Object
5
Skriv in följande kod för att starta " BrowseForFolder " metoden och visa en dialogruta för användaren att välja en mapp :
Set ShellApp = CreateObject ( " Shell.application " ) . _
BrowseForFolder ( 0 , " Välj mapp " , 0 , openat )
6
Skriv följande för att få den mapp som valts i " BrowseForFolder " dialogruta :
pathSelected = ShellApp.self.Path
7
Skriv följande för att lägga till sökvägen valts till textrutan kontroll i formuläret :
Me.TextBox1.Text = pathSelected
8
Skriv följande för att frigöra objektet från minnet :
Set ShellApp = Nothing
9
Skriv följande för att visa en meddelanderuta med all eventuella fel och avsluta proceduren :
Exit_CommandButton1_Click :
Exit Sub
Err_CommandButton1_Click :
MsgBox Err.Description
Resume Exit_CommandButton1_Click :
End Sub
10
Tryck " F5 " för att köra programmet och klicka sedan på " CommandButton1 " för att bläddra efter en mapp . Välj en mapp och klicka på " OK . " Vägen kommer att visas i textrutan kontroll .
