需要一个检测有没有安装微软的excel的函数

lucas3 · 发表于 2014-11-16 13:59:15

需要一个检测有没有安装微软的excel的函数，想放在程序开头，假入没有安装microsoft excel ，则提示，后面的程序不执行
假如装了其它的，如wps 之类的，是没有用的。即使装了wps 而没有装microsoft office ，就要提示，并中断后面程序执行。

newer · 发表于 2014-11-16 13:59:16

lucas3 发表于 2014-11-16 16:06
这个方法不好吧，用创建不成功来判断？创建不成功，会err的，时间久了，会忘掉的，到时就不知道这个err ...

怎么不好了，你象上面的方法设置个全局变量啊，这个全局变量在你程序初始化时候设置，中间你用的时候要是这个值为NIL，那么就说明没装，如果有值，你就让你的程序继续进行。保证只打开一次。全局变量是你自己管理的啊，你自己忘了那就别说了。

你要只临时知道是否装了EXCEL，那就就写个函数，不过这样你每次用都用打开下EXCEL对象，费时间哦，不如上面的用全局变量保存，你只打开一次EXCEL判断。

(defun XD::Excel:isInstalled ( / obj)
(and
(setq obj (vlax-get-or-create-object "Excel.Application"))
(vlax-release-object obj)
t
)
)

newer · 发表于 2014-11-16 14:40:03

去开源函数库论坛看看前几天的几个EXCEL函数，你创建EXCEL Application对象，如果不成，就是没装呗

部分代码

