我有如下代码,在在导出数据时出错,请问如何解决,procedure TForm1.Button1Click(Sender: TObject);
var
m,n: Integer;
ole: OleVariant;
begin
ole := CreateOleObject('excel.application');
ole.workbooks.Add;
For m := 1 to ads.FieldCount do
ole.Cells.Item[1,M]:= ads.Fields[m-1].FieldName;
m:=2;
ads.First;
while Not ads.Eof do
begin
For n := 1 to ads.FieldCount do
ole.Cells.Item[m,n] := ads.Fields[n-1].AsString;
inc(m);
ads.Next;
end;
ads.First;
ole.ActiveWorkBook.SaveAs('d:\lxb10.xls');//===此处当第二次保存时,如果选不覆盖已存在的表“lxb10”时出错,如果选择覆盖就是正常的,请问如何解决?
showmessage('导出成功,已生成表格路径:d:\lxbook.xls');
ole.Visible := True;{将EXCEL变为可见}
end;
var
m,n: Integer;
ole: OleVariant;
begin
ole := CreateOleObject('excel.application');
ole.workbooks.Add;
For m := 1 to ads.FieldCount do
ole.Cells.Item[1,M]:= ads.Fields[m-1].FieldName;
m:=2;
ads.First;
while Not ads.Eof do
begin
For n := 1 to ads.FieldCount do
ole.Cells.Item[m,n] := ads.Fields[n-1].AsString;
inc(m);
ads.Next;
end;
ads.First;
ole.ActiveWorkBook.SaveAs('d:\lxb10.xls');//===此处当第二次保存时,如果选不覆盖已存在的表“lxb10”时出错,如果选择覆盖就是正常的,请问如何解决?
showmessage('导出成功,已生成表格路径:d:\lxbook.xls');
ole.Visible := True;{将EXCEL变为可见}
end;
var
FileName: String;
begin
// ......
FileName := 'd:\lxb10.xls';
if FileExisted(FileName) then
begin
if SaveDialog.Execute then
FileName := SaveDialog.FileName
else
begin
ShowMessage('用户放弃了对Excel的保存!');
FileName := '';
end;
end;
if FileName <> '' then
ole.ActiveWorkBook.SaveAs('d:\lxb10.xls');//
ole.ActiveWorkBook.SaveAs(FileName);//
FileName := FormatDateTime('YYYYMMDDHHNNSS',Now)+'.xls';
if FileExisted(FileName) then //以上此名为何出错呢!在USES中就加入什么呀?