Přeskočit navigaci | Přeskočit na novinky

Jste zde: Úvodní stránka » excel » vba-soubory » exce-vba-otevrit-soubor-predat-parametr

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

Otevřít zvolený soubor a předat mu nějaký parametr(y)

Ú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: 08.01.2012 10:12



| tisk stránky TISK | nahoru NAHORU |
| |

Další články k tématu




Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.


Přidání nového komentáře




(vlož číslo šest)

Z bezpečnostních důvodu dočasně nemůžete použít HTML značky a URL. Děkuji za pochopení.
Děkuji, za Vaše komentáře.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu.




Nejnovější článek

Z článku o excel jsem jako poslední přidal či upravil článek 14.05.2012:
Kombinování funkcí - vzorců.

Nejčtenější článek




Google+

  

Facebook

facebook  

Novinky

Word: 12.5.2012:
Matematické rovnice (vzorce) - Word 2010

Excel: 14.05.2012:
Kombinování funkcí - vzorců

Access: 28.04.2012:
VBA - Jak spustit v MS Access

Power Point: 25.04.2012:
SmartArt - PowerPoint 2010

Outlook 26.04.2012:
Outlook 2010 - jak vypadá

Project: 05.04.2012:
Kalendář ukázka

OneNote: 17.10.2010:
OneNote 2010 – popis obrazovky

Office 30.04.2012:
Kde hledat odpovědi na dotazy o MS Office

Poděkování

Poděkování patří hlavně mojí nejbáječnější manželce.

LinkedIN

Translate

     

Stránky o MS Office produktu společnosti Micosoft. Neslouží jako technická podpora.
| Email na autora: lasak@centrum.cz | Copyright © : Pavel a Danka 2006 - 2012 |
| Doporučuji: Advokátní kancelář Brno - Dana Lasáková | 919

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.