ylileiy
发表于 2014-1-2 20:20:47
采用数据库的方法,真牛,下来研究下。
winerfjy
发表于 2015-12-31 22:58:47
学习了平时也能用上
winerfjy
发表于 2015-12-31 23:01:34
学习了平时也能用上
渠辉
发表于 2022-7-11 16:00:46
本帖最后由 渠辉 于 2022-7-16 15:16 编辑
(defun Excel:ReadRange (range / array) (setq value (vlax-get-property range 'Value2)) (if (= (vlax-variant-type value) 8204) (mapcar '(lambda (x) (mapcar 'vlax-variant-value x)) (vlax-safearray->list (vlax-variant-value value)) ) (vlax-variant-value value) ) )