Vil du gi deg selv eller brukerne dine en rask måte å søke etter og åpne en fil i Excel? Denne makroen bruker en enkel teknikk som åpner en vennlig dialogboks, slik at du kan bla etter og åpne Excel-filen du velger.
Hvordan makroen fungerer
Denne makroen åpner dialogboksen du ser her, slik at brukeren kan søke etter og åpne en Excel-fil.
Dialogboksen Åpne aktivert av makroen.
Slik fungerer denne makroen:
Sub Makro1()
'Trinn 1: Definer en strengvariabel
Dim FName som variant
'Trinn 2: GetOpenFilename Method aktiverer dialogboksen
FName = Application.GetOpenFilename( _
FileFilter:="Excel-arbeidsbøker,*.xl*", _
Title:="Velg en arbeidsbok å åpne", _
MultiSelect:=False)
'Trinn 3: Hvis en fil ble valgt, åpne den!
Hvis FName <> False Da
Workbooks.Open Filename:=FName
Slutt om
End Sub
I trinn 1 erklærer makroen en Variant-variabel som inneholder filnavnet som brukeren velger. FName er navnet på variabelen din.
I trinn 2 bruker du metoden GetOpenFilename for å få frem en dialogboks som lar deg bla gjennom og velge filen du trenger.
GetOpenFilename-metoden støtter noen få tilpassbare parametere. FileFilter-parameteren lar deg spesifisere typen fil du leter etter. Tittelparameteren lar deg endre tittelen som vises øverst i dialogboksen. MultiSelect-parameteren lar deg begrense utvalget til én fil.
Hvis brukeren velger en fil fra dialogboksen, fylles FName-variabelen med det valgte filnavnet. I trinn 3 ser du etter en tom FName-variabel. Hvis variabelen ikke er tom, bruker du Open-metoden til Workbooks-objektet for å åpne filen.
Hvordan bruke makroen
For å implementere denne makroen kan du kopiere og lime den inn i en standardmodul:
Aktiver Visual Basic Editor ved å trykke Alt+F11 på tastaturet.
Høyreklikk navnet på prosjektet/arbeidsboken i prosjektvinduet.
Velg Sett inn → Modul.
Skriv eller lim inn koden i den nyopprettede modulen.
(Valgfritt) Tilordne makroen til en knapp.