Innehållsförteckning:
Video: HUR ANVÄNDER MAN?! 2024
Om din VBA-procedur behöver fråga användaren för ett filnamn, kan du använda InputBox-funktionen och låta Excel-användaren göra något att skriva. En inmatningslåda är vanligtvis inte det bästa verktyget för det här jobbet, eftersom de flesta användare har svårt att komma ihåg banor, backslashes, filnamn och filtillägg. Det är med andra ord alltför lätt att skruva upp när du skriver ett filnamn.
För en bättre lösning på det här problemet, använd GetOpenFilename-metoden i Applikationsobjektet, vilket säkerställer att din kod får händerna på ett giltigt filnamn, inklusive dess fullständiga sökväg. Metoden GetOpenFilename visar den välkända Öppna dialogrutan (en död ringer för dialogrutan Excel visas när du väljer Arkiv → Öppna → Bläddra).
Metoden GetOpenFilename öppnar inte den angivna filen. Denna metod returnerar helt enkelt det användardefinierade filnamnet som en sträng. Då kan du skriva kod för att göra vad du vill med filnamnet.
Syntaxen för GetOpenFilename-metoden
Den officiella syntaxen för GetOpenFilename-metoden är följande:
objekt. GetOpenFilename ([fileFilter], [filterIndex], [title], [buttonText], [multiSelect])
GetOpenFilename-metoden tar de valfria argumenten nedan.
| Argument | Vad det gör |
|---|---|
| FileFilter | Bestämmer vilka typer av filer som visas i dialogrutan
(till exempel *. TXT). Du kan ange flera filter för användaren att välja mellan. |
| FilterIndex | Bestämmer vilken filfil som dialogrutan visar med
standard. |
| Titel | Anger bildtexten i dialogrutans titel
. |
| ButtonText | Ignorerad (används endast för Macintosh-versionen av Excel). |
| MultiSelect | Om True kan användaren välja flera filer. |
Ett exempel på GetOpenFilename
Argumentet FileFilter bestämmer vad som visas i dialogrutan Filer av typ-listrutan. Detta argument består av par filfilter strängar följt av wildcard fil filter specifikationen, med kommatecken som skiljer varje del och par. Om det utelämnas, gäller följande argument:
Alla filer (*. *), *. *
Observera att denna sträng består av två delar, åtskilda av ett kommatecken:
Alla filer (*. *)
och
*. *
Den första delen av den här strängen är texten som visas i rullgardinsmenyn Filer av typ. Den andra delen avgör vilka filer dialogrutan visar. Till exempel, *. * betyder alla filer.
Koden i följande exempel öppnar en dialogruta som frågar användaren för ett filnamn.Förfarandet definierar fem filfilter. Observera att VBA-line-fortsättningssekvensen används för att ställa in filtervariabeln. gör det här för att förenkla detta ganska komplicerade argument.
Sub GetImportFileName () Dim Finfo Som String Dim FilterIndex Så länge Dim Titel Som String Dim FileName Som variant "Ställ in lista över filfilter FInfo =" Textfiler (*. Txt), *. txt, "& _" Lotusfiler (*.prn), *. prn, "& _" kommaseparerade filer (*.csv), *. csv, "& _" ASCII-filer (*. asc), *. asc, "& _" Alla filer (*. *), *. * "" Display *. * som standard FilterIndex = 5 'Ange dialogrutans textning Titel = "Välj en fil att importera"' Hämta filnamnet FileName = Program. GetOpenFilename (FInfo, _ FilterIndex, Title) 'Hantera returinformation från dialogrutan Om FileName = False Then MsgBox "Ingen fil valdes. "Else MsgBox" Du har valt "& FileName End If End Sub
Här visas dialogrutan Excel när du utför den här proceduren. Utseendet kan variera beroende på vilken version av Windows du använder och de visningsalternativ du har ställt in.
I en riktig applikation skulle du göra något mer meningsfullt med filnamnet. Du kan till exempel öppna den genom att använda ett uttalande som det här:
Arbetsböcker. Öppna filnamn
Observera att filenName-variabeln är deklarerad som en variantdatatyp. Om användaren klickar på Avbryt innehåller variabeln ett booleskt värde (False). Annars är FileName en sträng. Därför hanterar datatypen med en variant båda möjligheterna.
