Launch Excel , klikt u op het tabblad "Ontwikkelaar " gevolgd door " Visual Basic . " Klik op het menu "Invoegen " en selecteer " UserForm " om een nieuw formulier te voegen . Klik op het menu " View " en klik op " Toolbox " aan knoppen die u kunt toevoegen aan uw formulier bekijken . Kopen van 2

Klik op " CommandButton " op de Toolbox en klik op sleep op uw formulier op de knop controle te creëren . Voeg een nieuw tekstvak met behulp van dezelfde techniek .
3

Dubbelklik op de nieuwe knop om de Visual Basic Editor venster te openen . Typ de volgende code onder " Private Sub CommandButton1_Click ( ) : "

On Error GoTo Err_CommandButton1_Click :
4

Typ de volgende code om twee variabelen die je gaat gebruiken in je programma te definiëren : < br

Dim > pathSelected als Koord

Dim ShellApp
als Voorwerp
5

Typ de volgende code om de " BrowseForFolder " -methode te starten en een dialoogvenster voor de gebruiker om te kiezen een map :

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

BrowseForFolder
( 0 , " Kies een map " , 0 , OpenAT ) op Twitter

Type 6 de volgende om de map die in de " BrowseForFolder " dialoog venster:

pathSelected = ShellApp.self.Path

Type 7 het volgende aan de geselecteerde aan het tekstvak op uw formulier pad toe te voegen :

Me.TextBox1.Text = pathSelected

Type 8 het volgende om het object los te maken van het geheugen :

Set ShellApp = Nothing

Type
9 het volgende om een berichtvenster weer met alle mogelijke fouten en het einde van de procedure :

Exit_CommandButton1_Click
:

Exit Sub

Err_CommandButton1_Click
:

MsgBox Err.Description

Resume Exit_CommandButton1_Click
:

End Sub

Druk op " F5 "
10 aan uw programma vervolgens uitvoeren op " CommandButton1 " om te zoeken naar een map . Kies een map en klik op "OK . " Het pad wordt weergegeven in het tekstvak .