Chcete sebe alebo svojim používateľom poskytnúť rýchly spôsob, ako vyhľadať a otvoriť súbor v Exceli? Toto makro používa jednoduchú techniku, ktorá otvára priateľské dialógové okno, ktoré vám umožňuje prehľadávať a otvárať súbor Excel podľa vášho výberu.
Ako funguje makro
Toto makro otvorí dialógové okno, ktoré tu vidíte, a umožní používateľovi vyhľadať a otvoriť súbor programu Excel.
Dialógové okno Otvoriť aktivované makrom.
Toto makro funguje takto:
Pod makro1()
'Krok 1: Definujte premennú typu String
Dim FName ako variant
'Krok 2: Metóda GetOpenFilename aktivuje dialógové okno
FName = Application.GetOpenFilename( _
FileFilter:="Zošity programu Excel,*.xl*", _
Title:="Vyberte pracovný zošit na otvorenie", _
MultiSelect:=False)
'Krok 3: Ak bol vybraný súbor, otvorte ho!
Ak FName <> False Then
Workbooks.Open Filename:=FNname
Koniec Ak
End Sub
V kroku 1 makro deklaruje premennú Variant, ktorá obsahuje názov súboru, ktorý si používateľ vyberie. FName je názov vašej premennej.
V kroku 2 použijete metódu GetOpenFilename na vyvolanie dialógového okna, ktoré vám umožní prehľadávať a vyberať súbor, ktorý potrebujete.
Metóda GetOpenFilename podporuje niekoľko prispôsobiteľných parametrov. Parameter FileFilter vám umožňuje určiť typ súboru, ktorý hľadáte. Parameter Názov vám umožňuje zmeniť názov, ktorý sa zobrazí v hornej časti dialógového okna. Parameter MultiSelect umožňuje obmedziť výber na jeden súbor.
Ak používateľ vyberie súbor z dialógového okna, premenná FName sa vyplní zvoleným názvom súboru. V kroku 3 skontrolujete prázdnu premennú FName. Ak premenná nie je prázdna, na otvorenie súboru použite metódu Open objektu Workbooks.
Ako používať makro
Ak chcete implementovať toto makro, môžete ho skopírovať a prilepiť do štandardného modulu:
Aktivujte Editor jazyka Visual Basic stlačením Alt+F11 na klávesnici.
Kliknite pravým tlačidlom myši na názov projektu/zošita v okne projektu.
Vyberte Vložiť → Modul.
Zadajte alebo prilepte kód do novovytvoreného modulu.
(Voliteľné) Priraďte makro k tlačidlu.