求教:Datawindow导出为excel文件问题

[htflyfish]

求教:Datawindow导出为excel文件问题

通过dw2xls导出为excel文件后,如何自动打开该文件呢?

以下为代码:
integer li_ret
integer li_value
string ls_docname
string ls_named
n_dwr_service_parm lnvo_parm

lnvo_parm = create n_dwr_service_parm
lnvo_parm.ib_keep_band_height = true
lnvo_parm.is_sheet_name = "生产任务单入库状态"
li_value = getfilesavename("保存文件",ls_docname,ls_named,"XLS","Excel 文件 (*.XLS), *.XLS")

if li_value = 1 then
li_ret = uf_save_dw_as_excel(dw_1,ls_named)
else
return
end if

if li_ret = 1 then
messagebox("提示","Excel转换成功!")
else
messagebox("提示","对不起,转换Excel失败,请确认是否数据量过大!")
end if

return

[SKY_4K_PPM]

OLEOBJECT OLE_OBJECT
OLE_OBJECT=CREATE OLEOBJECT
INTEGER LI_RTN
LI_RTN=OLE_OBJECT.CONNECTTONEWOBJECT("","EXCEL.APPLICATION")
IF LI_RTN<>0 THEN
LI_RTN=OLE_OBJECT.CONNECTTONEWOBJECT("EXCEL.APPLICATION")
IF LI_RTN<>0 THEN
MESSAGEBOX('OLEOBJECT CONNECT ERROR!','COULD NOT CONNECTED,ERROR NO:'+STRING(LI_RTN))
RETURN -1
END IF
OLE_OBJECT.VISIBLE=TRUE
END IF
LI_RTN=OLE_OBJECT.WORKBOOKS.OPEN("D:\SKY_4K_PPM.XLS")
........

[banxiankin]

string path
long pathlen
RegistryGet("HKEY_CLASSES_ROOT\Excel.Backup\shell\Open\command",'',path)
pathlen=len(path)
path=left(path,pathlen - 2)
Run(path+' '+ls_docname,Maximized!)

[knowledge_Is_Life]

支持搂主，收藏