(XD::Excel:ReadRange)读取指定区域

st788796 · 发表于 2014-12-30 22:34:54

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

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

×

(defun XD::Excel:ReadRange (str / addr sRow sCol eRow eCol lst)
(setq addr (xdex_cell_addr2rc str))
(mapcar 'set '(sRow sCol) (car addr))
(mapcar 'set '(eRow eCol) (cadr addr))
(setq lst (xdex_cell_readrange sRow sCol)
r 0
tRow (1+ (- eRow sRow))
tCol (1+ (- eCol sCol))
)
(vl-remove nil
(mapcar '(lambda (x / c l)
(setq c 0
r (1+ r)
)
(setq l (vl-remove nil
(mapcar '(lambda (a)
(setq c (1+ c))
(if (<= c tCol)
a
nil
)
)
x
)
)
)
(if (<= r tRow)
l
nil
)
)
lst
)
)
)

(defun XD::Excel:ReadRange (str / addr sRow sCol eRow eCol lst) 
  (setq addr (xdex_cell_addr2rc str)) 
  (mapcar 'set '(sRow sCol) (car addr)) 
  (mapcar 'set '(eRow eCol) (cadr addr)) 
  (setq        lst  (xdex_cell_readrange sRow sCol) 
        r    0 
        tRow (1+ (- eRow sRow)) 
        tCol (1+ (- eCol sCol)) 
  ) 
  (vl-remove nil 
             (mapcar '(lambda (x / c l) 
                        (setq c        0 
                              r        (1+ r) 
                        ) 
                        (setq l        (vl-remove nil 
                                           (mapcar '(lambda (a) 
                                                      (setq c (1+ c)) 
                                                      (if (<= c tCol) 
                                                        a 
                                                        nil 
                                                      ) 
                                                    ) 
                                                   x 
                                           ) 
                                ) 
                        ) 
                        (if (<= r tRow) 
                          l 
                          nil 
                        ) 
                      ) 
                     lst 
             ) 
  ) 
)

_$ (XD::EXCEL:READRANGE "C4:D6")
((((3 2) "工程名称") ((3 3) "")) (((4 2) "图名") ((4 3) "")) (((5 2) "图号") ((5 3) "")))
_$

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

[EXCEL] (XD::Excel:ReadRange)读取指定区域

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