把DBGrid1数据集转换成execl文件

Question

我要把把DBGrid1数据集转换成execl文件怎么办？在这个地方有pas单元
F:\program files\Borland\Delphi7\Ocx\Servers请哪位大虾指教一下怎么用，谢谢。

Answer 1

procedure DBGridToExcel(Grid: TDBGrid);
var
  xlApp: Variant;
  XlWorkBook: Variant;
  xlworkSheet: Variant;
  LCID, I, J: integer;
  FileName: string;
begin
  xlapp := CreateOleObject('Excel.application');
  XlApp.Visible := False;
  xlWorkBook := xlApp.Workbooks.Add(-4167);
  xlWorkSheet := xlapp.WorkBooks[1].Worksheets['sheet1'];
  Grid.DataSource.DataSet.DisableControls;
  I := 1;
  for J := 0 to Grid.FieldCount - 1 do
    xlWorksheet.Cells[i, j + 1] := Grid.Columns[j].Title.Caption;
  I := 2;
  Grid.DataSource.DataSet.First;
  while not Grid.DataSource.DataSet.eof do
  begin
    for J := 0 to Grid.FieldCount - 1 do
      xlworksheet.Cells[i, j + 1] := Grid.Fields[j].Value;
    i := I + 1;
    Grid.DataSource.DataSet.Next;
  end;
  Grid.DataSource.DataSet.EnableControls;
  xlWorkSheet.Range[xlWorkSheet.cells[1, 1], xlWorkSheet.Cells[I, Grid.FieldCount]].columns.AutoFit;
  xlapp.visible := True;
end;