盒子论坛 v2.1

use comobj;
var i,j:integer;
begin
try
  v:=createoleobject('excel.application');
  v.workbooks.add;
  Sheet:= v.Workbooks[1].WorkSheets[1];
  v.visible:=true;
  with qry1 do
   begin
    active:=false;
    sql.Clear ;
    sql.Add('select * from f_CusmKindLink');
    open;
   end;
  for i:=0 to qry1.FieldCount-1 do
    begin
     j:=1;
     sheet.cells[1,i+1]:=qry1.Fields.Fields[i].FieldName;
//     sheet.Columns[i].Width:=20;
     qry1.First;
     while not qry1.Eof do
       begin
         sheet.cells[j+1,i+1]:=qry1.Fields.Fields[i].Value;
         j:=j+1;
         qry1.Next;
     end;
end;
//  v.DiaplayAlert:=true; //确定存盘
except
    Showmessage('初始化Excel失败，可能没装Excel，或者其他错误；请重起再试。');
    v.DisplayAlerts := false;//是否提示存盘
    v.Quit;//如果出错则退出
    exit;
end;
  Application.Restore;
  Application.BringToFront;
end;
----------------------------------------------
-

信息

登陆以后才能回复