Lisp调取不了excel2010_两个简单的读取excel表格函数 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discu...

本帖最后由 crtrccrt 于 2019-9-11 15:56 编辑

;;;ljx-vlxls-app-Init;子程序局部优化;

(cond

( (wcmatch excelname "*.xls");;;为2003-xls文件时;

(cond

( (setq out2003 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2003))    (setq out (car out2003))    )

( (setq out2007 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2007))    (setq out (car out2007))    )

( (setq out2010 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2010))    (setq out (car out2010))    )

( (setq out2013 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2013))    (setq out (car out2013))    )

( (setq out2016 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2016))    (setq out (car out2016))    )

( t    (princ "\\n  计算机上未安装excel2003、excel2007、excel2010、excel2013、excel2016，不能打开xls文件!")  )

);;;cond;

)

( (wcmatch excelname "*.xlsx