Word VBA otevře Excelovský soubor
Jak pomocí VBA v Microsoft Word otevřít sešit v Microsoft Excelu.
Cílem článku
V tomto článku se dozvíte jak pomoci VBA v Microsoft Word otevřít požadovaný sešit (soubor) v Excelu.
Včetně nastavení Wordu tak, aby VBA kód fungoval. Sice všichni předpokládají (navíc jsou tyto návody v angličtině), že nastavení je jasné, ale ze zkušenosti mohu říct, že o nastavení se neví.
VBA kód pro Word
Následující kód pro Microsoft Word otevře Sešit v Excelu. Umístění a název sešitu je: D:\test.xlsx .
Sub OpenExcelFile()
Dim oExcel As Excel.Application
Dim oWB As Excel.Workbook
Set oExcel = New Excel.Application
Set oWB = oExcel.Workbooks.Open("D:\test.xlsx")
oExcel.Visible = True
End Sub
Poznámka: Pokud vám nebude fungovat nemáte, správně nastavený VBA Microsoft Word.
Jak nastavit podmínky pro VBA
Aby vám výše uvedený kód fungoval, je nutné zpřístupnit Microsoft Excel x.0 Object Library toto nastavení provedete:
Tools > References a zaškrtnout "Microsoft Excel x.0 Object Library".
Závěrem
Otvíráte pomocí VBA z Wordu Excelovské sešity?
Článek byl aktualizován: 19.09.2020 10:38
Podpora - oceňte web a pozvěte mě na čokoládu
Pomohl vám článek? Vyřešili jste problém? Můžete mě podpořit zakoupení tabulky (samozdřejmě čokoládové), když kafe nepiji ;) Odkaz na zakoupení čokolády. Za veškerou podporu vám děkuji a samozdřejmě jí využiji do zdokonalování a rozšířování webu.
Případně přidejte odkaz na vaši oblíbenou sociální síť, případně využijste hashtag #JakNaExcel .
Poděkování
Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.
Vylepšení
Narazili jste v článku na nejasnost, chybu? Máte tip na vylepšení nebo doplnění článku? Budu rád pokud se zmínite v komentářích.
Pavel Lasák - autor webu
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.
Word
Sdílejte
|
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
|
LinkedIn... |