命令: (if (not **XD::Excel**)
(_> (setq **XD::Excel** (vlax-get-or-create-object "Excel.Application"))
(_> )
#<VLA-OBJECT _Application 00ed37dc>

lucas3 · 发表于 2014-11-16 16:06:58

newer 发表于 2014-11-16 14:40
去开源函数库论坛看看前几天的几个EXCEL函数，你创建EXCEL Application对象，如果不成，就是没装呗

部分 ...

这个方法不好吧，用创建不成功来判断？创建不成功，会err的，时间久了，会忘掉的，到时就不知道这个err是什么问题了

lucas3 · 发表于 2014-11-16 16:51:24

newer 发表于 2014-11-16 14:40
去开源函数库论坛看看前几天的几个EXCEL函数，你创建EXCEL Application对象，如果不成，就是没装呗

部分 ...

newer版主，您好，太笨，一下子消化不了，我需要像下面这样，如果安装了就继续执行，没有安装就不执行并提示，要怎么改呢？

(defun c:ww (/ 1p 2p _l d ang 3p 4p 5p 6p 7p 8p 9p 10p 11p)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (>= (atof (getvar 'ACADVER)) 18.2);; "16.1" AutoCAD 2005
(progn;; if test returns T
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (and (setq 1p (getpoint "\n指定第一点:"))
(setq 2p (getpoint "\n 指定第二点 :" 1p))
(if (<= (setq d (distance 1p 2p)) 5.)
(progn (alert "两点之间的距离必须超过5个单位 ") nil)
t
)
)
(progn (defun _l (j k) (entmake (list '(0 . "LINE") (cons 10 j) (cons 11 k))))
(setq 3p (polar 1p (+ (setq ang (angle 1p 2p)) (* pi 0.5)) 4.5)
4p (polar 3p (+ ang (* pi 1.5)) 9.)
5p (polar 4p ang 5.)
6p (polar 5p (+ ang (* pi 0.5)) 9.)
7p (polar 5p (angle 5p 6p) 1.75)
8p (polar 7p ang (- d 5.))
9p (polar 8p (angle 5p 6p) 5.5)
10p (polar 9p (+ ang pi) (- d 5.))
)
(mapcar '_l (list 4p 5p 7p 9p 6p) (list 5p 6p 8p 10p 3p))
)
)
(princ)
)
;;;;;;;;;;;;;;;;;;;;
;; if test AutoCAD version returns nil
(Alert "此功能需在CAD2011及上版本才支持！")
);; if
(princ)
)

(defun c:ww (/ 1p 2p _l d ang 3p 4p 5p 6p 7p 8p 9p 10p 11p) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  (if (>= (atof (getvar 'ACADVER)) 18.2);; "16.1" AutoCAD 2005 
     (progn;; if test returns T 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  (if (and (setq 1p (getpoint "\n指定第一点:")) 
           (setq 2p (getpoint "\n 指定第二点 :" 1p)) 
           (if (<= (setq d (distance 1p 2p)) 5.) 
             (progn (alert "两点之间的距离必须超过5个单位 ") nil) 
             t 
           ) 
      ) 
    (progn (defun _l (j k) (entmake (list '(0 . "LINE") (cons 10 j) (cons 11 k)))) 
           (setq 3p  (polar 1p (+ (setq ang (angle 1p 2p)) (* pi 0.5)) 4.5) 
                 4p  (polar 3p (+ ang (* pi 1.5)) 9.) 
                 5p  (polar 4p ang 5.) 
                 6p  (polar 5p (+ ang (* pi 0.5)) 9.) 
                 7p  (polar 5p (angle 5p 6p) 1.75) 
                 8p  (polar 7p ang (- d 5.)) 
                 9p  (polar 8p (angle 5p 6p) 5.5) 
                 10p (polar 9p (+ ang pi) (- d 5.)) 
           ) 
           (mapcar '_l (list 4p 5p 7p 9p 6p) (list 5p 6p 8p 10p 3p)) 
    ) 
  ) 
  (princ) 
) 
;;;;;;;;;;;;;;;;;;;; 
    ;; if test AutoCAD version returns nil 
     (Alert "此功能需在CAD2011及上版本才支持！") 
   );; if 
  (princ) 
)

newer · 发表于 2014-11-16 16:56:31

程序是你自己写的吗? 还是修改别人的程序？

你这个跟EXCEL也没关系啊

(defun XD::Excel:isInstalled ( / obj)
(and
(setq obj (vlax-get-or-create-object "Excel.Application"))
(vlax-release-object obj)
t
)
)
(defun c:ww (/ 1p 2p _l d ang 3p 4p 5p 6p 7p 8p 9p 10p 11p) ;
(if (and (>= (atof (getvar 'ACADVER)) 18.2) ; "16.1" AutoCAD 2005; if test returns T;
(XD::Excel:isInstalled)
)
(progn
(if (and
(setq 1p (getpoint "\n指定第一点:"))
(setq 2p (getpoint "\n 指定第二点 :" 1p))
(if (<= (setq d (distance 1p 2p))
5.
)
(progn
(alert "两点之间的距离必须超过5个单位 ")
nil
)
t
)
)
(progn
(defun _l (j k)
(entmake (list '(0 . "LINE") (cons 10 j) (cons 11 k)))
)
(setq 3p (polar 1p (+ (setq ang (angle 1p 2p))
(* pi 0.5)
) 4.5
)
4p (polar 3p (+ ang (* pi 1.5)) 9.)
5p (polar 4p ang 5.)
6p (polar 5p (+ ang (* pi 0.5)) 9.)
7p (polar 5p (angle 5p 6p) 1.75)
8p (polar 7p ang (- d 5.))
9p (polar 8p (angle 5p 6p) 5.5)
10p (polar 9p (+ ang pi) (- d 5.))
)
(mapcar
'_l
(list 4p 5p 7p 9p 6p)
(list 5p 6p 8p 10p 3p)
)
)
)
(princ)
) ;
; if test AutoCAD version returns
; nil
(Alert "此功能需在CAD2011及上版本并系统安装EXCEL软件才支持！")
) ; if
(princ)
)

(defun XD::Excel:isInstalled ( / obj) 
  (and 
    (setq obj (vlax-get-or-create-object "Excel.Application")) 
    (vlax-release-object obj) 
    t 
  ) 
) 
(defun c:ww (/ 1p 2p _l d ang 3p 4p 5p 6p 7p 8p 9p 10p 11p) ; 
  (if (and (>= (atof (getvar 'ACADVER)) 18.2) ; "16.1" AutoCAD 2005; if test returns T; 
           (XD::Excel:isInstalled) 
      ) 
    (progn                                                                       
      (if (and 
            (setq 1p (getpoint "\n指定第一点:")) 
            (setq 2p (getpoint "\n 指定第二点 :" 1p)) 
            (if (<= (setq d (distance 1p 2p)) 
                    5. 
                ) 
              (progn 
                (alert "两点之间的距离必须超过5个单位 ") 
                nil 
              ) 
              t 
            ) 
          ) 
        (progn 
          (defun _l (j k) 
            (entmake (list '(0 . "LINE") (cons 10 j) (cons 11 k))) 
          ) 
          (setq 3p (polar 1p (+ (setq ang (angle 1p 2p)) 
                                (* pi 0.5) 
                             ) 4.5 
                   ) 
                4p (polar 3p (+ ang (* pi 1.5)) 9.) 
                5p (polar 4p ang 5.) 
                6p (polar 5p (+ ang (* pi 0.5)) 9.) 
                7p (polar 5p (angle 5p 6p) 1.75) 
                8p (polar 7p ang (- d 5.)) 
                9p (polar 8p (angle 5p 6p) 5.5) 
                10p (polar 9p (+ ang pi) (- d 5.)) 
          ) 
          (mapcar 
            '_l 
            (list 4p 5p 7p 9p 6p) 
            (list 5p 6p 8p 10p 3p) 
          ) 
        ) 
      ) 
      (princ) 
    )                                       ; 
                                       ; if test AutoCAD version returns 
                                       ; nil 
    (Alert "此功能需在CAD2011及上版本并系统安装EXCEL软件才支持！") 
  )                                       ; if 
  (princ) 
)

newer · 发表于 2014-11-16 17:09:29

本帖最后由 newer 于 2014-11-16 17:10 编辑

XD::Excel:IsInstalled 修改了，新的下面，你要不用上面那个，就修改下上面的程序，把这个函数加上参数。

;|
判断Excel是否安装
参数: tf ---- 非nil or nil
lst ---- 表
返回值: 参数 tf=nil, 返回T or NIL
参数 tf=非NIL，如果安装了EXCEL，返回对象名，否返回NIL
|;
(defun XD::Excel:isInstalled (tf / obj)
(and
(setq obj (vlax-get-or-create-object "Excel.Application"))
(or
(and
(= tf nil)
(vlax-release-object obj)
(setq obj t)
)
)
)
obj
)

newer · 发表于 2014-11-16 17:20:37

lucas3 发表于 2014-11-16 16:51
newer版主，您好，太笨，一下子消化不了，我需要像下面这样，如果安装了就继续执行，没有安装就不执行并 ...

人为限制的吧，没看到这个代码哪地方需要2011以上版本才能用了。

st788796 · 发表于 2014-11-16 17:28:10

lucas3 发表于 2014-11-16 16:06
这个方法不好吧，用创建不成功来判断？创建不成功，会err的，时间久了，会忘掉的，到时就不知道这个err ...

不用创建

(defun Current_OFFICE_Profiles_key (/ key $EA_PATH_OFFICE)
(vl-remove
nil
(mapcar
'(lambda (x)
(vl-registry-read x "PATH")
)
'("HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\8.0\\EXCEL\\INSTALLROOT"
"HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\9.0\\EXCEL\\INSTALLROOT"
"HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\10.0\\EXCEL\\INSTALLROOT"
"HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\11.0\\EXCEL\\INSTALLROOT"
"HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\12.0\\EXCEL\\INSTALLROOT"
"HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\13.0\\EXCEL\\INSTALLROOT"
"HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\14.0\\EXCEL\\INSTALLROOT";_Office 2010
"HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\15.0\\EXCEL\\INSTALLROOT";_Office 2013
)
)
)
)

lucas3 · 发表于 2014-11-16 17:28:14

newer 发表于 2014-11-16 17:20
人为限制的吧，没看到这个代码哪地方需要2011以上版本才能用了。

是的，为个程序不需要2011以上，也不需要excel ，我只是随便拿了一个程序来举例

lucas3 · 发表于 2014-11-16 17:30:14

st788796 发表于 2014-11-16 17:28
不用创建

请问st大师怎么用？就像我上面那个例子，怎么加入到现有程序中？

newer · 发表于 2014-11-16 17:35:47

本帖最后由 newer 于 2014-11-16 17:36 编辑

lucas3 发表于 2014-11-16 17:30
请问st大师怎么用？就像我上面那个例子，怎么加入到现有程序中？

他那个是读注册表，不过有时候并不一定可靠。

粘贴下去运行啊，不就知道了

命令: (CURRENT_OFFICE_PROFILES_KEY)
("C:\\Program Files\\Microsoft Office 2007\\OFFICE12\\")

st788796 · 发表于 2014-11-16 17:38:10

newer 发表于 2014-11-16 17:35
他那个是读注册表，不过有时候并不一定可靠。

粘贴下去运行啊，不就知道了

没问题，很可靠的！

lucas3 · 发表于 2014-11-16 17:40:45

newer 发表于 2014-11-16 17:35
他那个是读注册表，不过有时候并不一定可靠。

粘贴下去运行啊，不就知道了

是的，因为有可能excel 损坏，或excel.exe被人为删除的情况，我只是想知道方法，就像newer版主你那样加入到我那个样例中？

newer · 发表于 2014-11-16 17:41:04

st788796 发表于 2014-11-16 17:38
没问题，很可靠的！

人为去把这个目录删除掉，而注册表还留着呢{:soso_e113:}
另外判断有没有安装EXCEL不是目的啊，要操作他啊，所以还是判断后返回对象比较好。否则还得去打开EXCEL对象。

账号		自动登录	找回密码
密码			立即注册

[已解决] 需要一个检测有没有安装微软的excel的函数

最佳答案

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评

点评