Vil du gi deg selv eller dine brukere en rask måte å søke etter og åpne en fil i Excel? Denne makroen bruker en enkel teknikk som åpner en vennlig dialogboks som lar deg søke etter og åpne Excel-filen som du selv velger.

Hvordan makro verk

Denne makroen åpner dialogboksen du .. se her, slik at brukeren kan bla for og åpne en Excel-fil
Åpne dialogboksen aktiveres ved makro

Her er hvordan denne makroen fungerer:
Sub Makro1 () 'Trinn 1: Definer en String variabel Dim fname Som Variant'Step 2: GetOpenFilename Metode aktiverer dialogboksen fname = Application.GetOpenFilename (_ Filefilter: = ". Excel arbeidsbøker, * xl *", _ Tittel: = "Velg en arbeidsbok til Open", _ Multiselect: = False) «Trinn 3: Hvis en fil ble valgt, åpne den! Hvis fname < > False Så Workbooks.Open Name: = fname End IfEnd Sub

I trinn 1, sier makro en Variant variabel som inneholder filnavnet som brukeren velger. Fname er navnet på variabelen.

I trinn 2 bruker du GetOpenFilename metode for å kalle opp en dialogboks som lar deg bla gjennom og velg filen du trenger.

GetOpenFilename metode støtter noen tilpass parametere. Den Filefilter parameter lar deg spesifisere filtypen du leter etter. Tittel parameter kan du endre tittelen som vises øverst i dialogboksen. Den Multiselect parameter kan du begrense utvalget til én fil.

Hvis brukeren velger en fil fra dialogboksen blir fname variabel fylt med den valgte filnavnet. I trinn tre, sjekke deg for en tom fname variabel. Hvis variabelen ikke er tom, bruker du Open metoden arbeidsbøker objekt til å åpne filen.

Hvordan bruke makro

For å implementere denne makroen, kan du kopiere og lime den inn en standard modul:

Aktiver Visual Basic Editor ved å trykke Alt + F11 på tastaturet

Høyreklikk prosjekt /navn arbeidsbok i prosjektvinduet
..
Velg Sett → Module

Skriv eller lim inn koden i den nyopprettede modulen

(valgfritt) Tilordne makro til en knapp
...