如何把dbgrid 或 adoquery里的记录输出到execel

Question

如何把dbgrid 或 adoquery里的记录输出到execel

Answer 1

with SaveDialog do
  begin
    DefaultExt := 'xls';
    Filter := 'Microsoft Excel 4.0 Worksheet (*.xls)|*.xls';
    FileName := '名字.xls';
    if Execute then
      DBGird.SaveToXLS('grid显示的内容',true) 
  end;

Answer 2

把目标XLS文件当做一个数据源,然后向这个数据源导入数据就可以了.
XLS数据源和MDB数据源一样,不过要在设置数据源的时候的扩展属性加下下面的一句
Extended Properties = EXCEL 8.0
就可以了
记不表Excel后是不是有个空格了