[已解决]如何检测计算机中是否安装EXCEL 与 EXCEL 的版本呢??

kk_lee69 · 发表于 2014-5-13 21:27:04

本帖最后由 kk_lee69 于 2014-5-13 22:59 编辑

如何检测计算机中是否安装EXCEL 与 EXCEL 的版本呢??

kevinch · 发表于 2014-5-13 21:38:55

本帖最后由 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

这样试下

chzj589 · 发表于 2014-5-13 22:06:11

回复 2# kevinch
谢谢分享!!

navy · 发表于 2014-5-13 22:18:44

回复 2# kevinch

谢谢分享！！

kk_lee69 · 发表于 2014-5-13 22:53:55

回复 2# kevinch

kevin 兄

EXCEL 相關的問題果然您還是第一把交椅，感謝!!

kk_lee69 · 发表于 2014-5-13 23:38:10

回复 2# kevinch

kevin 兄順便請教一下

在第一個活頁增加兩個活頁第一個叫做工作表A 另外一個叫做工作表B

這個怎麼寫....???

我看 VBA 是用 Worksheets.Add Count:=2 套上 AUTOIT 後 Count:=2 的這段處理有問題

kevinch · 发表于 2014-5-14 07:10:56

回复 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

这个试下

hnfeng · 发表于 2014-5-14 10:06:19

回复 2# kevinch

电脑中可以同时安装多个版本的 Office，这种情况如何查询

kevinch · 发表于 2014-5-14 12:09:10

回复 8# hnfeng

Dim $arr[2][4]=[[11,12,14,15],[2003,2007,2010,2013]]
$str=""
For $n=0 To UBound($arr,2)-1
        $excelapp=ObjCreate("excel.application."&$arr[0][$n])
        If IsObj($excelapp) Then
                $str&="Excel "&$arr[1][$n]&@CRLF
                $excelapp.quit
        EndIf
Next
If StringLen($str)>0 Then
        MsgBox(0,"","本机安装了:"&@CRLF&$str)
Else
        MsgBox(0,"","Excel未安装或未知版本！")
EndIf

这个试下，你只要能完善那个$arr里的内容就可以判断已安装的版本了

hnfeng · 发表于 2014-5-26 10:59:25

回复 9# kevinch

多谢，我找时间试一下

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]如何检测计算机中是否安装EXCEL 与 EXCEL 的版本呢??

相关帖子

评分

评分