如何将数据集内容导出为Excel文件?
Dataset已经打开,如何将其中记录、字段导出为Excel文件?
Dataset已经打开,如何将其中记录、字段导出为Excel文件?
解决方案 »
- delphi 鼠标单击菜单如何知道是左键还是右键
- delphi问题
- 我需要一个类似sqlserver中视图设计器类似的组件,大家谁用过给推荐一下的,谢谢了.
- case xx of
- 利用ADO方式访问数据库,如何定义全局ADOconnection ?另外datamodule如何使用?
- 怎么用ADOTable做一个密码登录程序???急急急!!!
- 在pascal中,为什么针对文件操作的writeln,其内容要在屏幕中显示出来?
- 谁知道Delphi6 pack 2的更新序列号?
- 一个最初级的问题
- 各位大虾:请问什么软件可以把多个jpg,tif等图形文件打包成一个可执行的exe文件直接浏览??
- 一个小问题的解释。
- 呵呵,升星了,散分!
var xlsFilename :string;
eclApp,WorkBook :variant ;
a_filedNo,i,j :integer;
begin
a_filedNo :=Form3.DBGrid4.FieldCount ;
xlsFileName :='关于学生成绩基本信息.xls'; try
eclApp :=CreateOleObject('Excel.Application');
WorkBook :=CreateOleObject('Excel.Sheet');
except
showmessage('您的系统没有安装MS EXCEL');
exit;
end; try
WorkBook :=eclApp.workBooks.add ;
for i :=1 to a_FiledNo do //转化字段名;
begin
//eclApp.cells(1,i) :=Form3.DBGrid4.Columns[i-1].Title.caption ;
eclApp.cells(1,i) :=Form3.DBGrid4.Fields[i-1].FieldName ;
end; Form3.DBGrid4.DataSource.DataSet.First ;
for i :=1 to Form3.a_recno do //Form3.a_recno begin
for j :=1 to a_filedNo do //转化一个记录
begin
eclApp.cells(i+1,j) :=Form3.DbGrid4.Fields[j-1].Value ;
end;
Form3.DBGrid4.DataSource.DataSet.Next ;
end;
try
WorkBook.saveas(ExtractFilePath(Application.ExeName )+xlsFileName);
WorkBook.close;
showmessage('保存EXECL文件成功,路径为:'+ExtractFilePath(Application.ExeName )+xlsFileName);
except
showmessage('保存文件出错');
end;
except
showmessage('不能正确操作EXECL文件,可能该文件已经被其他程序占用或系统错误');
WorkBook.close;
eclApp.quit;
eclApp :=Unassigned;
end;
end;