解决'IsObjInstalled'类型不匹配的问题

xlApplication.DisplayAlerts = false '不显示警告
xlApplication.Application.Visible = false '不显示界面

if IsObjInstalled(xlApplication) = False then
 response.Write("<script>alert('创建失败！');history.back()</script>")
 response.End()
end if

'功能:检查是否存在系统组件或组件是否安装成功
Function IsObjInstalled(strClassString) '判断对象是否可以创建的。
    On Error Resume Next               '当遇到错误继续执行        
    IsObjInstalled = False                 '设定函数返回值为False
    Err = 0                                       '变量Err赋值为0  
    Dim xTestObj                          '定义xTestObj变量
    Set xTestObj = Server.CreateObject(strClassString)    '创建名为xTextObj的对象
    If 0 = Err Then IsObjInstalled = True '如果错误为0那么该对象可以被创建，即函数IsObjInstalled返回
                                                               ' true

    Set xTestObj = Nothing                  '清空对象
    Err = 0
End Function

'总体来说函数IsObjInstalled()传入了一个strClassString变量或对象实例名，通过Server.CreateObject()来创建这个对象，然后判断Err对象是否为0（=0时代表成功创建了对象，没有出现错误），如果Err不等于0则函数的返回值为False，即不执行If 0=Err Then这个判断。

转载于:https://www.cnblogs.com/xrxiaolong/articles/2320257.html