delphi中编译的包在6中能否使用? rt!另外有那位好心人能送上将dbgrid中数据导入到excel的控件,非常的感谢!如有请发到信箱[email protected] 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 导出为excel表:procedure TForm3.Excel4Click(Sender: TObject); //将联合查询的结构转为excel表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; fastreport中这样的分栏分组效果怎么做 如何将一个组件的一些属性封装为 DLL 给别人使用? 在用checkbox 时遇到的一个问题??? 打印机与Rave的问题。。。 各位,简单的MDI问题?Help me!!!! OK? 我领结婚证了,。。散分 控件的问题 为什么关闭一个连接也会出错? 在delphi中能不能实现这样的功能? 关于interbase数据库的初级问题,各位高手请进! 提问有关数据感知控件(DbEdit)的问题 怎样给程序定义热键?
procedure TForm3.Excel4Click(Sender: TObject); //将联合查询的结构转为excel表
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;