怎样将 当前窗口中显示的dbgrid数据导出到 excel中.

Question

我的 意思 就是: 
可以象win操作系统中的那样,每打开一个窗口,窗口中的内容. 导出功能都可以自动把当前窗口的内容,默认为导出的内容.然后导出.导出到excel可以作为一个 公共的模块.的那种. 每个要导出的dbgrid都可以调用.

Answer 1

刚搞了个把stringgrid导出excel的，你参考一下吧
procedure TFormAnalysis.bsbtnExportClick(Sender: TObject);
var
  XLSApp: Variant;
  i,j: Integer;
  saveName: string;
begin
  if bsSaveDlg1.Execute then
    saveName := bsSaveDlg1.FileName
  else
    Exit;  try
    Screen.Cursor := crHourGlass;    try
      XLSApp := CreateOleObject('Excel.Application');
      XLSApp.WorkBooks.Add;      if bsRadioGroupTime.ItemIndex = 4 then
        XLSApp.workBooks[1].WorkSheets[1].Name := bsDateEdit1.Text + ' '
         + bsDateEdit2.Text
      else
        XLSApp.workBooks[1].WorkSheets[1].Name := bsSLabel5.Caption + ' '
         + bsDateEdit1.Text;
         
    except
      ShowMessage('Excel have not been installed!');
      Exit;
    end;    for i:=0 to bsStrGrid1.ColCount - 1 do
      for j:=0 to bsStrGrid1.RowCount - 1 do
        XLSApp.workBooks[1].WorkSheets[1].Cells[j+1, i+1] := Trim(bsStrGrid1.cells[i, j]);    XLSApp.ActiveWorkBook.SaveAs(saveName);
    XLSApp.workBooks.close;
    XLSApp.quit;
  Finally
    Screen.Cursor := crDefault;
  end; //try
end;

Answer 2

CSDN的bug，把单引号都变成了双引号了

Answer 3

谁能给一段详细的代码>>  包括注释的.