(vl-load-com)
(cond
((null msxl-xl24HourClock) (setq a 1))
)
(if (= a 1) (princ "设置失败!") (princ "设置成功!"))
(setq sysdrv (getenv "systemdrive"))
(setq tlbfile (findfile (strcat sysdrv "\\Program Files\\Microsoft Office\\Office12\\Excel.exe")))
(vlax-import-type-library
:tlb-filename tlbfile
:methods-prefix "mmsxl-"
:properties-prefix "mmsxl-"
:constants-prefix "mmsxl-"
)
(if mmsxl-xl24HourClock (princ "设置成功!") (princ "设置失败!"))
(setq appsession (vlax-create-object "Excel.Application"))
(vlax-invoke-method (vlax-get-property appsession 'WorkBooks) 'Add)
(vla-put-visible appsession 1)