PB数据窗口导出excel.docVIP

PB数据窗口导出excel，修改第一行英文标题为中文标题，计算合计值 分类： PB 2013-11-05 13:01 712人阅读 评论(0) 收藏 举报 pb数据窗口导出excel中文标题计算合计值 1.PB数据窗口导出excel 利用dw.saveas(filename,Excel5!,true)方法先导出带英文标题的excel。 int li_retstring ls_filename,ls_pathnameboolean lb_exist if dw.rowcount()=0 then?messagebox(提示,无可保存的数据！)?return;end if li_ret = GetFileSaveName(保存文件,ls_pathname,ls_filename,xls,Excel文件(*.xls),*.xls)if li_ret=1 then?lb_exist = FileExists(ls_pathname)?IF lb_exist THEN??li_ret = MessageBox(保存, ls_pathname+已经存在,是否覆盖?,Exclamation!, YesNo!)?end if?if li_ret=1 then??li_ret = dw.saveas(ls_pathname,EXCEL5!, true)//此处必须为true，后面要修改第一行。??if li_ret=1 then???//修改标题头，计算合计???gf_set_title_sum(dw,ls_pathname)???messagebox(提示,保存成功！)??end if?end ifend if 2.修改第一行英文标题为中文标题，计算合计值 gf_set_title_sum(datawindow dw,string vs_filename)函数如下： int li_retlong ll_column,ll_num,ll_dwrowcountlong ll_xlsrowcount//excel的行数string ls_objtag[]//标题string ls_width[]//每列宽度string ls_obj,ls_valuestring ls_objs[]int i,jString ls_english = ABCDEFGHIJKLMNOPQRSTUVWXYZstring ls_colname//操作excelPointer oldpointerOLEObject ole_objectole_object = CREATE OLEObject//修改标题头，计算合计li_ret = ole_object.ConnectToNewObject(Excel.Application)IF li_ret 0 THEN?MessageBox(打开错误,无法连接EXCEL!是否已经安装了EXCEL?错误号： + String(li_ret))?RETURNEND IFole_object.Visible = false?? //ole应用服务是否显示oldpointer = SetPointer(HourGlass!)ole_object.application.workbooks.open(vs_filename)//打开文件 //获取标题ll_column = Long(dw.Object.DataWindow.Column.Count) //取得字段总数i = 0FOR ll_num = 1 TO ll_column?IF dw.DESCRIBE(#+String(ll_num)+.Visible) = 1 THEN //列标志为nun_Visible的不显示?? i = i+1? ls_obj = dw.DESCRIBE(#+String(ll_num)+.name) //字段名称的实际存储值? ls_objs[i] = ls_obj? ls_objtag[i] = dw.DESCRIBE(ls_obj? + _t.text)? //字段名称的显示值? ls_width[i]? = dw.DESCRIBE(ls_obj? + .width)?? //每列的宽度?END IFNEXT //开始修改标题头for j=1 to upperbound(ls_objtag)?ole_object.Cells(1,j).value=ls_objtag[j]next//标题一行居中ole_object.rows(1).HorizontalAlignment = 3//居中//计算合计值ll_dwrowcount=dw.