PB数据窗口导出wordexcel文档.docVIP

dw2word,dw2xls PB 数据窗口数据导出到word,excel,?? excel 可以自定义修改excel文档的列宽对齐方式,字体样式等// dwsave2word 调用oleglobal type gf_exportdata2word from function_objectend type forward prototypesglobal subroutine gf_exportdata2word (datawindow ad_datawindow)end prototypes global subroutine gf_exportdata2word (datawindow ad_datawindow);string ls_filepathls_filepath=gf_getfilesavename()OleObject OleObjectWordOleObjectWord=Create OleObject// 连接wordif OleObjectWord.ConnectToNewObject(Word.application) 0 then Messagebox(提示,ole连接错误！)return end if OleObjectWord.visible=false //word文档在操作数据过程中是否可见 Long col_colnum,col_rownumConstant Long wdTableBehavior=1Constant Long wdAutoFitFixed=0Constant Long wdCell=12String str_value// 得到数据窗口数据的列数和行数（行数应该是数据行数＋1）col_colnum=Long(ad_datawindow.object.datawindow.column.count)col_rownum=ad_datawindow.rowcount() + 1 // 先在word文档中画好表格SetPointer(HourGlass!)OleObjectWord.Documents.AddOleObjectWord.ActiveDocument.Tables.Add(OleObjectWord.Selection.Range,+col_rownum,col_colnum,wdTableBehavior,wdAutoFitFixed) string ls_colnameinteger i,j,k,lfor i=1 to col_colnum//得到标题头的名称ls_colname=ad_datawindow.Describe(#+string(i)+.name) + _tstr_value=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)??? str_value=ad_datawindow.GetItemstring(i - 1,j)??? if isnull(str_value) then ???? str_value=??? end if ??? OleObjectWord.Selection.MoveRight(wdCell)??? OleObjectWord.Selection.TypeText(str_value)?? nextnext ad_datawindow.setredraw(true)Constant long wdFormatDocument=0 // 保存新建的文档 OleObjectWord.ActiveDocument.SaveAs(ls_filepath,0,false,,true,,false,false,false,false,false)boolean lb_existlb_exist = FileExists(ls_filepath)if lb_exist then messagebox(提示,数据已经保