Vil du give dig selv eller dine brugere en hurtig måde at søge efter og åbne en fil i Excel? Denne makro bruger en simpel teknik, der åbner en venlig dialogboks, så du kan søge efter og åbne den Excel-fil, du vælger.
Sådan fungerer makroen
Denne makro åbner den dialogboks, du ser her, og giver brugeren mulighed for at søge efter og åbne en Excel-fil.
Dialogboksen Åbn aktiveret af makroen.
Sådan fungerer denne makro:
Undermakro1()
Trin 1: Definer en strengvariabel
Dim F-navn som variant
'Trin 2: GetOpenFilename Method aktiverer dialogboksen
FName = Application.GetOpenFilename( _
FileFilter:="Excel-arbejdsbøger,*.xl*", _
Title:="Vælg en projektmappe at åbne", _
MultiSelect:=False)
Trin 3: Hvis en fil blev valgt, skal du åbne den!
Hvis FNavn <> Falsk Så
Workbooks.Open Filename:=FName
Afslut Hvis
Slut Sub
I trin 1 erklærer makroen en Variant-variabel, der indeholder det filnavn, som brugeren vælger. FName er navnet på din variabel.
I trin 2 bruger du metoden GetOpenFilename til at kalde en dialogboks frem, der giver dig mulighed for at gennemse og vælge den fil, du har brug for.
GetOpenFilename-metoden understøtter nogle få tilpasselige parametre. Parameteren FileFilter giver dig mulighed for at angive den type fil, du leder efter. Parameteren Titel giver dig mulighed for at ændre den titel, der vises øverst i dialogboksen. MultiSelect-parameteren giver dig mulighed for at begrænse valget til én fil.
Hvis brugeren vælger en fil fra dialogboksen, udfyldes FName-variablen med det valgte filnavn. I trin 3 tjekker du efter en tom FName-variabel. Hvis variablen ikke er tom, bruger du Open-metoden for Workbooks-objektet til at åbne filen.
Sådan bruger du makroen
For at implementere denne makro kan du kopiere og indsætte den i et standardmodul:
Aktiver Visual Basic Editor ved at trykke på Alt+F11 på dit tastatur.
Højreklik på projekt-/projektmappenavnet i projektvinduet.
Vælg Indsæt → Modul.
Indtast eller indsæt koden i det nyoprettede modul.
(Valgfrit) Tildel makroen til en knap.