如何将pb的交叉报表转换成excel形式用的办法是写一个.docx

如何将pb的交叉报表转换成excel形式用的办法是写一个.docx

《如何将pb的交叉报表转换成excel形式用的办法是写一个.docx》由会员分享，可在线阅读，更多相关《如何将pb的交叉报表转换成excel形式用的办法是写一个.docx（14页珍藏版）》请在冰豆网上搜索。

如何将pb的交叉报表转换成excel形式用的办法是写一个

如何将PB的交叉报表转换成EXCEL形式,用的办法是写一个通用的转换函数。

主函数部分：

（还用到了PFC的字串处理的一个函数和在本对象中的一个取值函数）

 //====================================================================  矚慫润厲钐瘗睞枥庑赖賃軔。

 //  [PUBLIC]  Function  uf_data2excel  在  u_data2word  inherited  from  nonvisualobject  聞創沟燴鐺險爱氇谴净祸測。

  //--------------------------------------------------------------------  残骛楼諍锩瀨濟溆塹籟婭骒。

 //  说明:

将数据倒入excel中,支持计算列及显示格式,要求在题头的计算列要写tag值  

 //--------------------------------------------------------------------  酽锕极額閉镇桧猪訣锥顧荭。

 //参数1:

[value]  datawindow  adw  

 //说明:

数据窗口  

 //--------------------------------------------------------------------  彈贸摄尔霁毙攬砖卤庑诒尔。

 //  返回:

（INTEGER）  成功返回1,不成功返回0  

 //--------------------------------------------------------------------  謀荞抟箧飆鐸怼类蒋薔點鉍。

 //  作者:

cwl日期:

  2002.03.18  

 //====================================================================  厦礴恳蹒骈時盡继價骚卺癩。

 //变更日志：

020515加入对交叉表倒出的支持（主要是修改了保存题头部分）  

 constant  integer  ppLayoutBlank  =  12  

 OLEObject  ole_object  

 ole_object  =  CREATE  OLEObject  

 integer  li_ret,li_crosstab=0  

 long  ll_colnum,ll_rownum  

 string  ls_value  

 string  ls_objects,ls_obj,ls_objs[],ls_objtag[]  

 long  ll_pos,ll_len,ll_num  =  0  

 //题头区  

 long  ll_headnum  

 string  ls_head[],ls_headtag[]  

 //合计区  

 long  ll_sumnum,i=1,startpos=1,endpos,li_pos  

 string  ls_sum[],ls_sumtag[],ls_bind,token[],list,ls_temp,ls_crosstabcol  茕桢广鳓鯡选块网羈泪镀齐。

 n_cst_string  lu_string  //PFC  string处理对象  

 li_ret  =  ole_object.ConnectToObject（"","Excel.Application"）  鹅娅尽損鹌惨歷茏鴛賴縈诘。

 IF  li_ret  <>  0  THEN  

 //如果Excel还没有打开，则新建。

 li_ret  =  ole_object.ConnectToNewObject（"Excel.Application"）  籟丛妈羥为贍偾蛏练淨槠挞。

 if  li_ret  <>  0  then  

 MessageBox（'OLE错误','OLE无法连接!

错误号：

'  +  string（li_ret））  預頌圣鉉儐歲龈讶骅籴買闥。

 return  0  

 end  if  

 ole_object.Visible  =  false//不可见  

 END  IF  

 if  adw.Object.DataWindow.Processing='4'  then  //交叉表处理  渗釤呛俨匀谔鱉调硯錦鋇絨。

 adw.Object.DataWindow.Crosstab.StaticMode='true'//将数据静态化  铙誅卧泻噦圣骋贶頂廡缝勵。

 li_crosstab=1  

 end  if    

 pointer  oldpointer  

 oldpointer  =  SetPointer（HourGlass!

