Function existenceCheck() As Boolean 
'//  用于检测是否安装Excel 
'//  返回： True 已安装； False 未安装 

  Dim objApp As Object 
  existenceCheck = True 
  
  On Error Resume Next 
  Set objApp = CreateObject("Excel.Application") 
  
  If Err = 429 Then 
     existenceCheck = False 
     Exit Function 
  End If 
  Set objApp = Nothing 

End Function