(XD::Excel:getFromFile)读取Excel文件Sheet内容

st788796

1. ;|
   
2. 读取 xls,xlsx 文件指定索引 sheet 内容
   
3. 参  数: fn    --- 文件名
   
4.         index --- sheet 名或索引 ，nil 为首个 ， T  为 读取全部 sheet
   
5. 返回值: 表 or nil
   
6. |;
   
7. (defun XD::Excel:getFromFile (fn index / lst fl)
   
8.   (if (xdex_book_open fn)
   
9.     (progn
   
10.       (if (= index t)
    
11.         (progn
    
12.           (setq fl (xdex_book_getallsheet))
    
13.           (foreach x fl
    
14.             (xdex_book_setactivesheet x)
    
15.             (setq lst (cons (xdex_cell_readrange t) lst))
    
16.           )
    
17.           (setq lst (reverse lst))
    
18.         )
    
19.         (progn
    
20.           (if index
    
21.             (xdex_book_setactivesheet index)
    
22.           )
    
23.           (setq lst (xdex_cell_readrange t))
    
24.         )
    
25.       )
    
26.       (xdex_book_close)
    
27.     )
    
28.   )
    
29.   lst
    
30. )
    

;|<br /> 读取 xls,xlsx 文件指定索引 sheet 内容<br /> 参  数: fn    --- 文件名<br />         index --- sheet 名或索引 ，nil 为首个 ， T  为 读取全部 sheet<br /> 返回值: 表 or nil<br /> |;<br /> (defun XD::Excel:getFromFile (fn index / lst fl)<br />   (if (xdex_book_open fn)<br />     (progn<br />       (if (= index t)<br />         (progn<br />           (setq fl (xdex_book_getallsheet))<br />           (foreach x fl<br />             (xdex_book_setactivesheet x)<br />             (setq lst (cons (xdex_cell_readrange t) lst))<br />           )<br />           (setq lst (reverse lst))<br />         )<br />         (progn<br />           (if index<br />             (xdex_book_setactivesheet index)<br />           )<br />           (setq lst (xdex_cell_readrange t))<br />         )<br />       )<br />       (xdex_book_close)<br />     )<br />   )<br />   lst<br /> )<br />

freedake

引用excel数据时非常有用

iLisp

ReadRange 出来的有行列信息

st788796

2016.07.09 更新