）  

 //新增一个工作区  

 ole_object.Workbooks.Add  

 ls_objects  =  trim（adw.Describe（'datawindow.Objects'））  擁締凤袜备訊顎轮烂蔷報赢。

 list=ls_objects  

 EndPos=  pos（list,  '~t',  StartPos）  

 //得到对象列表  

 Do  while  （  EndPos  >  0  ）  

 token[i]  =  Mid（list,  StartPos,  EndPos  -  StartPos）  贓熱俣阃歲匱阊邺镓騷鯛汉。

 i  ++  

 StartPos  =  EndPos  +  1    

 EndPos=  pos（list,  '~t',  StartPos）  

 LOOP  

 token[i]  =  Mid（list,  StartPos）  

 ll_rownum=UpperBound（token）  

 for  i=1  to  ll_rownum  

 ls_obj  =  token[i]  

 if  ls_obj='title'  then  messagebox（'',adw.Describe（ls_obj  +  '.type'））  坛摶乡囂忏蒌鍥铃氈淚跻馱。

 if  lower（adw.Describe（ls_obj  +  '.type'））  =  'column'  or  &  蜡變黲癟報伥铉锚鈰赘籜葦。

 lower（adw.Describe（ls_obj  +  '.type'））  =  'compute'  then  買鲷鴯譖昙膚遙闫撷凄届嬌。

 ls_bind=lower（adw.Describe（ls_obj  +  '.band'））  

 if  ls_bind  =  'detail'  then    

 ll_num  +=  1  

 ls_objs[ll_num]  =  ls_obj  

 if  li_crosstab=0  then  //一般处理  

 ls_objtag[ll_num]  =  adw.Describe（ls_obj  +  '_t.text'）  綾镝鯛駕櫬鹕踪韦辚糴飙钪。

 elseif  li_crosstab=1  then  //交叉表处理  

 li_pos=lu_string.of_lastpos（ls_obj,'_',len（ls_obj））//找出最后一次出现'_'的位置  驅踬髏彦浃绥譎饴憂锦諑琼。

 if  li_pos=0  or  （not  isnumber（mid（ls_obj,li_pos+1）））  then  //不是交叉列  猫虿驢绘燈鮒诛髅貺庑献鵬。

 ls_objtag[ll_num]  =  adw.Describe（ls_obj  +  '_t.text'）  锹籁饗迳琐筆襖鸥娅薔嗚訝。

 else  

 ls_temp=mid（ls_obj,li_pos）  

 ls_crosstabcol=mid（ls_obj,1,li_pos  -  1）//取出交叉列名  構氽頑黉碩饨荠龈话骛門戲。

 //messagebox（'',ls_crosstabcol+',,,,'+ls_temp）  

 ls_objtag[ll_num]=adw.Describe（  ls_crosstabcol  +  "_t"+ls_temp+".Text"  ）//取出交叉表的题头  輒峄陽檉簖疖網儂號泶蛴镧。

 end  if    

 end  if    

 elseif  （ls_bind  =  'summary'）  then    

 ll_sumnum  +=  1  

 ls_sum[ll_sumnum]  =  ls_obj  

 ls_sumtag[ll_sumnum]  =  adw.Describe（ls_obj  +  '.tag'）  尧侧閆繭絳闕绚勵蜆贅瀝纰。

 else  

 ll_headnum  +=  1  

 ls_head[ll_headnum]  =  ls_obj  

 ls_headtag[ll_headnum]  =  adw.Describe（ls_obj  +  '.tag'）  识饒鎂錕缢灩筧嚌俨淒侬减。

 end  if    

 end  if  

 next  

 //得到数据窗口数据的列数与行数（行数应该是数据行数  +  2）  

 ll_colnum  =  ll_num  

 ll_rownum  =  adw.rowcount（）  +  2  

 string  column_name  

 string  ls_colname  

 integer  j,k  

 //写题头  

 for  i=1  to  ll_headnum  

 ls_value  =  ls_headtag[i]  

 if  ls_value<>'?

