Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
jak zjistit zda již není soubor danného jména otevřen?
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.
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.
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
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 .
Děkuji za váš čas a doufám, že jste nalezli odpověď na svůj problém.
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.
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.
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
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 |