Vill du ge dig själv eller dina användare ett snabbt sätt att söka efter och öppna en fil i Excel? Detta makro använder en enkel teknik som öppnar en vänlig dialogruta, så att du kan bläddra efter och öppna Excel-filen du väljer.
Hur makrot fungerar
Detta makro öppnar dialogrutan som du ser här, så att användaren kan söka efter och öppna en Excel-fil.
Dialogrutan Öppna aktiverad av makrot.
Så här fungerar makrot:
Sub Macro1()
'Steg 1: Definiera en strängvariabel
Dim FName som variant
'Steg 2: GetOpenFilename Method aktiverar dialogrutan
FName = Application.GetOpenFilename( _
FileFilter:="Excel-arbetsböcker,*.xl*", _
Title:="Välj en arbetsbok att öppna", _
MultiSelect:=False)
'Steg 3: Om en fil valdes, öppna den!
Om FName <> False Då
Workbooks.Open Filename:=FName
Avsluta om
Avsluta Sub
I steg 1 deklarerar makrot en Variantvariabel som har filnamnet som användaren väljer. FName är namnet på din variabel.
I steg 2 använder du metoden GetOpenFilename för att få fram en dialogruta som låter dig bläddra och välja den fil du behöver.
Metoden GetOpenFilename stöder några anpassningsbara parametrar. Parametern FileFilter låter dig ange vilken typ av fil du letar efter. Parametern Titel låter dig ändra titeln som visas överst i dialogrutan. Med MultiSelect-parametern kan du begränsa valet till en fil.
Om användaren väljer en fil från dialogrutan fylls variabeln FName med det valda filnamnet. I steg 3 letar du efter en tom FName-variabel. Om variabeln inte är tom använder du metoden Öppna för Workbooks-objektet för att öppna filen.
Hur man använder makrot
För att implementera detta makro kan du kopiera och klistra in det i en standardmodul:
Aktivera Visual Basic Editor genom att trycka på Alt+F11 på ditt tangentbord.
Högerklicka på projektets/arbetsbokens namn i projektfönstret.
Välj Infoga → Modul.
Skriv eller klistra in koden i den nyskapade modulen.
(Valfritt) Tilldela makrot till en knapp.