excel与pb.docVIP

本文共收录了4个关于Datawindow窗口导出为EXCEL的方法 目 录 EXCEL单元格格式设置 2 一、Datawindow窗口导出为EXCEL的方法.txt 11 $PBExportHeader$uo_ds_base.sru 11 1、public function any uf_getitemvalue (long al_row, string as_colname); 12 2、public function string uf_about (); 13 3、public function string uf_globalreplace (string as_source, string as_old, string as_new); 13 $PBExportHeader$nvo_excel.sru 14 1、public function integer uf_toexcel (datastore ads_data, readonly string as_title); 16 2、public function integer uf_toexcel (datawindow adw_data, readonly string as_title); 16 3、private function integer uf_setdatasource (datawindow 17 4、private function integer uf_setdatasource (datastore ads_data); 17 5、private function integer uf_datatoexcel (string as_title); 18 6、public function string uf_about (); 20 7、private function integer uf_initcolumn (); 20 $PBExportHeader$dw_excel_columns.srd 23 上面的程序 Bug 列表 : 25 二、中国龙的方法（变更日志：020515加入对交叉表倒出的支持） 27 三、以前一位仁兄的代码： 32 四、收藏的一个导出为 excel 的例子（支持导出分组带、合计带，并且支持多层嵌套报表导出,基本是所见及所得） 34 五、另一个导出函数（限26列） 37 六、又一例 42 EXCEL单元格格式设置 ????????? 单元格选择方法 ????????? Range(A1).Select????????????????????????????????????? 选择A1单元格 ????????? Range(A1,C1).Select?????????????????????????????????? 选择A1、C1单元格 ????????? Range(A1:C2).Select?????????????????????????????????? 选择A1至C2单元格区域 ????????? Rows(1:1).Select????????????????????????????????????? 选择第1行 ????????? Range(1:1,3:3).Select???????????????????????????????? 选择第1、3行 ????????? Rows(1:3).Select????????????????????????????????????? 选择第1至3行 ????????? Columns(A:A).Select?????????????????????????????????? 选择A列 ????????? Columns(A:C).Select?????????????????????????????????? 选择A至C列 ????????? Cells.Select??????????????????????????????????????????? 选择全部单元格 ????????? 单元格格式设置－数字 ????????? Selection.NumberFormatLocal = G/通用格式????????????? 分类(C)_常规 ????????? Selection.NumberFormatLocal = 0.00_ ????????????????? 分类(C)_数值????????? Selection.NumberFormatLocal = ￥#,##0.00;￥-#,##0.00? 分类(C)_货币????????? Selection.NumberFormatLocal = _ ￥* #,#