帮我看看我得excel错在那了(10分)

墙

墙头草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #1

procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp: Variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
//ExcelApp.Visible := True;
ExcelApp.WorkBooks.Add;
ExcelApp.Cells[1,4].Value := '第一行第四列';
ExcelApp.SaveAs('D:/Demo1.xls');//在这里出错
ExcelApp.Quit;
end;
对excel不是太熟，我想把他存为我指定的目录和名字为什麽出错。帮我看看

 

I

iloveqq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #2

ExcelApp.ActiveWorkBook.SaveAs('D:/Demo1.xls');

 

墙

墙头草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #3

多谢，，＋10分

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #4

ExcelApp：= nil

 

L

lhl20000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-09

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp: Variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
//ExcelApp.Visible := True;
ExcelApp.WorkBooks.Add;
ExcelApp.Cells[1,4].Value := '第一行第四列';

ExcelApp.SaveAS('D:/Demo1.xls');//在这里出错 改为： ExcelApp.Save('D:/Demo1.xls');
ExcelApp.Quit;
end;

 

墙

墙头草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-10

• #6

关于excel的帮助在那，我没找到