Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Word , kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre spustenie editora VBA . Kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový modul
2
Pridajte nasledujúci kód na vytvorenie nového postupu : .
Private Sub IsExcelOpen ( ) On Error GoTo Err_IsExcelOpen :
3
skopírujte a vložte nasledujúci kód zistiť , či aplikácia Excel je už v prevádzke : klipart
Dim xlsObject Ako ObjectSet xlsObject = GetObject ( , " Excel.Application " ;) Je - li ( xlsObject = " Microsoft Excel " ) ThenMsgBox " Excel je spustená ! " End If
4
skopírujte a vložte nasledujúci kód zachytiť chybu, ak program Excel nie je spustená a uvoľnenie objekt z pamäte , ktorá bola vytvorená v predchádzajúcom kroku :
Set xlsObject = NothingExit_IsExcelOpen : Koniec SubErr_IsExcelOpen : Ak err.number = 429 ThenMsgBox " Excel nie je spustená ! " End IfSet xlsObject = NothingEnd Sub
5
spustite program Microsoft Excel a stlačte " F5 " pre spustenie procedúry . Dostanete správu , že aplikácia Excel spustená . Ukončite program Excel a spustiť procedúru znovu zobrazí hlásenie aplikácie Excel nie je spustená .
Copyright © počítačové znalosti Všetky práva vyhradené