请问用VB怎么编写检测是否安装了EXCEL？

Question

    On Error GoTo excle    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)excle:
    MsgBox ("您没有安装 Excle2000，请先安装 Excel2000 ！")

Answer 1

Dim oExcel As Object
    On Error GoTo Err_Excel
    Set oExcel = CreateObject("Excel.Application")
    Set oExcel = Nothing
    exit sub
Err_Excel:
    lblInfo = "可能您的计算机中没有安装 EXCEL 或者 EXCEL 错误，无法生成报表。"

Answer 2

On Error GoTo excle    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)excle:
    MsgBox ("您没有安装 Excle2000，请先安装 Excel2000 ！")