程式中有需要用到把資料輸出到Excel的功能

使用
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible", true);

但是如果使用者沒有安裝Excel時，會顯示：無效的類別字串: ProgID: "Excel.Application"

請問怎麼先判斷有沒有安裝Excel? 謝謝各位

我看過有人是這樣做的(如下Code)，更仔細點你可以進一步比對錯誤訊息
我相信有更制式的寫法，但利用 try-except-end 應該是最簡單吧
try
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible", true);
except
on E:Exception do
ShowMessage('沒有安裝 Excel');
end;

編輯記錄

可以透過判斷 product codes and component IDs 來達成，見單的說就是讀 registry，看有沒有安裝 excel 後會出現的機碼

例如
Microsoft Office Excel 工作表
{00020830-0000-0000-C000-000000000046}

===================引 用 maplefog 文 章===================

程式中有需要用到把資料輸出到Excel的功能

使用
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible", true);

但是如果使用者沒有安裝Excel時，會顯示：無效的類別字串: ProgID: "Excel.Application"

請問怎麼先判斷有沒有安裝Excel? 謝謝各位

編輯記錄

插花一下:
http://delphi.ktop.com.tw/board.php?cid=30&fid=72&tid=39232
裡面的連結有範例,可由GetPath得知 ^^

檢查 OleObject 是否存在。

[code delphi]
var
ClsID: TCLSID;
begin
if CLSIDFromProgID('Excel.Application',ClsID)=S_OK then
begin
Showmessage('Ms Excel is installed.');
end else begin
// 沒有安裝 EXCEL
end;

end;

[/code]