关于dw转excel打开问题
需要一段代码把dw中的内容转成excel，然后pb直接运行外部excel程序打开刚刚生成的execel
我的思路：
ls_pathnm='E:\sfjl\输出\temp.xls'
if parent.dw_1.saveasascii(ls_pathnm,"~t","","~n") <> 1 then
messagebox("提示:","文件保存失败！")
else
// Open(ls_pathnm,'xls')？？？应该是什么代码
end if
请问还有什么好的方法吗？
[解决办法]
方法一，简单点:
run('explorer.exe '" + ls_pathnm + "'")
方法二,用oleobject连接excel,再打开，很多现成的代码，我博客里面也有，去找吧~~
[解决办法]
给你一段片段代码：
if messagebox('提示','数据窗口已成功地转换成EXCEL文件!~r~n~r~n文件名为'+ls_path+'。~r~n~r~n需要打开吗？',Question!,YesNo!,2)=1 then
OleObjectxlapp //用于连接Excel
xlApp=Create OleObject
li_ret= xlApp.ConnectToNewObject( "Excel.Application" )
IF li_ret < 0 Then
MessageBox("提示","不能运行Excel程序,请检查是否已安装Microsoft Excel软件!")
ELSE
XlApp.Workbooks.Open(ls_path)
xlApp.ActiveWindow.WindowState= -4137 //最大化窗口
xlApp.Visible = True
xlApp.DisConnectObject()
END IF
IF IsValid(xlApp) Then
Destroy xlApp
END IF
end if
