Il metodo BrowseForFolder può rendere l'applicazione di Microsoft Office Excel più dinamico , non si richiede di percorsi di codice duri nel programma. Il metodo BrowseForFolder consente di richiedere all'utente di cercare una determinata cartella nel vostro computer utilizzando Visual Basic, Applications Edition (VBA ) . Il percorso della cartella restituito può essere utilizzato per altri scopi di programmazione come leggere o salvare un file . Ridurre la manutenibilità per non dover codificare alcun percorso nel programma. Istruzioni
1
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
