db文本转换成excel

Question

我用delphi  的bde 做个程序，现在想把.db的数据文件转成excel文件导出，怎么转换，请大侠们指点。最好有例程 ，这方面我没做过。谢谢了。

Answer 1

下载DataToExcel第三方组件，然后执行DataToExce(DBGrid1);
DBGrid连接你想要导出的数据

Answer 2

如果不是专门为了研究这方面的技术，可以利用前人的劳动成果。
记得DBGridEh好象有导出Excel的功能DataSet导出的，网上应该也有大量代码参考：（我未试验）
http://www.delphifans.com/infoView/Article_205.html

Answer 3

现成的，给你吧：
var  i,j:integer;
 XLApp,sheet:variant;begin
  XLApp:=createoleobject('excel.Application');
  xlApp.Visible:=true;
  xlApp.Workbooks.Add(xlWBATWorksheet);
  xlapp.workbooks[2].worksheets[1].Activate;
  xlapp.workbooks[2].worksheets[1].name:=spinedit1.Text+' 年 '+spinedit2.Text+' 月'+'统计表';
  sheet:=xlapp.Workbooks[2].worksheets[spinedit1.Text+' 年 '+spinedit2.Text+' 月'+'统计表'];
   formsum.QrySum.open;
   formsum.QrySum.First;
  for i:=1 to formsum.QrySum.fieldcount do
  sheet.cells[1,i]:=formsum.QrySum.fields[i-1].fieldname;
  for j:=2 to formsum.QrySum.RecordCount+1 do
 begin
   for i:=1 to formsum.QrySum.fieldcount do
    sheet.cells[j,i]:=formsum.QrySum.fields[i-1].asstring;
   formsum.QrySum.Next;
 end;
end;

Answer 4

上面的方法都可行,或者你用EXcelapplication等组件也行,这涉及到OLE对象编程,如果
你对这方面不感兴趣的话,建议你还是用三方控件DBGRIDEH吧