40分在线等待（马上结帐）：为什么ExcelApp := CreateOleObject( 'Excel.Application' );出错？

Question

var
 ExcelApp: Variant;
begin
 ExcelApp := CreateOleObject( 'Excel.Application' );
 ExcelApp.WorkBooks.Open(filepath);
 ExcelApp.cells.item[1,1]:='aa';
 ExcelApp.ActiveWorkBook.saveas('a.xls');
 ExcelApp.application.quit;
end;是缺少uses之类的语句吗？请教！

Answer 1

function GetFirstSheetName(AExcelFile :string) :string ;
var
  ExcelApp : Variant;
begin
  Result := '' ;
  try
    ExcelApp := CreateOleObject('Excel.Application');
  except
    Exit;
  end;  try
    ExcelApp.DisplayAlerts := true ;
    ExcelApp.Visible := false ;
    ExcelApp.WorkBooks.Add;    //打开已存在的工作簿
    ExcelApp.WorkBooks.Open(AExcelFile);    //设置第1个工作表为活动工作表
    ExcelApp.WorkSheets[1].Activate;    Result := ExcelApp.WorkSheets[1].Name;
  finally
    ExcelApp.ActiveWorkBook.Saved:=True;
    ExcelApp.ActiveWorkBook.Close;
    ExcelApp.Quit;
    ExcelApp:=Unassigned;
  end;
end;

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,comobj;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
 ExcelApp: Variant;
begin
 ExcelApp := CreateOleObject( 'Excel.Application' );
 ExcelApp.WorkBooks.Open('c:\11.xls');
 ExcelApp.cells.item[1,1]:='aa';
 ExcelApp.ActiveWorkBook.saveas('a.xls');
 ExcelApp.application.quit;
end;end.

Answer 3

ExcelApp := CreateOleObject( 'Excel.Application' );
就是指示这句出错！

Answer 4

你不是没装EXCEL吧；还有错误提示是什么？