采用数据库的方法,真牛,下来研究下。
学习了平时也能用上
学习了平时也能用上
本帖最后由 渠辉 于 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) ) )