powerbuilder导出数据到Excel表

string str_savename,named
int  excelok,li_net
oleobject excelserver
excelserver=create oleobject 
excelok=excelserver.connecttonewobject("excel.application") 
//检查返回值，以确保已成功地连接到了Excel
if excelok <> 0 then 
 messagebox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!") 
  return
end if  
if GetFilesaveName("选择文件", str_savename,named,"xls","Excel文件(*.xls),*.xls") = 1 then
	dw_1.saveas(str_savename,excel!,true)<span style="white-space:pre">	</span>//dw_1为数据窗口
	messagebox('提示信息','导出成功！')
end if