vlisp以数组读写excel 超快

wowan1314

优秀，非常优秀

vip-happy

现学没学会，写入不成功，麻烦看一下怎么回事

(defun Lst2Range (fn lst / e rg sh tp ws)
  (setq e(vlax-get-object "excel.Application")
        ws(vlax-invoke-method (vlax-get-property e "workbooks") "open"(findfile fn))
        sh(vlax-get-property (vlax-get-property ws "sheets") "item" 1)
        tp(vlax-get-property sh "range" "a1")
        rg(vlax-get-property tp "resize" (length lst) (length(car lst)))
  )(vlax-put-property rg "value2" (hs-Lst2Arr2 lst))
(vlax-invoke-method ws "close" :vlax-true)
)

Klein

我就是只会逐行读取处理，先收藏，慢慢学习

谢雷锋

牛逼的

丶吟游诗人灬

一直很好奇  和尚大佬是不是个妹子  真的特别厉害!