盒子论坛 v2.1

我用以下代码实现将数据导出到excel文件中的，在xp下没问题，但是在98下系统提示“interface not support” or "类没有注册"，怎么回事啊？急！
******************************************************************
var
  i,j,row:integer;
begin
  if SaveDialog1.Execute then
begin
ExcelApplication1.Connect
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);
if not Query1.Active then
begin
   QUERY1.Open;
end;
for i:=0 to QUERY1.Fields.Count-1 do
   begin
      ExcelWorkSheet1.Cells.Item[1,i+1]:=dbgrid1.Columns.Items[i].Title.Caption;
      row:=2;
      query1.First;
      while not QUERY1.Eof do
        begin
          for j:=0 to QUERY1.Fields.Count-1 do
            begin
              ExcelWorkSheet1.Cells.Item[row,j+1]:=QUERY1.Fields[j].AsString;
            end;
             row:=row+1;
       QUERY1.Next;
   end;
end;
   ExcelWorkBook1.SaveCopyAs(SaveDialog1.FileName);
   ExcelWorkBook1.Close(false);
  ExcelApplication1.Disconnect;
  ExcelApplication1.Quit;
  Screen.Cursor:=crDefault;
  Application.MessageBox('成功导出所有数据!','提示',0);
end;
end;

----------------------------------------------
-

作者：

bianfuxia888999 (bfx)	★☆☆☆☆	-
	盒子活跃会员

2004/3/20 9:31:53

1楼：

你把完整的程序拿来我看看
----------------------------------------------
-

作者：

junfei (pp)	★☆☆☆☆	-
	普通会员

2004/3/21 11:10:18

2楼：

我用了excelapplication,excelworksheet和excelworkbook三个控件，完整的程序如下：

procedure Tfmprorep.Button5Click(Sender: TObject);
var
  i,j,row:integer;
begin
  if SaveDialog1.Execute then
begin
ExcelApplication1.Connect
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);
if not Query1.Active then
begin
   QUERY1.Open;
end;
for i:=0 to QUERY1.Fields.Count-1 do
   begin
      ExcelWorkSheet1.Cells.Item[1,i+1]:=dbgrid1.Columns.Items[i].Title.Caption;
      row:=2;
      query1.First;
      while not QUERY1.Eof do
        begin
          for j:=0 to QUERY1.Fields.Count-1 do
            begin
              ExcelWorkSheet1.Cells.Item[row,j+1]:=QUERY1.Fields[j].AsString;
            end;
             row:=row+1;
       QUERY1.Next;
   end;
end;
   ExcelWorkBook1.SaveCopyAs(SaveDialog1.FileName);
   ExcelWorkBook1.Close(false);
  ExcelApplication1.Disconnect;
  ExcelApplication1.Quit;
  Screen.Cursor:=crDefault;
  Application.MessageBox('成功导出所有数据!','提示',0);
end;
end;
----------------------------------------------
-

作者：

junfei (pp)	★☆☆☆☆	-
	普通会员

2004/3/24 10:22:02

3楼：

各位大哥，为什么没人帮忙啊？！
----------------------------------------------
-

作者：

yuanguoxing1976 (袁国星)	★☆☆☆☆	-
	普通会员

2004/3/24 21:20:16

4楼：

二个原因一个是没有安装EXCEL，一个是EXCEL版本的问题。
----------------------------------------------
Email:yuanguoxing1976@163.com
QQ:172649628

作者：

junfei (pp)	★☆☆☆☆	-
	普通会员

2004/3/26 8:43:11

5楼：

四楼说的都不是，excel装了并且是同一版本，2000
----------------------------------------------
-

信息

登陆以后才能回复