So programmieren Sie die Schaltfläche Durchsuchen in Excel VBA einen Folder Name Get

Mitglieder-Login

InformationenMicrosoft Access

Wie der Dauer der Beschäftigung in… Microsoft Excel ist ein Zahlenspiel Programm, das mühelos berechnen kann die Dauer der Beschäftigung
Wie man einen Fehler in Excel Debug… Microsoft Excel Fehlercodes zurückgegeben werden , wenn Sie eine Funktion, die nicht ausgewertet wer
Wie man eine Liste mit den Top Wert… Nachdem Sie einen PivotTable-Bericht in der Microsoft Office Excel 2007 Tabellenkalkulation erstellt
MS Excel 2002 Tutorials Microsoft Excel 2002 ist die Tabellenkalkulations-Software -Programm als Teil der Microsoft Office S

Software

HOME

* Computer Wissen >> Software >> Microsoft Access >> .

So programmieren Sie die Schaltfläche Durchsuchen in Excel VBA einen Folder Name Get

Die BrowseForFolder Methode können Sie Ihre Microsoft Office Excel-Anwendung mehr Dynamik durch die Sie auffordert, nicht hart Codepfade in Ihrem Programm. Die BrowseForFolder Methode ermöglicht es Ihnen, den Benutzer aufzufordern, für einen bestimmten Ordner auf Ihrem Computer mit Visual Basic für Applikationen (VBA) durchsuchen. Der Pfad des Ordners zurückgegeben werden können für andere Zwecke Programmierung wie Lesen oder Speichern einer Datei verwendet werden. Reduzieren Wartbarkeit durch nicht das hart zu codieren alle Pfade in Ihrem Programm. Anleitung
1

starten Excel , klicken Sie auf die Registerkarte "Entwicklertools" gefolgt von " Visual Basic ". Klicken Sie auf das Menü "Einfügen" und wählen Sie " UserForm ", um ein neues Formular einfügen . Klicken Sie auf das Menü "Ansicht" und klicken Sie auf " Toolbox ", um Steuerelemente, die Sie zu Ihrem Formular hinzufügen können .
2

Klicken Sie auf " CommandButton " auf die Toolbox , und klicken Sie dann auf dem Formular auf die Schaltfläche Steuerelement zu erstellen ziehen . Fügen Sie ein neues Textfeld Kontrolle mit der gleichen Technik .
3

Doppelklicken Sie auf die neue Schaltfläche , um den Visual Basic -Editor-Fenster zu öffnen. Geben Sie den folgenden Code unter " Private Sub CommandButton1_Click (): "

On Error GoTo Err_CommandButton1_Click :
4

Geben Sie den folgenden Code, um zwei Variablen, die Sie in Ihrem Programm definieren :

Dim As String Dim

ShellApp As Object
5

Geben Sie den folgenden Code, um die " BrowseForFolder "-Methode zu starten und ein Dialogfenster für den Benutzer zu wählen pathSelected ein Ordner :

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

BrowseForFolder (0, " Wählen Sie einen Ordner ", 0, openat )
6

Geben Sie den folgenden Ordner , um die in der " BrowseForFolder " Dialogfenster ausgewählt zu bekommen:

pathSelected = ShellApp.self.Path
7

Geben Sie den folgenden Pfad , um die ausgewählt werden, um das Textfeld-Steuerelement auf Ihrem Formular hinzuzufügen :

Me.TextBox1.Text = pathSelected
8

Geben Sie den folgenden , um das Objekt aus dem Speicher freizugeben :

Set ShellApp = Nothing
9

Geben Sie den folgenden , um eine Message-Box mit einem Display mögliche Fehler und am Ende der Prozedur :

Exit_CommandButton1_Click :

Exit Sub

Err_CommandButton1_Click :

MsgBox Err.Description

Lebenslauf Exit_CommandButton1_Click :

End Sub
10

Presse "F5" auf Ihrer Programm starten und dann klicken Sie auf " CommandButton1 ", um nach einem Ordner zu durchsuchen. Wählen Sie einen Ordner und klicken Sie auf "OK". Der Pfad wird in das Textfeld-Steuerelement angezeigt werden.