xdex_sheet_readrange函数返回值

brainstorm

如附图excel表格,以下
(xdex_sheet_readrange)
((((0 0) 0.0)
   ((0 1) (nil "MergeCell"))
   ((0 2) (nil "MergeCell"))
   ((0 3) "")
   ((0 4) "")
)
  (((1 0) 1.0) ((1 1) 1.0) ((1 2) 2.0) ((1 3) 3.0) ((1 4) ""))
  (((2 0) 2.0) ((2 1) 1.0) ((2 2) 2.0) ((2 3) 3.0) ((2 4) ""))
  (((3 0) "") ((3 1) "") ((3 2) "") ((3 3) "") ((3 4) ""))
)
(xdex_sheet_readrange t)
((((0 0) 0.0) ((0 3) "") ((0 4) ""))
  (((1 0) 1.0) ((1 1) 1.0) ((1 2) 2.0) ((1 3) 3.0) ((1 4) ""))
  (((2 0) 2.0) ((2 1) 1.0) ((2 2) 2.0) ((2 3) 3.0) ((2 4) ""))
  (((3 0) "") ((3 1) "") ((3 2) "") ((3 3) "") ((3 4) ""))
)

都不会返回 "first row“字符串，建议能够返回
解决办法：

1. (defun T5_excelRng2Odcl (filename sheetname / rtn)
   
2.     (xdex_book_open filename)
   
3.     (xdex_book_setactivesheet sheetname)
   
4.     (foreach n (xdex_sheet_getmergeCell)
   
5.       (apply 'xdex_sheet_removemerge
   
6.              (list (car n) (caddr n))
   
7.       )
   
8.     )
   
9.     (setq rtn (reverse
   
10.                 (cdr (reverse (xdex_sheet_readrange)))
    
11.               )
    
12.     )
    
13.     (xdex_book_close filename)
    
14.     (mapcar
    
15.       '(lambda (a)
    
16.          (mapcar '(lambda (b)
    
17.                     (setq b (cadr b))
    
18.                     (cond
    
19.                       ((equal (type b) 'INT) (itoa b))
    
20.                       ((equal (type b) 'REAL) (rtos b 2 2))
    
21.                       (t b)
    
22. 
    
23.                     )                        ;cond
    
24.                   )
    
25.                  a
    
26.          )
    
27.        )
    
28.       rtn
    
29.     )
    
30.   )
    

(defun T5_excelRng2Odcl (filename sheetname / rtn)<br />     (xdex_book_open filename)<br />     (xdex_book_setactivesheet sheetname)<br />     (foreach n (xdex_sheet_getmergeCell)<br />       (apply 'xdex_sheet_removemerge<br />              (list (car n) (caddr n))<br />       )<br />     )<br />     (setq rtn (reverse<br />                 (cdr (reverse (xdex_sheet_readrange)))<br />               )<br />     )<br />     (xdex_book_close filename)<br />     (mapcar<br />       '(lambda (a)<br />          (mapcar '(lambda (b)<br />                     (setq b (cadr b))<br />                     (cond<br />                       ((equal (type b) 'INT) (itoa b))<br />                       ((equal (type b) 'REAL) (rtos b 2 2))<br />                       (t b)<br /> <br />                     )                        ;cond<br />                   )<br />                  a<br />          )<br />        )<br />       rtn<br />     )<br />   )<br />

newer

下版本改进，到时测试下。