Hvordan å programmere en Browse-knappen i Excel VBA til å få et mappenavn
Den BrowseForFolder metoden kan gjøre Microsoft Office Excel-programmet mer dynamisk ved å ikke kreve deg til harde kode stier i programmet. Den BrowseForFolder metoden gjør det mulig å be brukeren om å søke etter en bestemt mappe på datamaskinen ved hjelp av Visual Basic for Applications (VBA). Mappebanen returnert kan brukes til andre programmerings formål, for eksempel å lese eller lagre en fil. Reduser vedlikeholds ved ikke å måtte vanskelig kode noen stier i programmet.
Bruksanvisning
1 Start Excel, klikker du på "Utvikler" fanen etterfulgt av "Visual Basic." Klikk på "Insert" -menyen og velg "Userform" for å sette inn et nytt skjema. Klikk på "View" -menyen og klikk "Toolbox" til å vise kontrollene du kan legge til ditt Form.
2 Klikk "Command" på verktøykassen og klikk deretter dra på skjemaet for å opprette knapp kontroll. Legg til en ny tekstboks kontroll ved hjelp av samme teknikk.
3 Dobbeltklikk den nye knappen for å åpne Visual Basic Editor Window. Skriv inn følgende kode under "Private Sub CommandButton1_Click ():"
På 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 As Object
5 Skriv inn følgende kode for å starte "BrowseForFolder" metoden og vise et dialogvindu for brukeren å velge en mappe:
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:
Me.TextBox1.Text = pathSelected
8 Skriv inn følgende for å frigjøre objektet fra minnet:
Set ShellApp = Nothing
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
Gjenoppta Exit_CommandButton1_Click:
End Sub
10 Trykk "F5" for å kjøre programmet og klikk på «CommandButton1" for å finne en mappe. Velg en mappe og klikk "OK." Banen vil bli vist i tekstboksen kontroll.