API应用 初试 XDEX Excel解析库

st788796

仅测试一个 Net 类型标格，不包括合并单元格

1. (defun c:tt (/ fl lst row column rowlst cell)
   
2.   (if (and (setq fl (getfiled "Select XLS file" "" "xls;xlsm" 8))
   
3.            (xdex_book_load fl) ;_ 载入内存
   
4.            (setq lst (xdex_sheet_range)) ;_当前工作簿有效区域
   
5.       )
   
6.     (progn
   
7.       (mapcar 'set '(row column) (car lst))  ;_起始行、列
   
8.       (repeat (- (caadr lst) row)        ;行数
   
9.         (setq col column)
   
10.         (repeat        (- (cadadr lst) column) ;_列数         
    
11.           (setq rowlst (cons (xdex_cell_read row col) rowlst)) ;_读取单元格
    
12.           (setq col (1+ col))
    
13.         )
    
14.         (setq cell   (cons (reverse rowlst) cell)
    
15.               rowlst nil
    
16.         )
    
17.         (setq row (1+ row))
    
18.       )
    
19.       (xdex_book_close) ;_释放内存
    
20.       (foreach x (reverse cell)
    
21.         (princ "\n")
    
22.         (princ x)
    
23.       )
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )

(defun c:tt (/ fl lst row column rowlst cell)<br />   (if (and (setq fl (getfiled "Select XLS file" "" "xls;xlsm" 8))<br />            (xdex_book_load fl) ;_ 载入内存<br />            (setq lst (xdex_sheet_range)) ;_当前工作簿有效区域<br />       )<br />     (progn<br />       (mapcar 'set '(row column) (car lst))  ;_起始行、列<br />       (repeat (- (caadr lst) row)        ;行数<br />         (setq col column)<br />         (repeat        (- (cadadr lst) column) ;_列数          <br />           (setq rowlst (cons (xdex_cell_read row col) rowlst)) ;_读取单元格<br />           (setq col (1+ col))<br />         )<br />         (setq cell   (cons (reverse rowlst) cell)<br />               rowlst nil<br />         )<br />         (setq row (1+ row))<br />       )<br />       (xdex_book_close) ;_释放内存<br />       (foreach x (reverse cell)<br />         (princ "\n")<br />         (princ x)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

运行结果

命令: tt
(A279 2.60291e+006 493414.0 11.372)
(E037 2.60824e+006 489362.0 47.271)
(E040 2.60443e+006 491561.0 96.661)
(E051 2.60382e+006 488958.0 22.898)
(I001 2.6023e+006 490345.0 10.4351)
(I003 2.60261e+006 491250.0 9.0894)
(I004 2.60281e+006 491818.0 8.8092)
(I274 2.60386e+006 494187.0 17.1941)
(I312 2.60476e+006 493533.0 18.399)
(I329 2.60609e+006 491245.0 14.5699)
(I352 2.60566e+006 491799.0 25.8668)

即将发布！

good32167

期待发布，正想用做表格

grs432

好牛呀！！真强！！！