Libreria liberada - Exportar a Exel

Esta es una libreria muy conocida por los desarrolladores de Powerbuilder a cual nos ayuda a simplificar el trabajo de exportar datos a exel .



Metodo para exportar
string name
integer li_ret
n_dwr_service_parm lnvo_parm
lnvo_parm = create n_dwr_service_parm
lnvo_parm.ib_header =true //skip header band
lnvo_parm.ib_summary = true //skip summary band
lnvo_parm.ib_footer = true //skip footer band
lnvo_parm.ib_group_header = true //skip all group headers
lnvo_parm.ib_group_trailer = true //skip all group trailers
string ls_ruta, ls_archivo, ls_ext, ls_descripcion
Long ll_res,li_resp
ls_descripcion ="Portable Document Format (*.xls),*.xls"
ls_ext ="XLS"
ll_res = GetFileSaveName ( "Guardar Como...",ls_ruta, ls_archivo, ls_ext,ls_descripcion, "",32770)
li_ret = uf_save_dw_as_excel_parm(dw_1, ls_ruta, lnvo_parm)
if li_ret = 1 then
else
messagebox("Aviso de Sistema","Error Vuelva a intentar")
end if
if ll_res = 1 Then
MessageBox(ls_archivo,ls_ruta)
end if

Descarga: 4Share
Version: 11.5
Link:dw2xls_pb11.5.rar
Referencia: http://desta.com.ua/dw2xls/