'  then    

 ole_object.cells（1,（i  -  1）*2+1）.value  =  ls_value  凍鈹鋨劳臘锴痫婦胫籴铍賄。

 end  if    

 column_name  =  ls_head[i]  

 ls_value=this.uf_getdata（adw,column_name,1）  

 ole_object.cells（1,（i）*2）.value  =  ls_value  

 next  

 //写结尾  

 for  i=1  to  ll_sumnum  

 ls_value  =  ls_sumtag[i]  

 if  ls_value<>'?

'  then    

 ole_object.cells（ll_rownum+1,（i  -  1）*2+1）.value  =  ls_value  恥諤銪灭萦欢煬鞏鹜錦聰櫻。

 end  if    

 column_name  =  ls_sum[i]  

 ls_value=this.uf_getdata（adw,column_name,1）  

 ole_object.cells（ll_rownum+1,（i）*2）.value  =  ls_value  鯊腎鑰诎褳鉀沩懼統庫摇饬。

 next  

 //写标题  

 for  i  =  1  to  ll_colnum  

 //得到标题头的名字  

 ls_value  =  ls_objtag[i]  

 ole_object.cells（2,i）.value  =  ls_value  

 next  

 //写数据  

 for  i  =  3  to  ll_rownum  

 for  j  =  1  to  ll_colnum  

 column_name  =  ls_objs[j]  

 ls_value=this.uf_getdata（adw,column_name,i  -  2）  硕癘鄴颃诌攆檸攜驤蔹鸶胶。

 ole_object.cells（i,j）.value  =  ls_value  

 next  

 next  

 SetPointer（oldpointer）  

 ole_object.Visible  =  True  

 ole_object.disconnectobject（）  

 DESTROY  ole_object  

 return  1  

PFC的字串处理函数（可直接改成全局函数就可用了）

 //====================================================================  阌擻輳嬪諫迁择楨秘騖輛埙。

 //  [PUBLIC]  Function  of_lastpos  在  n_cst_string  inherited  from  n_ccu_base  氬嚕躑竄贸恳彈瀘颔澩纷釓。

 //--------------------------------------------------------------------  釷鹆資贏車贖孙滅獅赘慶獷。

 //  说明:

找出一字串在另一串中最后出现的位置  

 //--------------------------------------------------------------------  怂阐譜鯪迳導嘯畫長凉馴鸨。

 //参数1:

[value]  string  as_source  

 //说明:

源串  

 //参数2:

[value]  string  as_target  

 //说明:

目标串  

 //参数3:

[value]  long  al_start  

 //说明:

开始位置  

 //--------------------------------------------------------------------  谚辞調担鈧谄动禪泻類谨觋。

 //  返回:

（LONG）  从右数起出现的位置，找不到则返回0  

 //--------------------------------------------------------------------  嘰觐詿缧铴嗫偽純铪锩癱恳。

 Longll_Cnt,  ll_Pos  

 //Check  for  Null  Parameters.  

 IF  IsNull（as_source）  or  IsNull（as_target）  or  IsNull（al_start）  Then  熒绐譏钲鏌觶鷹緇機库圆鍰。

 SetNull（ll_Cnt）  

 Return  ll_Cnt  

 End  If  

 //Check  for  an  empty  string  

 If  Len（as_Source）  =  0  Then  

 Return  0  

 End  If  

 //  Check  for  the  starting  position,  0  means  start  at  the  end.  鶼渍螻偉阅劍鲰腎邏蘞阕簣。

 If  al_start=0  Then      

 al_start=Len（as_Source）  

 End  If  

 //Perform  find  

 For  ll_Cnt  =  al_start  to  1  Step  -1  

 ll_Pos  =  Pos（as_Source,  as_Target,  ll_Cnt）  

 If  ll_Pos  =  ll_Cnt  Then    

 //String  was  found  

 Return  ll_Cnt  

 End  If  

 Next  

 //String  was  not  found  

 Return  0

