Hvordan å programmere en Browse-knappen i Excel VBA til å få et mappenavn

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.