怎样判断本机装载有 excel 2000 ?

Question

马上结贴

Answer 1

var 
  eclApp,WorkBook:Variant; //声明为OLE Automation 对象
  xlsFileName:string;
begin
  xlsFileName:=ExtractFilePath(Application.ExeName) + 'ex.xls';  //创建OLE对象Excel Application与 WorkBook
  try
    eclApp:=CreateOleObject('Excel.Application');
    WorkBook:=CreateOleobject('Excel.Sheet');
  except
    ShowMessage('您的机器里未安装Microsoft Excel。');
    Exit;
  end;

Answer 2

var
  ExcelApp:variant;//...................................
Try
      ExcelApp:=CreateOleObject('Excel.application');
Except
      MessageDlg('没有安装Office 办公软件Excel!',mtinformation,[MBOK],0);
      exit;
End;

Answer 3

方法1:
var 
  eclApp,WorkBook:Variant; //声明为OLE Automation 对象
  xlsFileName:string;
begin
  xlsFileName:=ExtractFilePath(Application.ExeName) + 'ex.xls';  //创建OLE对象Excel Application与 WorkBook
  try
    eclApp:=CreateOleObject('Excel.Application');
    WorkBook:=CreateOleobject('Excel.Sheet');
  except
    ShowMessage('您的机器里未安装Microsoft Excel。');
    Exit;
  end;方法2:
var
  ExcelApp:variant;//...................................
Try
      ExcelApp:=CreateOleObject('Excel.application');
Except
      MessageDlg('没有安装Office 办公软件Excel!',mtinformation,[MBOK],0);
      exit;
End;