vb中如何确定机器是否安装有Excel2000?解决问题加50分

Question

你是不是要打开一个EXCEL文件？其实根本不用这么复杂，只要简单地调用API，就搞定了。ShellExecute(0, vbNullString, strFileTitle, vbNullString, strPath, SW_SHOWNORMAL)其中strFileTitle是你的Excel文件名，strPath是文件的路径。就OK了。
记得送分哟！－－哈哈，小马哥向大家问好！

Answer 1

Public Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long上面的函数是查找.exe文件的。或许有用。

Answer 2

判断机器又没有安装excel2000和调用excel2000可以尝试一下这方法：
on error goto error
Dim xl As Excel.Application
Set xl = CreateObject("Excel.Application")
/*excel对象创建失败*/
Xl.Workbooks.Add
Xl.Range("a1").Value = "你好！"
Xl.Visible = True
error:
megbox "请安装excel2000"
直接可以打开excel，不用使用shell执行。

Answer 3

我是要用shell来执行，用自动化实例太慢没有人知道如何检查注册表吗？

Answer 4

我用的一个办法是在 HKEY_CLASSES_ROOT\.xls 下面查找是否有默认键值Excel.Sheet 。如果有则安装了excel。其实是用关联的方法判断。