XD::Excel:isInstalled 判断EXCEL软件系统是否已安装

newer

1. ;|
   
2. 判断Excel是否安装
   
3. 参  数:  tf  ---- 非nil or nil
   
4. 返回值: 参数 tf=nil, 返回T or NIL
   
5.         参数 tf=非NIL，如果安装了EXCEL，返回对象名，否返回NIL
   
6. |;
   
7. (defun XD::Excel:isInstalled (tf / obj)
   
8.   (and
   
9.     (setq obj (vlax-get-or-create-object "Excel.Application"))
   
10.     (or
    
11.       (and
    
12.         (= tf nil)
    
13.         (vlax-release-object obj)
    
14.         (setq obj t)
    
15.       )
    
16.     )
    
17.   )
    
18.   obj
    
19. )
    

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

st788796

一直这样用 ，以前在  XP 上使用，换 Windows 7 了 ，32位/64位 也没有问题，那些绿色安装可能不行

1. (defun Current_OFFICE_Profiles_key (/ key $EA_PATH_OFFICE)
   
2.   (vl-remove
   
3.     nil
   
4.     (mapcar
   
5.       '(lambda (x)
   
6.          (vl-registry-read x "PATH")
   
7.        )
   
8.       '("HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\8.0\\EXCEL\\INSTALLROOT"
   
9.         "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\9.0\\EXCEL\\INSTALLROOT"
   
10.         "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\10.0\\EXCEL\\INSTALLROOT"
    
11.         "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\11.0\\EXCEL\\INSTALLROOT"
    
12.         "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\12.0\\EXCEL\\INSTALLROOT"
    
13.         "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\13.0\\EXCEL\\INSTALLROOT"
    
14.         "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\14.0\\EXCEL\\INSTALLROOT" ;_Office 2010
    
15.         "HKEY_LOCAL_MACHINE\\SOFTWARE\\MICROSOFT\\OFFICE\\15.0\\EXCEL\\INSTALLROOT" ;_Office 2013
    
16.        )
    
17.     )
    
18.   )
    
19. )
    

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

启动 Excel

1. (if (Current_OFFICE_Profiles_key)
   
2.   (startapp
   
3.     (strcat (car (Current_OFFICE_Profiles_key)) "Excel.exe")
   
4.   )
   
5. )
   

(if (Current_OFFICE_Profiles_key)<br />   (startapp<br />     (strcat (car (Current_OFFICE_Profiles_key)) "Excel.exe")<br />   )<br /> )<br />

newer

st788796 发表于 2014-11-16 17:44
一直这样用 ，以前在  XP 上使用，换 Windows 7 了 ，32位/64位 也没有问题，那些绿色安装可能不行

启动 ...

EXCEL能多版本安装不？如果装了几个版本的EXCEL，那启动的是哪个呢？

st788796

newer 发表于 2014-11-16 17:53
EXCEL能多版本安装不？如果装了几个版本的EXCEL，那启动的是哪个呢？

版本多了都在表里，启动的是最低版本

newer

st788796 发表于 2014-11-16 17:59
版本多了都在表里，启动的是最低版本

应该让 xls 文件关联的那个版本启动吧？我想去找XLS关联的那个路径靠谱点。

st788796

newer 发表于 2014-11-16 18:02
应该让 xls 文件关联的那个版本启动吧？我想去找XLS关联的那个路径靠谱点。

1. (defun Current_FileType_Associate (str / filetype)
   
2.   (if (setq
   
3.         filetype (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\." str))
   
4.       )
   
5.     (vl-registry-read
   
6.       (strcat "HKEY_CLASSES_ROOT\\" filetype "\\shell\\open\\command")
   
7.     )
   
8.   )
   
9. )
   

(defun Current_FileType_Associate (str / filetype)<br />   (if (setq<br />         filetype (vl-registry-read (strcat "HKEY_CLASSES_ROOT\\." str))<br />       )<br />     (vl-registry-read<br />       (strcat "HKEY_CLASSES_ROOT\\" filetype "\\shell\\open\\command")<br />     )<br />   )<br /> )<br />

_$ (Current_Filetype_Associate "txt")
"C:\\windows\\system32\\NOTEPAD.EXE %1"
_$ (Current_Filetype_Associate "xls")
"\"D:\\Program Files\\Microsoft Office\\Office14\\EXCEL.EXE\" /dde"
_$ (Current_Filetype_Associate "xlsx")
"\"D:\\Program Files\\Microsoft Office\\Office14\\EXCEL.EXE\" /dde"
_$

csharp

newer 发表于 2014-11-16 17:53
EXCEL能多版本安装不？如果装了几个版本的EXCEL，那启动的是哪个呢？

说到安装多个版本，N 版这个启动的是哪个版本？

范建威

我同学安装了EXCEL，启动文件是 EXCELNCS.EXE 不是 EXCEL.EXE

XDSoft

范建威 发表于 2014-12-5 22:18
我同学安装了EXCEL，启动文件是 EXCELNCS.EXE 不是 EXCEL.EXE

所以用创建EXCEL对象的方法更可靠些。

st788796

范建威 发表于 2014-12-5 22:18
我同学安装了EXCEL，启动文件是 EXCELNCS.EXE 不是 EXCEL.EXE

有和安装不等同，安装有一个标准，绿色版也是安装，但对二次开发这就是等同没有，要自己写