lancio di Excel , fare clic sulla scheda "Sviluppatore " seguito da " Visual Basic ". Fai clic sul menu "Inserisci" e selezionare " form " per inserire un nuovo modulo . Fai clic sul menu "Visualizza" e fare clic su " Casella degli strumenti " per visualizzare i controlli che è possibile aggiungere al form.
2
Clicca " CommandButton " nella casella degli strumenti e fare clic quindi trascinare sul modulo per creare il controllo pulsante . Aggiungere un nuovo controllo casella di testo con la stessa tecnica .
3 Fare doppio clic sul nuovo pulsante per aprire la finestra di Visual Basic Editor. Digitare il codice riportato di seguito " Private Sub CommandButton1_Click ( ) : "
On Error GoTo Err_CommandButton1_Click :
4
Digitare il codice seguente per definire due variabili che si intende utilizzare nel vostro programma : < br
Dim > pathSelected As String Dim
ShellApp As Object
5
Digitare il seguente codice per avviare il metodo " BrowseForFolder " e visualizzare una finestra di dialogo per l'utente di scegliere una cartella:
ShellApp = CreateObject ( " Shell.Application " ) . _
BrowseForFolder ( 0 , "Scegli una cartella" , 0 , OpenAT ) economici 6
digitare quanto segue per ottenere la cartella selezionata nella finestra di dialogo " BrowseForFolder " :
pathSelected = ShellApp.self.Path
7
digitare quanto segue per aggiungere il percorso selezionato per il controllo casella di testo sul modulo :
Me.TextBox1.Text = pathSelected
8
digitare quanto segue per rilasciare l'oggetto dalla memoria :
ShellApp = Nothing
9
Digitare quanto segue per visualizzare una finestra di messaggio con qualsiasi possibili errori e terminare la procedura :
Exit_CommandButton1_Click :
Exit Sub
software © www.354353.com