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

Jste zde: Úvodní stránka » excel » vba-soubory » vba-excel-je-soubor-otevren

Je soubor otevřen - VBA Excel

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

jak zjistit zda již není soubor danného jména otevřen?

Úvodem

Pokud chcete pomocí VBA otevřít soubor setjného jména jako již má již otevřený soubor obdržíte chybovou hlášku. Předejít této skutečnosti lze kontrolou zda je soubor otevřen.

Řešení ve VBA

On Error Resume Next Set Sesit = Workbooks("kontrolovany-sesit.xls") sesitOtevren = Not Sesit Is Nothing If sesitOtevren = True Then MsgBox "Sesit je otevren" Else MsgBox "Sesit neni otevren" End If

Poznámka: U souboru jež chceme zkontrolovat se neudáva cesta, jen jeho jméno např. kontrolovany-sesit.xls

Poznámka 2: Soubor musí být otevřen ve stejné aplikaci MS Excelu.

Je soubor otevřen - v novém aplikačním okně

Předchozí skript nefunguje pokud je soubor otevřen v novém aplikačním okně, takže jak na to? Například použít následující kód:

Workbooks("kontrolovany-soubor.xls").Activate If Err = 0 Then MsgBox "sesit otevren" Else MsgBox "sesit neotevren" End If Err.Clear

Inspirace díky Internetu a informaci, že pokud soubor nelze Aktivovat vrátí Err číslo chyby 9. Takže když nejde aktivovat, tak není ani otevřen ...

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

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

Pavel Lasák

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.

   Pavel Lasák LinkedIn Profil    Pavel Lasák twitter Profil




Excel


Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2025 |