盒子论坛 v2.1

导出为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;
说明：Form3.a_recno   是在显示dbgrid4的时候统计出在dbgrid4 中共有多少条记录！~~~~

注：
excel表导入数据库代码：
str 是一个全局变量，存储当前所选择的excel表的名称；
FieldCount 也是全局变量，记录当前数据库表中共有多少列；

运行时出现 eclApp :=CreateOleObject('Excel.Application');
           WorkBook :=CreateOleObject('Excel.Sheet');
中的CreateOleObject定义不清的错误，请问如何改正
----------------------------------------------
-

作者：

xjr888 (arming)	★☆☆☆☆	-
	盒子活跃会员

2004/3/22 8:57:19

1楼：

uses ?
----------------------------------------------
-

作者：

zjhekeshi (zjhekeshi)	★☆☆☆☆	-
	普通会员

2004/3/22 9:02:00

2楼：

： uses ?
----------------------------------------------
能否清楚点，USES 什么啊
----------------------------------------------
-

作者：

minche (异杰)	★☆☆☆☆	-
	盒子活跃会员

2004/3/22 9:26:44

3楼：

你有没有在uses中加comobj单元
----------------------------------------------
-和大家一起学习,一起进步！！！

作者：

xjr888 (arming)	★☆☆☆☆	-
	盒子活跃会员

2004/3/22 9:33:28

4楼：

把你这个单元的 uses 部分贴出来看一下
----------------------------------------------
-

作者：

songchangge (scg66)	★☆☆☆☆	-
	盒子活跃会员

2004/3/22 11:32:37

5楼：

在uses中加comobj单元后，并修改此句：
eclApp.cells(i+1,j) :=Form3.DbGrid4.Fields[j-1].Value
为
eclApp.cells(i+1,j) :=Form3.DbGrid4.Fields[j-1].asstring;
试试看有没有帮助？
----------------------------------------------
-

信息

登陆以后才能回复