delphi7 中如何把 DBGrid 中数据一条一条分别保存到 excel 文件

Question

想要实现点击按钮1，ID1 姓名张三的信息保存到excel表中，点击按钮2，ID2姓名李四的信息保存到同一张表中同时不覆盖上一个信息(张三的) 求代码

Answer 1

var
y:integer;
tsList:TStringList;
s,filename:string;
aSheet:variant;
xl:OleVariant;
savedialog:TSaveDialog;
begin
  Result:=true;
  try
    xl:=CreateOleObject('Excel.Application');
    xl.workbooks.add;
  except
    showmessage('无法调用excel');
    exit;
  end;
  savedialog:=TSaveDialog.Create(nil);
  savedialog.FileName:=sfilename;
  savedialog.Filter:='Excel文件(*.xlsx)|*.xlsx';
  if savedialog.Execute then
  begin
    if FileExists(savedialog.FileName) then
    try
      if messagebox(handle,'该文件已经存在是否要覆盖','提示',MB_YESNO)=IDYES then
         deletefile(PChar(savedialog.FileName))
      else
        begin
          xl.quit;
          savedialog.Free;
          Exit;
        end;
    except
      xl.quit;
      savedialog.Free;
      screen.Cursor:=crDefault;
      Exit;
    end;
    filename:=savedialog.FileName;
  end;
  savedialog.Free;
  if filename='' then
  begin
    Result:=true;
    xl.quit;
    Exit;
  end;
  aSheet:=xl.WorkSheets.Item[1];
  tsList:=TStringList.Create;
  s:='';
  for y:=0 to ADOQuery1.FieldCount-1 do
  begin
    s:=s+adoquery1.fields.fields[y].FieldName+#9;
    Application.ProcessMessages;
  end;
  tsList.Add(s);
  try
    try
      ADOQuery1.First;
      while not ADOQuery1.Eof do
      begin
        s:='';
        for y:=0 to ADOQuery1.FieldCount-1 do
        begin
          s:=s+ADOQuery1.Fields[y].AsString+#9;
          Application.ProcessMessages;
        end;
        tsList.Add(s);
        ADOQuery1.Next;
      end;
      Clipboard.AsText:=tsList.Text;
    except
      Result:=false;
    end;
  finally
    tsList.Free;
  end;
  aSheet.paste;
  messagebox(handle,'数据导出完毕','提示',MB_YESNO);
  try
    if copy(FileName,length(FileName)-4,4)<>'.xlsx' then
      FileName:=FileName+'.xlsx';
      xl.ActiveWorkBook.SaveAs(FileName);
  except
     xl.quit;
     screen.Cursor:=crDefault;
     Exit;
  end;
  xl.visible:=false;
  xl.quit;
  xl:=UnAssigned;
end;

Answer 2

上面的代码只能把你dbgrid表里的所有数据保存在excel中