Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Jak zjistit, zda běží Word nebo Excel, a zda jsou nainstalovány. |
Autor: Kočí Marek
| Zdroj:
| Vytvořeno: 29.9.2003
| Publikováno: 30.9.2003
| Čtenářů: 3306
| Unikátních: 3251
|
Jednoduchým kódem, zjistíte přítomnost Wordu a Excelu v počítači.Lze i zjistit zda jsou spuštěny.
Pokud potřebujete zjistit zda je instalován Word/Excel a v případě že ano ověřit zda je spuštěn jste na správném místě :o)
Dim oEx as object
'ošetříme chybu
on error resume next
Set oEx = GetObject("Excel.Application")
If oEx Is Nothing Then
sMsg = "Excel je spuštěn"
Else
Set oEx = CreateObject("Excel.Application")
If oEx Is Nothing Then
sMsg = "Excel není nainstalován"
else
sMsg = "Excel je nainstalován, " & _
"ale není spuštěn"
end if
End If
msgbox sMsg
Pro Word jen nahradíme řádek s Excel.Application na Word.Application
Další možnost naleznete na http://www.vajnsoft.aktualne.cz
| 
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu