在prg裏面的代碼是檢查表數據的異常，用excel導出異常信息，
現在可能有的機器上沒裝excel ，怎麼判斷機器上沒有裝excel

使用的是6.0版本

如果CreateObject("Excel.Application")返回Null，则机器中没有安装Excel。

Private myapp, rowIndex, colCount, colMax, fontNameSet, fontSizeSet, rowTitle
    Wait Window "準備?Excel..." Nowait
    LCOLDONERROR = On("ERROR")
    On Error Do noExcel
    tmpmyapp = Getobject('','excel.sheet')
    On Error &LCOLDONERROR
    If Type("tmpmyapp") != "O"
        Return .F.
    Endif
    rowIndex = 0
    myapp = tmpmyapp.Application
    myapp.WorkBooks.Add()
    myapp.Caption = "AAAAAAAAA"
    oSheet = myapp.ActiveSheet
這段代碼裏面哪個地方可以判斷或加上判斷語句。想要的效果是裝了excel就導出excel，沒裝就出預覽報表。

这里已经有判断Excel是否存在的代码了

    If Type("tmpmyapp") != "O"
        Return .F.
    Endif

[ 本帖最后由 TonyDeng 于 2012-10-5 12:29 编辑 ]