如何将DBgrid中的内容转到excel中？DBgrid中的内容与数据库中的内容不相同。

Question

DBgrid只显示数据库中几个字段的内容，我希望excel中的内容与dbgrid中的内容相同，而不是和数据库中的相同

Answer 1

有没有人知道？难道不能选择性地导入到excel中？

Answer 2

with ADOQry do
begin
  DisableControls;
  First;
  iRow := 3;
  while not Eof do
  begin
    // 注意这边遍历的是DBGrid1的列，而不是ADOQry的字段
    for iCol := 0 to DBGrid1.Columns.Count - 1 do                   // 添加数据集
      xlsSheet.Cells.Item[iRow, iCol + 1] :=
          FieldByName(DBGrid1.Columns[iCol].DisplayName).AsString;  //
    Next;
    Inc(iRow);
  end;
  EnableControls;
end;

Answer 3

支持楼上的excelworksheet1.Cells.Item[6,6].FormulaR1C1 :=dbgrid1.Columns.Items[1].Field.asvariant;上面的句子的意思：6,6单元格的内容为dbgrid1的当前记录的第二列的值，  而如何遍历就看楼主自己了