Jak pomocí makra VBA v Excelu spustit Access a otevřít databázi Accessu
Chcete zobrazit vhodná data pro výpočet nebo otevřít přístupovou databázi z jiných důvodů? Existuje mnoho aplikací, ve kterých má smysl vyvolávat databázi aplikace Access prostřednictvím aplikace Excel.
To, co můžete dělat v tabulce přes hypertextový odkaz, není s makrem aplikace Excel žádný problém. Se správným programovým kódem můžete vyvolat požadovanou databázi rychlostí blesku. Existuje několik způsobů, jak to provést. Pomocí následujících příkazů můžete konkrétně řídit Access:
Volání podřízeného přístupu ()
Ztlumit přístup jako objekt
Nastavit přístup = CreateObject ("Access.Application")
Access.Visible = True
Access.OpenCurrentDatabase "c: \ files \ testdatenbank.mdb"
MsgBox "Databáze otevřena."
Access.CloseCurrentDatabase
Nastavit přístup = nic
End Sub
Po příkazu OPENCURRENTDATABASE zadejte v uvozovkách cestu, kde je databáze umístěna. Po spuštění makra Excel nejprve otevře Access a Access pak otevře odpovídající soubor.
Excel poté zobrazí okno se zprávou, jak ukazuje následující obrázek:
Informační okno je nutné, protože jinak by obsah databáze nebyl viditelný, pokud by byla databáze následně uzavřena v Excelu.
Makro zadáte stisknutím kombinace kláves ALT F11 v Excelu. Tím se vyvolá editor VBA. Pomocí příkazu VLOŽIT - MODUL vložte prázdný list modulu. Makro spustíte stisknutím kombinace kláves ALT F8 v Excelu.
