匯出到EXCEL（列不固定）

function cov(str:string):string;

varss:string;

begin

if str='' then

result:='';

ss:='';

while pos(',',str)>0 do

begin

ss:=ss+',"'+copy(str,1,pos(',',str)-1)+'"';

delete(str,1,pos(',',str));

end;

ss:=ss+',"'+str+'"';

delete(ss,1,1);

result:=ss;

end;

vartmpcom,tmp:tinterskyquery;

m***cel:variant;

m***celworkbook:variant;

m***celworksheet:variant;

//zdzitem:zdzitems;

pictures:tstringlist;

filename,zm,cm,date1,date2,rq,khlist,nxlist,wxlist:string;

intnumber,i,j,m,n,p,q,c,d,i1,j1:integer;

nxje,wxje,hl:real;

fwidth,fheight:double;  

inti,intj:integer;

int6,int7,int8,int10,int12:integer;

//pgs:tcxdialogs;

begin

//    tmp.free;

//    tmpcom.free;

//    m***celworksheet:=null;

//    m***celworkbook:=null;

//    m***cel:=null;

//    exit;

//   end;

//  end;

end;

//m***cel.sheets('sheet1').protect('yada2007',true,true);

idialogs.changeprogress(100);

idialogs.closeprogress;

m***cel.visible:=true;

if tmp.active then tmp.close;

tmp.free;

if tmpcom.active then tmpcom.close;

tmpcom.free;

m***celworksheet:=m***cel.workbooks[1].worksheets[1];

m***celworksheet.activate;

m***cel.visible:=true;

m***celworksheet:=null;

m***celworkbook:=null;

m***cel:=null;

m***celworkbook.close;

end.

DataGridView匯出到Excel的三個方法

region datagridview資料顯示到excel 開啟excel並將datagridview控制項中資料匯出到excel datagridview物件 是否顯示excel介面 add com microsoft excel 11.0 object library using excel m...

匯出到excel類

using system using system.data using system.configuration using system.web using system.web.security using system.web.ui using system.web.ui.webcontro...

資料匯出到excel

一 加上表頭後變成亂碼 要匯出的datatable 型別 excel的檔名 匯出的檔案中不帶表頭 二 使用wps開啟正常 匯出到excel 已經實現效果 資料表 檔名 列名 需要查詢幾列 else else resp.write ls item resp.write resp.end 三 目前用著感...