Chcete sobě nebo svým uživatelům poskytnout rychlý způsob, jak vyhledat a otevřít soubor v Excelu? Toto makro používá jednoduchou techniku, která otevře přátelské dialogové okno, které vám umožní procházet a otevřít soubor Excel podle vašeho výběru.
Jak makro funguje
Toto makro otevře dialogové okno, které zde vidíte, a umožní uživateli procházet a otevřít soubor aplikace Excel.
Dialogové okno Otevřít aktivované makrem.
Toto makro funguje takto:
Dílčí makro1()
'Krok 1: Definujte proměnnou typu String
Dim FName jako varianta
'Krok 2: Metoda GetOpenFilename aktivuje dialogové okno
FName = Application.GetOpenFilename( _
FileFilter:="Sešity Excel,*.xl*", _
Title:="Vyberte sešit k otevření", _
MultiSelect:=False)
'Krok 3: Pokud byl vybrán soubor, otevřete jej!
Pokud FName <> False Then
Workbooks.Open Filename:=FNname
End If
End Sub
V kroku 1 makro deklaruje proměnnou Variant, která obsahuje název souboru, který uživatel zvolí. FName je název vaší proměnné.
V kroku 2 použijete metodu GetOpenFilename k vyvolání dialogového okna, které vám umožní procházet a vybrat soubor, který potřebujete.
Metoda GetOpenFilename podporuje několik přizpůsobitelných parametrů. Parametr FileFilter umožňuje zadat typ souboru, který hledáte. Parametr Název umožňuje změnit název, který se zobrazí v horní části dialogového okna. Parametr MultiSelect umožňuje omezit výběr na jeden soubor.
Pokud uživatel vybere soubor z dialogového okna, proměnná FName se vyplní zvoleným názvem souboru. V kroku 3 zkontrolujete prázdnou proměnnou FName. Pokud proměnná není prázdná, použijte k otevření souboru metodu Open objektu Workbooks.
Jak používat makro
Chcete-li implementovat toto makro, můžete jej zkopírovat a vložit do standardního modulu:
Aktivujte Editor jazyka Visual Basic stisknutím Alt+F11 na klávesnici.
Klepněte pravým tlačítkem na název projektu/sešitu v okně projektu.
Vyberte Vložit → Modul.
Zadejte nebo vložte kód do nově vytvořeného modulu.
(Volitelné) Přiřaďte makro tlačítku.