De BrowseForFolder methode kan uw Microsoft Office Excel- applicatie dynamischer te maken door je niet nodig om hard code paden in uw programma. De BrowseForFolder methode kunt u de gebruiker te vragen om te zoeken naar een bepaalde map op uw computer met behulp van Visual Basic for Applications ( VBA ) . Het pad terug kan worden gebruikt voor andere doeleinden programmering zoals lezen of opslaan van een bestand . Verminderen onderhoudbaarheid door niet te hoeven harde code elke paden in uw programma . Instructies 1 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 .
|