请问怎么才能把一个*.db文件转换成Excel文档！

Question

我已用Query组件和DBGrid组件，把这个*.db文件中的内容在窗口中显示出来了，可是我想把它再转换成Excel文档，但是总是不成功，请各位大虾看看有什么方法能把软换后的Excel文档，做得和以前的*.db文件中的格式一样的，也就是说字段值和字段名要对应，不要乱！

Answer 1

*.db文件本来就可以用excel打开呀,还用转吗

Answer 2

var
  xlapp, sheet : variant;
  i :integer;
try
    xlapp := createoleobject('excel.application');
  except
    showmessage('not found excel in your system, so can not create file!');
    exit;
  end;
filename :='tmp.xls';
  xlapp.workbooks.add;
  sheet := xlapp.workbooks[1].worksheets[1];
  i :=1;
  while not qry_Rep.Eof do
  begin
    sheet.cells[i,1].value :=qry_Rep.FieldValues['id'];
    sheet.cells[i,2].value :=qry_Rep.FieldValues['name'];
    sheet.cells[i,3].value :=qry_Rep.FieldValues['info'];
    sheet.cells[i,4].value :=qry_Rep.FieldValues['directory'];
    sheet.cells[i,5].value :=qry_Rep.FieldValues['id'];
    sheet.cells[i,6].value :=qry_Rep.FieldValues['parentid'];
    i :=i+1;
    qry_Rep.Next;
  end;
xlapp.Columns.AutoFit;
  sheet.Saveas(filename);
  xlapp.quit;
  xlapp:=unassigned;

Answer 3

请问，您的qry_Rep是一个表名吗？还是控件？

Answer 4

回复人： yelang985(大漠箫声) ( ) 信誉：100  2003-10-21 09:01:00  得分:0 
 
 
  请问，您的qry_Rep是一个表名吗？还是控件？
 
 
/////////////////
qry_rep是你查询的数据集(query)
回复人： yelang985(大漠箫声) ( ) 信誉：100  2003-10-21 09:48:00  得分:0 
 
 
  还有了，这段代码应该加在哪里啊？
 
 
//////////////////////
你加一个BUTTON,CAPTION :='转换';他的事件就是这段代码