S
snmailbox
Unregistered / Unconfirmed
GUEST, unregistred user!
机器上装了EXCEL 2000
用如下代码总是提示INTERFACE异常错误，不能创建EXCEL APPLICATION是怎么回事？
function SaveToExcel:integer;
var
ExcelApp: olevariant;
begin
//***创建EXCEL应用对象
try
ExcelApp := CreateOleObject('Excel.Application');
except
if frmWait <> nil then FreeAndNil(frmWait);
Application.MessageBox('您的机器中没有安装EXCEL,不能创建EXCEL文档!','提示',MB_OK+MB_ICONWARNING);
result := -1;
exit;
end;
end;
用如下代码总是提示INTERFACE异常错误，不能创建EXCEL APPLICATION是怎么回事？
function SaveToExcel:integer;
var
ExcelApp: olevariant;
begin
//***创建EXCEL应用对象
try
ExcelApp := CreateOleObject('Excel.Application');
except
if frmWait <> nil then FreeAndNil(frmWait);
Application.MessageBox('您的机器中没有安装EXCEL,不能创建EXCEL文档!','提示',MB_OK+MB_ICONWARNING);
result := -1;
exit;
end;
end;