Haluatko tarjota itsellesi tai käyttäjillesi nopean tavan etsiä ja avata tiedosto Excelissä? Tämä makro käyttää yksinkertaista tekniikkaa, joka avaa ystävällisen valintaikkunan, jonka avulla voit selata ja avata valitsemasi Excel-tiedoston.
Kuinka makro toimii
Tämä makro avaa tässä näkyvän valintaikkunan, jolloin käyttäjä voi selata ja avata Excel-tiedoston.
Makron aktivoima Avaa-valintaikkuna.
Tämä makro toimii seuraavasti:
Alamakro1()
'Vaihe 1: Määritä merkkijonomuuttuja
Dim FName Varianttina
Vaihe 2: GetOpenFilename Method aktivoi valintaikkunan
FName = Application.GetOpenFilename(_
FileFilter:="Excel-työkirjat,*.xl*", _
Title:="Valitse avattava työkirja", _
MultiSelect:=False)
'Vaihe 3: Jos tiedosto valittiin, avaa se!
Jos FName <> False Sitten
Workbooks.Open Filename:=FName
Loppu Jos
Lopeta ala
Vaiheessa 1 makro ilmoittaa Variant-muuttujan, joka sisältää käyttäjän valitseman tiedostonimen. FName on muuttujan nimi.
Vaiheessa 2 käytät GetOpenFilename-menetelmää avataksesi valintaikkunan, jonka avulla voit selata ja valita tarvitsemasi tiedoston.
GetOpenFilename-menetelmä tukee muutamia mukautettavia parametreja. FileFilter-parametrilla voit määrittää etsimäsi tiedostotyypin. Otsikko-parametrilla voit muuttaa valintaikkunan yläosassa näkyvää otsikkoa. MultiSelect-parametrilla voit rajoittaa valinnan yhteen tiedostoon.
Jos käyttäjä valitsee tiedoston valintaikkunasta, FName-muuttuja täytetään valitulla tiedostonimellä. Vaiheessa 3 tarkistat, onko FName-muuttuja tyhjä. Jos muuttuja ei ole tyhjä, käytät Työkirjat-objektin Open-menetelmää tiedoston avaamiseen.
Kuinka käyttää makroa
Voit ottaa tämän makron käyttöön kopioimalla ja liittämällä sen vakiomoduuliin:
Aktivoi Visual Basic Editor painamalla näppäimistön Alt+F11.
Napsauta hiiren kakkospainikkeella projektin/työkirjan nimeä projektiikkunassa.
Valitse Lisää → Moduuli.
Kirjoita tai liitä koodi äskettäin luotuun moduuliin.
(Valinnainen) Määritä makro painikkeelle.