作者:乔山办公网日期:
返回目录:office365
这个多数的语言存在抓取异常的机制,可以尝试使用一下,例如C#.net java中使用的try {} catch {} 语句,我已退出IT,未曾尝试,你可以试下,毕竟异常可以抓出是什么类型的
可以通过注册表判断的,百OFFICE 2010 对应的是 office 14.0 的版度本。
你只要判断 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0 这个下面,有任意一专个子键,就属可以判定是否安装了。
Private Sub Command1_Click()
Dim xx As Boolean
xx = IsExistExcel
If xx = True Then
MsgBox "已安装zdEXCEL"
Else
MsgBox "未安装EXCEL"
End If
End Sub
'判断Excel是否安装的函数,版是则返回权True,否则返回False
Function IsExistExcel() As Boolean
On Error GoTo sERR:
Dim sExcel As Object
Set sExcel = CreateObject("EXCEL.Application")
IsExistExcel = True
Exit Function
sERR:
Err.Clear
IsExistExcel = False
End Function
也可以通过注册表判zd断的,OFFICE 2010 对应的是 office 14.0 的版本。
你只要判断内 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0 这个下面,有任意一个子容键,就可以判定是否安装了。