马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
 - (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) "")))
_$
|