(XD::Excel:List->Array)表转写出Excel所用Safearray

st788796 · 发表于 2014-12-28 22:26:19

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 st788796 于 2014-12-29 20:10 编辑

(defun XD::Excel:list->Array (lst /)
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbvariant
(cons 1 (length lst))
(cons 1 (length (car lst)))
)
(mapcar
'(lambda (x)
(mapcar
'(lambda (a)
(cond
((or (= (type a) 'INT)
(= (type a) 'REAL)
)
(vlax-make-variant a vlax-vbdouble)
)
((and (= (type a) 'STR) (distof a))
(vlax-make-variant (distof a) vlax-vbdouble)
)
(t
(if (null a)
(setq a "")
)
(vlax-make-variant a vlax-vbstring)
)
)
)
x
)
)
lst
)
)
)

(defun XD::Excel:list->Array (lst /) 
  (vlax-safearray-fill 
    (vlax-make-safearray 
      vlax-vbvariant 
      (cons 1 (length lst)) 
      (cons 1 (length (car lst))) 
    ) 
    (mapcar 
      '(lambda (x) 
         (mapcar 
           '(lambda (a) 
              (cond 
                ((or (= (type a) 'INT) 
                     (= (type a) 'REAL) 
                 ) 
                 (vlax-make-variant a vlax-vbdouble) 
                ) 
                ((and (= (type a) 'STR) (distof a)) 
                 (vlax-make-variant (distof a) vlax-vbdouble) 
                ) 
                (t 
                 (if (null a) 
                   (setq a "") 
                 ) 
                 (vlax-make-variant a vlax-vbstring) 
                ) 
              ) 
            ) 
           x 
         ) 
       ) 
      lst 
    ) 
  ) 
)

st788796 · 发表于 2014-12-29 20:11:17

更新

革天明 · 发表于 2015-1-15 20:52:49

谢谢楼主分享

账号		自动登录	找回密码
密码			立即注册

[EXCEL] (XD::Excel:List->Array)表转写出Excel所用Safearray

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。