DELPHI向已存在的EXCEL写入数据问题

[tfyjj1984]

uses( ComObj)
procedure TForm1.Button1Click(Sender: TObject);
var ExcelApp: Variant;
begin
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.Visible := false;
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
ExcelApp.WorkBooks.Open( 'C:\bb.xls' ); //打开已存在的工作簿
ExcelApp.Cells[1,4].Value := 'xcvxvcc';
excelapp.save ;
if not ExcelApp.ActiveWorkBook.Saved then
ExcelApp.ActiveSheet.PrintPreview;
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
application.MessageBox('保存成功','系统提示',0);
end;
end.

有什么方法可以去掉我这里的对话框呢？我真的无法理解，为什么会这样。

[zhaojunliang]

什么对话框，是那个保存成功的对话框吗？
直接去掉就可以啊。

[liu23xing]

去掉application.MessageBox('保存成功','系统提示',0);?

[markld]

procedure TForm1.Button1Click(Sender: TObject);
var ExcelApp: Variant;
Sheet: Variant;
i,h:integer;

j,aa,bb,cc:integer;
sheetname:string;
begin
aa:=strtoint(trim(Edit1.Text));
bb:=strtoint(trim(edit2.Text));
cc:=(bb-aa);
h:=1;
try
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := false;
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
ExcelApp.WorkBooks.Open( 'C:\222.xls' ); //打开已存在的工作簿
Except
ExcelApp.Free;
exit;
end;
while cc>0 do
begin
sheetname:='sheet'+inttostr(h);
Sheet :=ExcelApp.Workbooks[1].WorkSheets[sheetname];
j:=0;
while j<7 do
begin
for i:=0 to 3 do
begin
sheet.cells[j+1, i + 1]:= '0'+inttostr(aa);
aa:=aa+1;
end;
inc(j);
end;
cc:=cc-28;
h:=h+1;
end;
excelapp.Visible := True;
ShowMessage('ok!');
end;

[markld]

这是向已存在的222.xls文件写入edit1到edit2的内容，每sheet写28个cell 且，sheet都是已经建好的，因为我需要用到已经存在的表的格式。

[lipc]

ExcelApp.ActiveWorkbook.Save;