Viltu gefa þér eða notendum þínum fljótlega leið til að leita að og opna skrá í Excel? Þetta fjölvi notar einfalda tækni sem opnar vingjarnlegan glugga, sem gerir þér kleift að fletta að og opna Excel skrána að eigin vali.
Hvernig macro virkar
Þessi fjölvi opnar svargluggann sem þú sérð hér, sem gerir notandanum kleift að leita að og opna Excel skrá.
Opna svarglugginn virkjaður af fjölvi.
Svona virkar þetta macro:
Sub Macro1()
'Skref 1: Skilgreindu strengjabreytu
Dimmt FName sem afbrigði
'Skref 2: GetOpenFilename Method virkjar gluggann
FName = Application.GetOpenFilename( _
FileFilter:="Excel vinnubækur,*.xl*", _
Title:="Veldu vinnubók til að opna", _
MultiSelect:=False)
'Skref 3: Ef skrá var valin, opnaðu hana!
Ef FName <> False Þá
Workbooks.Open Filename:=FName
End If
End Sub
Í skrefi 1 lýsir fjölvi yfir afbrigðisbreytu sem hefur skráarnafnið sem notandinn velur. FName er nafn breytunnar þinnar.
Í skrefi 2 notarðu GetOpenFilename aðferðina til að kalla fram svarglugga sem gerir þér kleift að fletta og velja skrána sem þú þarft.
GetOpenFilename aðferðin styður nokkrar sérhannaðar breytur. FileFilter færibreytan gerir þér kleift að tilgreina tegund skráar sem þú ert að leita að. Titill færibreytan gerir þér kleift að breyta titlinum sem birtist efst í glugganum. MultiSelect færibreytan gerir þér kleift að takmarka valið við eina skrá.
Ef notandinn velur skrá úr glugganum er FName breytan fyllt með völdum skráarnafni. Í skrefi 3 athugarðu hvort það sé tóm FName breytu. Ef breytan er ekki tóm, notarðu Open aðferðina á Workbooks hlutnum til að opna skrána.
Hvernig á að nota macro
Til að útfæra þetta fjölvi geturðu afritað og límt það inn í venjulega einingu:
Virkjaðu Visual Basic Editor með því að ýta á Alt+F11 á lyklaborðinu þínu.
Hægrismelltu á heiti verkefnis/vinnubókar í verkefnaglugganum.
Veldu Insert→ Module.
Sláðu inn eða límdu kóðann í nýstofnaða einingu.
(Valfrjálst) Úthlutaðu fjölvi við hnapp.