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

yelang985 2003-10-10 10:49:22

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

...全文

883 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

qxj 2003-10-21

打赏
举报

回复人： 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 :='转换';他的事件就是这段代码

yelang985 2003-10-21

打赏
举报

还有了，这段代码应该加在哪里啊？

yelang985 2003-10-21

打赏
举报

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

yelang985 2003-10-21

打赏
举报

明白了，谢谢！

空中居士 2003-10-19

打赏
举报

楼上的可行，

qxj 2003-10-18

打赏
举报

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;

littersmartfox 2003-10-18