PB导出数据excel格式dw2xls

PB导出数据excel格式dw2xls

 使用DW2XLS控件

语法

uf_save_dw_as_excel ( dw, filename ) 

參数

dw A reference to the datawindow object
filename A string whose value is the name of the file you want to create. If filename is not on the operating system's search path, you must enter the fully qualified name. 

返回值

Integer. Returns 1 if it succeeds and -1 if an error occurs.

举例

integer li_ret

li_ret = uf_save_dw_as_excel(dw_1, 'c:\doc\report.xls')
if li_ret = 1 then
   //success
   //...
else
   //fail
   //...
end if

我的实际样例

 

首先 migrate dw2XLS

 

界面

相关代码

导出结果

 

还有相关的就是

 

uf_save_dw_as_excel_parm() function

Converts datawindow into excel file. Allows to specify some options for process of converting.

语法

uf_save_dw_as_excel_parm ( dw, filename, parm ) 

參数

dw A reference to the datawindow object
filename A string whose value is the name of the file you want to create. If filename is not on the operating system's search path, you must enter the fully qualified name 
parm A reference to the n_dwr_service_parm object which contain a set of parameters for process of converting

返回值

Integer. Returns 1 if it succeeds and -1 if an error occurs.

举例

 

//export using parameters
integer li_ret
n_dwr_service_parm lnvo_parm
lnvo_parm = create n_dwr_service_parm
lnvo_parm.ib_header = false         //skip header band 没有标题行
lnvo_parm.ib_summary = false        //skip summary band 
lnvo_parm.ib_footer = false         //skip footer band 
lnvo_parm.ib_group_header = false   //skip all group headers 
lnvo_parm.ib_group_trailer = false  //skip all group trailers 

li_ret = uf_save_dw_as_excel_parm(dw_1, 'c:\doc\report.xls', lnvo_parm)
if li_ret = 1 then
   //success
   //...
else
   //fail
   //...
end if

以下这个没有測试成功，可能版本号不正确
is_header_text 没有这种方法

// adding a header to generated XLS
integer li_ret
n_dwr_service_parm lnvo_parm
lnvo_parm = create n_dwr_service_parm
lnvo_parm.is_header_text = "Report"
lnvo_parm.ib_header_font_underline = True

li_ret = uf_save_dw_as_excel_parm(dw_1, 'c:\doc\report.xls', lnvo_parm)
if li_ret = 1 then
   //success
   //...
else
   //fail
   //...
end if