只有1个pbl
请问怎么调用
哪里有说明书啊
------解决方案--------------------
参考一下:
integer value,li_FileNum
string pathname,filename,ls_filename,ls_null=''
getfilesavename("Saving Data",pathname,filename,"xls","Excel 文件(*.xls),*.xls")
ls_filename = pathname
if fileexists(pathname)=false then
li_FileNum = FileOpen(ls_filename)
FileWrite(li_fileNum,ls_null)
end if
n_dwr_service_parm lnvo_parm
n_dwr_service_excel lnvo_excel
lnvo_excel = create n_dwr_service_excel
lnvo_parm = create n_dwr_service_parm
lnvo_parm.ib_show_progress = true
lnvo_parm.is_version = '97'
lnvo_parm.ib_group_header = true
//Create Workbook
if lnvo_excel.of_create_wb(ls_filename, lnvo_parm) = 1 then
//Converting Datawindow to Sheet 1
lnvo_parm.is_sheet_name = 'First Sheet' //自己定义Sheet名字
lnvo_excel.of_save_dw2sheet(dw_1, lnvo_parm) //把dw_1导入到SHEET1
//Converting Datawindow to Sheet 2
lnvo_parm.is_sheet_name = 'Second Sheet'
lnvo_excel.of_save_dw2sheet(dw_2, lnvo_parm) //把dw_2导入到SHEET2
//Close Workbook
lnvo_excel.of_close_wb()
end if
------解决方案--------------------
加这个PBL加入项目中
就一个函数就可以了
DW什么样就导出什么样的excel
uf_save_dw_as_excel(dw_1, 'c:\xx.xls')
------解决方案--------------------
------解决方案--------------------
同意楼上，直接写调用函数就行了
------解决方案--------------------
dw2xls 好熟悉的pbl名字啊，莫非楼主是深圳工作?