Ako naprogramovať na tlačidlo Prehľadávať v programe Excel VBA sa dostať názov zložky

Spôsob BrowseForFolder môže vaše aplikácie Microsoft Office Excel dynamickejší tým , že vás vyžaduje , aby tvrdých ciest kódu vo vašom programe . Metóda BrowseForFolder umožňuje vyzve užívateľa k prezeranie na určité zložky v počítači pomocou jazyka Visual Basic for Applications ( VBA ) . Cesta k priečinku sa vrátil môžu byť použité na iné účely programovania , ako je čítanie alebo uloženie súboru . Znížte udržiavateľný tým , že nie je na pevnom kódu nejaké cesty v programe . Návod dovolená 1

spustení programu Excel , kliknite na " Developer " kartu nasleduje " Visual Basic " . Kliknite na menu " Vložiť " a vyberte " UserForm " vložiť nový formulár . Kliknite na menu " View " a kliknite na " Nástroje " zobrazíte ovládacie prvky , ktoré môžete pridať do vášho formulára .
2

Kliknite na " CommandButton " na paneli nástrojov a kliknite na položku pretiahnite na formulári vytvoriť ovládací prvok tlačidla . Pridať nový ovládací prvok textové pole pomocou rovnakej techniky .
3

Dvakrát kliknite na nové tlačidlo pre otvorenie Basic Editor Window jazyka . Zadajte nasledujúci kód pod " Private Sub CommandButton1_Click ( ) : "

On Error GoTo Err_CommandButton1_Click :
4

zadajte nasledujúci kód pre definovanie dvoch premenných , ktoré budete používať vo vašom programe :

Dim pathSelected As String Dim

ShellApp As Object
5

Zadajte nasledujúci kód spustiť metódu " BrowseForFolder " a zobrazí sa dialógové okno pre užívateľa vybrať zložka :

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

BrowseForFolder ( 0 , " Vyberte priečinok " , 0 , OPEN )
6

Zadajte nasledujúce dostať priečinky vybrané v režime " BrowseForFolder " dialógové okno : Autor

pathSelected = ShellApp.self.Path
7

Zadajte nasledujúce pridať cestu vybrali pre ovládací prvok textové pole na formulári :

Me.TextBox1.Text = pathSelected
8

zadajte nasledujúce uvoľnenie objektu z pamäte :

Set ShellApp = Nothing
9

zadajte nasledujúce zobrazí okno so správou s niektorou možné chyby a ukončiť postup :

Exit_CommandButton1_Click :

Exit Sub

Err_CommandButton1_Click :

MsgBox Err.Description

Pokračovať Exit_CommandButton1_Click :

End Sub
10

Stlačte " F5 " , ktorý spustí váš program a potom kliknite na tlačidlo " CommandButton1 " vyhľadajte zložku . Vyberte priečinok a kliknite na tlačidlo " OK " . Cesta sa zobrazí v ovládacom prvku textové pole .

• Predchádzajúca strana: Ako odstrániť heslo z hárku programu Excel 2007 
• Ďalšia strana: Ako vybrať všetko rovnaké hodnoty v programe Excel 2007