PB 数据窗口数据导出到word文件中.docVIP

PB 数据窗口数据导出到word,excel 博客分类： powerbuilder ExcelJ#Windows PB 数据窗口数据导出到word,excel, excel 可以自定义修改excel文档的列宽对齐方式,字体样式等 // dwsave2word 调用ole global type gf_exportdata2word from function_object end type forward prototypes global subroutine gf_exportdata2word (datawindow ad_datawindow) end prototypes global subroutine gf_exportdata2word (datawindow ad_datawindow);string ls_filepath ls_filepath=gf_getfilesavename() OleObject OleObjectWord OleObjectWord=Create OleObject // 连接word if OleObjectWord.ConnectToNewObject(Word.application) 0 then Messagebox(提示,ole连接错误！) return end if OleObjectWord.visible=false //word文档在操作数据过程中是否可见 Long col_colnum,col_rownum Constant Long wdTableBehavior=1 Constant Long wdAutoFitFixed=0 Constant Long wdCell=12 String str_value // 得到数据窗口数据的列数和行数（行数应该是数据行数＋1） col_colnum=Long(ad_datawindow.object.datawindow.column.count) col_rownum=ad_datawindow.rowcount() + 1 // 先在word文档中画好表格 SetPointer(HourGlass!) OleObjectWord.Documents.Add OleObjectWord.ActiveDocument.Tables.Add(OleObjectWord.Selection.Range, +col_rownum,col_colnum,wdTableBehavior,wdAutoFitFixed) string ls_colname integer i,j,k,l for i=1 to col_colnum //得到标题头的名称 ls_colname=ad_datawindow.Describe(#+string(i)+.name) + _t strvalue=ad_datawindow.DEscribe(ls_colname+.text) OleObjectWord.Selection.TypeText(str_value) OleObjectWord.Selection.MoveRight(wdCell) Next ad_datawindow.setRedraw(false) OleObjectWord.Selection.MoveLeft(wdCell) SetPointer(HourGlass!) for i=2 to col_rownum for j=1 to col_colnum ad_datawindow.Scrolltorow(i - 1) ad_datawindow.SetColumn(j) strvalue=ad_datawindow.GetItemstring(i - 1,j) if isnull(str_value) then strvalue= end if OleObjectWord.Selection.MoveRight(wdCell) OleObjectWord.Selection.TypeText(str_value) next next ad_datawindow.setredraw(true) Constant long wdFormatDocument=0 // 保存新建的文档 OleObjectWord.ActiveDocument.SaveAs(ls_filepath,0,false,,true,,false,false,false,false,false) boolean lb_exist lb_exist = FileExist