关于EXCEL安装的路径问题
我想请教打开EXCEL文档，如何判断EXCEL安装路径？现在我是指定的。
if run("c:\program files\microsoft office\office\excel.exe "+m_wj+"",minimized!)=1 then
// messagebox('','ok') //打开EXCEL 文件
mle_1.text=mle_1.text+char(13)+char(10)+'打开EXCEL "'+m_wj+'" 文件成功'
else
mle_1.text=mle_1.text+char(13)+char(10)+'打开 EXCEL "'+m_wj+'" 文件失败'
return
end if
问题点数：0、回复次数：5Top
1 楼klbt（快乐白兔）回复于 2003-12-01 21:43:11 得分 0
可以用注册表函数取出excel安装路径。Top
2 楼emsfl（emsfl）回复于 2003-12-02 21:09:21 得分 0
谢谢你提醒。我试试看Top
3 楼emsfl（emsfl）回复于 2003-12-06 14:41:22 得分 0
能不能说的更具体一些！谢谢！Top
4 楼workhand（我可憨了...）回复于 2003-12-06 14:56:14 得分 0
先到注册表里看是否安装了EXCEL。然后再做其他处理Top
5 楼emsfl（emsfl）回复于 2003-12-06 17:43:36 得分 0
我自己写好了，并调试成功。供大家参考。
String ls_Path,l_path
String ls_subkeylist[]
int l_rt
l_rt = RegistryKeys("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office", ls_subkeylist)
//读出office下面的子键。不同的版本其值不同。有的是在8.0下，有的在9.0下。
l_pass = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\"+ls_subkeylist[1]+"\EXCEL\INSTALLROOT"
L_RT=RegistryGet(l_pass, &
"Path", RegString!, ls_Path) //读出安装EXCEL路径
LS_PATH=LS_PATH+"EXCEL.EXE"
if run(LS_PATH+" "+m_wj,minimized!)=1 then
// if run("E:\program files\microsoft office\office\excel.exe "+m_wj+"",minimized!)=1 then
mle_1.text=mle_1.text+char(13)+char(10)+'打开EXCEL "'+m_wj+'" 文件成功'
else
mle_1.text=mle_1.text+char(13)+char(10)+'打开EXCEL "'+m_wj+'" 文件失败'
end if
end ifTop
