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

Je soubor otevřen - VBA Excel

Ú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: 25.01.2012 17:42

---

---

Další články k tématu

• Zpracovatelné formáty souborů v Excelu
• Existuje soubor - adresář (složka)
• Vypis cesty k souboru
• Vypsat adresáře - soubory
• Je soubor otevřen - právě čtete
• Otevřít soubor s heslem
• Otevřít soubor a předat mu nějaký parametr
• Tisk do *.pdf
• Smazat soubor
• Vytvořit smazat adresář
• Kopírovat a přejmenovávat soubory
• Omezení platnosti souboru - dokumentu
• Kdo přistupuje do souboru
• Velikost souboru
• Je atribut souboru pouze pro čtení - VBA Excel

Komentáře zatím nejsou

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

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

Nejčtenější článek