将数据从 DBGrid 导出到 Excel答案

【问题标题】：Exporting data from a DBGrid to Excel将数据从 DBGrid 导出到 Excel
【发布时间】：2013-06-12 05:57:37
【问题描述】：

我想知道是否有人可以将数据从 DBGrid 导出到 Excel？我正在使用 Delphi 7、Excel 2007 和 ADO。
任何帮助将不胜感激。

【问题讨论】：

不导出 DBGrid，导出数据集 stackoverflow.com/a/16642049/1699210 只需使用字段值填充给定示例中的 arrData。
我也打算给出 Bummi 给出的参考。为了使用变量数组方法，您必须知道查询中有多少行。否则，使用我在那个问题中给出的 csv 方法可能会更简单。
@No'amNewman 取决于数据类型，csv 方法可能会给转换带来更多麻烦，例如日期时间值 ...
Google 搜索“delphi export dbgrid excel”有 288000 次点击。我建议您开始使用这些，然后如果您对代码部分不起作用有具体问题，请在此处发布。布米是对的；如果可能的话，导出底层数据集。
好的，我去看看。谢谢。

【解决方案1】：

如果您想要快速导出原始数据，只需使用类似的方式导出您的记录集 (ADODataset.recordset)：

procedure ExportRecordsetToMSExcel(DestName: string; Data: _Recordset);
var
  ovExcelApp: OleVariant;
  ovExcelWorkbook: OleVariant;
  ovWS: OleVariant;
  ovRange: OleVariant;
begin
  ovExcelApp := CreateOleObject('Excel.Application'); //If Excel isnt installed will raise an exception
  try
    ovExcelWorkbook   := ovExcelApp.WorkBooks.Add;
    ovWS := ovExcelWorkbook.Worksheets.Item[1]; // go to first worksheet
    ovWS.Activate;
    ovWS.Select;
    ovRange := ovWS.Range['A1', 'A1']; //go to first cell
    ovRange.Resize[Data.RecordCount, Data.Fields.Count];
    ovRange.CopyFromRecordset(Data, Data.RecordCount, Data.Fields.Count); //this copy the entire recordset to the selected range in excel
    ovWS.SaveAs(DestName, 1, '', '', False, False);
  finally
    ovExcelWorkbook.Close(SaveChanges := False);
    ovWS := Unassigned;
    ovExcelWorkbook := Unassigned;
    ovExcelApp := Unassigned;
  end;
end;

【讨论】：

如果我们想将 ClientDataset 导出到 Excel，我们该怎么做？
如果您没有记录集，则必须迭代数据集并编写 excel 访问单元格。例如：ovWS.Cells[RowIndex, ColumnIndex].Value := Dataset.FieldByName('foo').AsString;

【解决方案2】：

使用 Tfilestream 组件工作

procedure TForm2.ExportdatatoexcelClick(Sender: TObject);
 var
  Stream: TFileStream;
  i: Integer;
  OutLine,f: string;
  sTemp,s: string;
begin
  Stream := TFileStream.Create('D:\Yogesh Delphi\employee1.csv', fmCreate);
  try
       s := string(adotable1.Fields[0].FieldName);

      for I := 1 to adotable1.FieldCount - 1 do
       begin
        s:= s+ ',' + string(adotable1.Fields[I].FieldName);
       end;
         s:= s+ #13#10;
        stream.Write(s[1], Length(s) * SizeOf(Char));
       {S := '';
      for I := 0 to adotable1.FieldCount - 1 do
        begin
         S := (adotable1.Fields[I].FieldName);
        outline := OutLine+S + ' ,';
        end; }

    while not adotable1.Eof do
    begin
      // You'll need to add your special handling here where OutLine is built
       s:='';
      OutLine := '';
      for i := 0 to adotable1.FieldCount - 1 do
      begin
        sTemp := adotable1.Fields[i].AsString;
        // Special handling to sTemp here
        OutLine := OutLine + sTemp +',';
      end;
      // Remove final unnecessary ','
      SetLength(OutLine, Length(OutLine) - 1);
      // Write line to file
      Stream.Write(OutLine[1], Length(OutLine) * SizeOf(Char));
      // Write line ending
      Stream.Write(sLineBreak, Length(sLineBreak));
      adotable1.Next;
    end;

  finally
    Stream.Free;  // Saves the file
  end;
    showmessage('Records Successfully Exported.') ;
end;
    {Yog}

【讨论】：