偵測是否有安裝EXCEL等AP

 <% 
        On Error Resume Next
        Dim objXls As Object
        Set objXls = CreateObject("Excel.Application")  '偵測word就改word
        If Err Then MsgBox "快裝 Excel , 如果不裝 , 30 秒後 .. 電腦將自動引爆 !"
%>