得到一个数据窗口列及计算列的准确显示值函数

 //====================================================================  纣忧蔣氳頑莶驅藥悯骛覲僨。

 //  [PUBLIC]  Function  uf_getdata  在  u_data2word  inherited  from  nonvisualobject  颖刍莖蛺饽亿顿裊赔泷涨负。

 //--------------------------------------------------------------------  濫驂膽閉驟羥闈詔寢賻減栖。

 //  说明:

得到一个数据窗口列及计算列的准确显示值  

 //--------------------------------------------------------------------  銚銻縵哜鳗鸿锓謎諏涼鏗穎。

 //参数1:

[value]  datawindow  dw_1  

 //说明:

 //参数2:

[value]  string  col  

 //说明:

对象名  

 //参数3:

[value]  integer  row  

 //说明:

行  

 //--------------------------------------------------------------------  挤貼綬电麥结鈺贖哓类芈罷。

 //  返回:

（STRING）  值  

 //--------------------------------------------------------------------  赔荊紳谘侖驟辽輩袜錈極嚕。

 //  作者:

cwl日期:

  2002.03.18  

 //====================================================================  塤礙籟馐决穩賽釙冊庫麩适。

 string  ls_edittype,ls_value,ls_format  

 integer  id  

 ls_edittype=lower（dw_1.Describe（col+".Edit.Style"））//得到编缉风格  裊樣祕廬廂颤谚鍘羋蔺递灿。

 choose  case  ls_edittype  

 case  'ddlb','dddw'//应该得到显示值  

 ls_value=dw_1.describe（  "Evaluate（'LookUpDisplay（"+col+"）  ',"+string（row）+"  ）"）  仓嫗盤紲嘱珑詁鍬齊驁絛鯛。

 case  else  

 id=long（dw_1.Describe（col+".id"））  

 ls_format=dw_1.Describe（col+".Format"）  

 if  mid（ls_format,1,1）='['  or  ls_format='?

'  or  ls_format=''  then  //不作格式处理  绽萬璉轆娛閬蛏鬮绾瀧恒蟬。

 if  id=0  then  //计算列  

 ls_value=dw_1.Describe（"Evaluate（~""  +  dw_1.Describe（col  +  '.expression'）&  骁顾燁鶚巯瀆蕪領鲡赙骠弒。

 +  "~","+string（row）+"）"）  

 else  

 ls_value=string（dw_1.object.data[row,id]）  

 end  if    

 else  

 if  id=0  then  //计算列  

 ls_value=string（dw_1.Describe（"Evaluate（'"  +  dw_1.Describe（col  +  '.expression'）&  瑣钋濺暧惲锟缟馭篩凉貿锕。

 +  "',"+string（row）+"）"）,ls_format）  

 else  

 ls_value=string（dw_1.object.data[row,id],ls_format）  鎦诗涇艳损楼紲鯗餳類碍穑。

 end  if    

 end  if  

 end  choose  

 if  isnull（ls_value）  then  ls_value=''  

 return  ls_value

注释 （隐藏注释）栉缏歐锄棗鈕种鵑瑶锬奧伛。

全面控制Excel

 首先创建Excel对象，使用ComObj:

 varExcelID:

Variant;

 ExcelID:

=CreateOleObject（'Excel.Application'）;

 1）显示当前窗口：

 ExcelID.Visible:

=True;

 2）更改Excel标题栏：

 ExcelID.Caption:

='应用程序调用MicrosoftExcel';

 3）添加新工作簿：

 ExcelID.WorkBooks.Add;

 4）打开已存在的工作簿：

 ExcelID.WorkBooks.Open（'C:

\Excel\Demo.xls'）;

 5）设置第2个工作表为活动工作表：

 ExcelID.WorkSheets[2].Activate;

 或

 ExcelID.WorksSheets['Sheet2'].Activate;

 6）给单元格赋值：

 ExcelID.Cells[1,4].Value:

='第一行第四列';

 7）设置指