Das Programm eine Schaltfläche zum Durchsuchen in Excel VBA einen Ordnernamen bekommen

February 14

Das Programm eine Schaltfläche zum Durchsuchen in Excel VBA einen Ordnernamen bekommen

Die Entpackvorgang-Methode kann Ihre Anwendung Microsoft Office Excel dynamischer gestaltet, indem Sie nicht zu hart Codepfade in Ihrem Programm verlangt. Die Entpackvorgang-Methode können Sie den Benutzer auffordern, die für einen bestimmten Ordner auf Ihrem Computer mithilfe von Visual Basic für Applikationen (VBA) zu durchsuchen. Der Pfad des Ordners zurückgegeben kann für andere Programmierzwecke wie lesen oder Speichern einer Datei verwendet werden. Reduzieren Sie Wartbarkeit, da keine Pfade in Ihrem Programm hart codieren.

Anweisungen

1 Starten Sie Excel, und klicken Sie auf die Registerkarte "Entwicklertools" gefolgt von "Visual Basic." Klicken Sie im Menü "Einfügen" und wählen Sie "UserForm" um ein neues Formular einzufügen. Klicken Sie im Menü "Ansicht" und klicken Sie auf "Toolbox" auf View-Steuerelemente, die Sie zu Ihrem Formular hinzufügen können.

2 Klicken Sie auf "CommandButton" in der Toolbox, und klicken Sie dann ziehen Sie Ihr Formular Button-Steuerelement erstellen. Fügen Sie ein neues Textfeld-Steuerelement mit der gleichen Technik.

3 Doppelklicken Sie auf die Schaltfläche neu, um das 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 zu definieren, die Sie in Ihrem Programm verwenden werden:

Dim pathSelected As String

Dim ShellApp As Object5

Geben Sie den folgenden Code zum Starten der "Entpackvorgang"-Methode, und zeigen ein Dialogfenster für die Benutzer einen Ordner auswählen:

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

BrowseForFolder(0, "Choose a folder", 0, OpenAt)6

Geben Sie Folgendes ein, um in das Dialogfenster "Entpackvorgang" ausgewählten Ordner zu erhalten:

pathSelected = ShellApp.self.Path7

Geben Sie Folgendes ein, um den Pfad ausgewählt, um das Textfeld-Steuerelement auf dem Formular hinzuzufügen:

Me.TextBox1.Text = pathSelected8

Geben Sie Folgendes ein, um das Objekt aus dem Speicher freizugeben:

Set ShellApp = Nothing9

Geben Sie Folgendes ein, um ein Meldungsfeld mit eventuelle Fehler angezeigt und das Verfahren zu beenden:

Exit_CommandButton1_Click:

Exit Sub

Err_CommandButton1_Click:

MsgBox Err.Description

Resume Exit_CommandButton1_Click:

EndSub

10 Drücken Sie "F5" um das Programm auszuführen klicken Sie auf "CommandButton1" um einen Ordner zu suchen. Wählen Sie einen Ordner und klicken Sie auf "OK". Der Pfad wird in das Textfeld-Steuerelement angezeigt werden.