[已解决]如何检测计算机中是否安装EXCEL 与 EXCEL 的版本呢??
本帖最后由 kk_lee69 于 2014-5-13 22:59 编辑如何检测计算机中是否安装EXCEL 与 EXCEL 的版本呢?? 本帖最后由 kevinch 于 2014-5-13 21:48 编辑
$excelapp=ObjCreate("excel.application")
If IsObj($excelapp) Then
$str="Excel "
Select
Case $excelapp.version="11.0"
$str&="2003"
Case $excelapp.version="12.0"
$str&="2007"
Case $excelapp.version="14.0"
$str&="2010"
Case $excelapp.version="15.0"
$str&="2013"
Case Else
$str&="未知版本"
EndSelect
$excelapp.quit
MsgBox(0,"",$str)
Else
MsgBox(0,"","Excel未安装！")
EndIf这样试下 回复 2# kevinch
谢谢分享!! 回复 2# kevinch
谢谢分享！！ 回复 2# kevinch
kevin 兄
EXCEL 相關的問題 果然您還是第一把交椅 ，感謝!! 回复 2# kevinch
kevin 兄順便請教一下
在 第一個活頁 增加兩個 活頁 第一個叫做 工作表A另外一個 叫做工作表B
這個 怎麼寫....???
我看 VBA 是用 Worksheets.Add Count:=2 套上 AUTOIT 後 Count:=2 的這段處理有問題 回复 6# kk_lee69 $excelapp=ObjCreate("excel.application")
$excelapp.visible=True
$xls=$excelapp.workbooks.add
With $xls
.worksheets.add(.worksheets(1),Default,2);worksheets.add(before,after,count,type),本例为在第一个工作表前面插入两个空白工作表
.worksheets(1).name="工作表A"
.worksheets(2).name="工作表B"
EndWith
$xls=0
$excelapp=0这个试下 回复 2# kevinch
电脑中可以同时安装多个版本的 Office，这种情况如何查询 回复 8# hnfeng Dim $arr=[,]
$str=""
For $n=0 To UBound($arr,2)-1
$excelapp=ObjCreate("excel.application."&$arr[$n])
If IsObj($excelapp) Then
$str&="Excel "&$arr[$n]&@CRLF
$excelapp.quit
EndIf
Next
If StringLen($str)>0 Then
MsgBox(0,"","本机安装了:"&@CRLF&$str)
Else
MsgBox(0,"","Excel未安装或未知版本！")
EndIf这个试下，你只要能完善那个$arr里的内容就可以判断已安装的版本了 回复 9# kevinch
多谢，我找时间试一下
页:
[1]