Otevřít soubor a předat mu nějaký parametr - Excel VBA

Úvodem

Potřebujeme pomoci VBA v Excelu otevřít soubor a předat mu nějaké informace, například vypočtené hodnoty. Jak na to se dozvíte v tomto článku. Včetně kontroly, tak abychom neotevírali druhý soubor pod stejným názvem.

VBA kód

Otevření souboru jsem již popisoval, ale připomenutí nezaškodí.

Workbooks.Open Filename:="OteviranySoubor.xls" ActiveWorkbook.Worksheets("List1").Cells(1, 1).Value = "10"

Poznámka: Kód nekontroluje, zda již není soubor pod stejným názvem otevřen.

Je sešit otevřen - VBA kód

Následujícím kódem lze zkontrolovat otevřenost sešitu stejného jména

Set Sesit = Workbooks("OteviranySoubor.xls") sesitOtevren = Not Sesit Is Nothing If sesitOtevren = True Then MsgBox "Máte otevren soubor s názvem OteviranySoubor.xls - zavřete jej." Else MsgBox "Otevřu soubor OteviranySoubor.xls." Workbooks.Open Filename:="OteviranySoubor.xls" ActiveWorkbook.Worksheets("List1").Cells(1, 1).Value = "10" End If

Závěrem

V kódech nejsou deklarace proměnných, jelikož slouží jako ukázkový příklad.

Článek byl aktualizován: 19.09.2020 11:07

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.