如何用VLISP检测或取得Office的版本信息?

rainman

具体一点,在VLISP程序中如何检测或取得EXCEL的版本信息,因为在VLISP中需要联接EXCEL类型库,而不同版本的EXCEL有不同的类型库文件(如:EXCEL 97的类型库文件为Excel8.olb;而EXCEL 2000的类型库文件却为Excel9.olb).如何有效确定其版本信息呢?
相关程式如下
(vl-load-com)
;;; EXCEL 97
  (if (= nil xlsc-xl24HourClock)
    (vlax-import-type-library
      :tlb-filename "Excel8.olb" :methods-prefix "xlsm-"
      :properties-prefix "xlsp-" :constants-prefix "xlsc-"
     ) ;_ end of vlax-import-type-library
  ) ;_ end of if
  (setq xls (vlax-get-or-create-object "Excel.Application.8"))
;;; EXCEL 2000
(if (= nil xlsc-xl24HourClock)
    (vlax-import-type-library
      :tlb-filename "Excel9.olb" :methods-prefix "xlsm-"
      :properties-prefix "xlsp-" :constants-prefix "xlsc-"
     ) ;_ end of vlax-import-type-library
  ) ;_ end of if
  (setq xls (vlax-get-or-create-object "Excel.Application.9"))

陈伯雄

河伯

;;;==================================================;
;;;判断计算机是否安装了Excel,是返回T,否返回nil         ;
;;;==================================================;
(defun vl_ExcelIsOk ()
  (Or
    (vl-registry-read                        ;Excel 97
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\8.0\\Excel\\InstallRoot"
      "ath"
    )
    (vl-registry-read                        ;Excel 2000
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\9.0\\Excel\\InstallRoot"
      "ath"
    )
    (vl-registry-read                        ;Excel XP
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\10.0\\Excel\\InstallRoot"
      "ath"
    )
    (vl-registry-read                        ;Excel 未来版本
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Office\\11.0\\Excel\\InstallRoot"
      "ath"
    )
    (vl-registry-read                        ;Excel 97
      "HKEY_CLASSES_ROOT\\TypeLib\\{00020813-0000-0000-C000-000000000046}\\1.2\\0\\win32"
      ""
    )
    (vl-registry-read                        ;Excel 2000
      "HKEY_CLASSES_ROOT\\TypeLib\\{00020813-0000-0000-C000-000000000046}\\1.3\\0\\win32"
      ""
    )
    (vl-registry-read                        ;Excel XP
      "HKEY_CLASSES_ROOT\\TypeLib\\{00020813-0000-0000-C000-000000000046}\\1.4\\0\\win32"
      ""
    )
    (vl-registry-read                        ;Excel 未来版本
      "HKEY_CLASSES_ROOT\\TypeLib\\{00020813-0000-0000-C000-000000000046}\\1.5\\0\\win32"
      ""
    )
  )
)

rainman