(vlxls-get-column-value *xlapp* "C12" 2)为什么老是提示出错

jakewow

在使用工具箱的时候，运行实例(vlxls-get-column-value *xlapp* "C12" 2)老提示错误: 参数类型错误: safearrayp nil。
请问这是怎么回事。如果是将2改成1，程序就正常了。请教各位了。

newer

你用的是什么工具箱？

jakewow

KozMos VLXLS Project vlxls.lsp
源码是这样的
;|
Excel Cell and Range Progress Function
Name        (vlxls-get-row-value ExcelSessionVLA-OBJECT StartCellIDStringOrList RowCellNumber)
Usage        Get values of certain row.
Input        VLOBJ        The Excel Session vla-object
        STR/LIST        The Start Cell ID list or string
        INT        Number of cells in row to read.
RetVal        True        LIST        A list contain cells' value in row
        Fail        BOOLE        NIL
Examples:
(vlxls-get-row-value *xlapp* "C12" 2)   ("zz" "xxx")
(vlxls-get-row-value *xlapp* "C12" -20)   ("" "" "zz")
|;
(Defun vlxls-get-row-value (xl id len / vllist-explode Rtn)
  (Defun vllist-explode        (lst)
    (cond
      ((not lst) nil)
      ((atom lst) (list lst))
      ((append (vllist-explode (car lst))
               (vllist-explode (cdr lst))
       )
      )
    )
  )
  (if (> len 0)
    (setq id (vlxls-cellid-calc id (1- len) 0))
    (setq id (vlxls-cellid-calc id (1+ len) 0))
  )
  (setq Rtn (vllist-explode (vlxls-cell-get-value xl id)))
  Rtn
)

jakewow

newer 发表于 2014-8-30 19:02
你用的是什么工具箱？

vlxls.lsp文件KozMos VLXLS Projects http://www.atablex.com/这上面下载的

2. ;|
   
3. Excel Cell and Range Progress Function
   
4. Name  (vlxls-get-row-value ExcelSessionVLA-OBJECT StartCellIDStringOrList RowCellNumber)
   
5. Usage  Get values of certain row.
   
6. Input  VLOBJ  The Excel Session vla-object
   
7.   STR/LIST  The Start Cell ID list or string
   
8.   INT  Number of cells in row to read.
   
9. RetVal  True  LIST  A list contain cells' value in row
   
10.   Fail  BOOLE  NIL
    
11. Examples:
    
12. (vlxls-get-row-value *xlapp* "C12" 2)   ("zz" "xxx")
    
13. (vlxls-get-row-value *xlapp* "C12" -20)   ("" "" "zz")
    
14. |;
    
15. (Defun vlxls-get-row-value (xl id len / vllist-explode Rtn)
    
16.   (Defun vllist-explode  (lst)
    
17.     (cond
    
18.       ((not lst) nil)
    
19.       ((atom lst) (list lst))
    
20.       ((append (vllist-explode (car lst))
    
21.          (vllist-explode (cdr lst))
    
22.        )
    
23.       )
    
24.     )
    
25.   )
    
26.   (if (> len 0)
    
27.     (setq id (vlxls-cellid-calc id (1- len) 0))
    
28.     (setq id (vlxls-cellid-calc id (1+ len) 0))
    
29.   )
    
30.   (setq Rtn (vllist-explode (vlxls-cell-get-value xl id)))
    
31.   Rtn
    
32. )

;|<br /> Excel Cell and Range Progress Function<br /> Name  (vlxls-get-row-value ExcelSessionVLA-OBJECT StartCellIDStringOrList RowCellNumber)<br /> Usage  Get values of certain row.<br /> Input  VLOBJ  The Excel Session vla-object<br />   STR/LIST  The Start Cell ID list or string<br />   INT  Number of cells in row to read.<br /> RetVal  True  LIST  A list contain cells' value in row<br />   Fail  BOOLE  NIL<br /> Examples:<br /> (vlxls-get-row-value *xlapp* "C12" 2)   ("zz" "xxx")<br /> (vlxls-get-row-value *xlapp* "C12" -20)   ("" "" "zz")<br /> |;<br /> (Defun vlxls-get-row-value (xl id len / vllist-explode Rtn)<br />   (Defun vllist-explode  (lst)<br />     (cond<br />       ((not lst) nil)<br />       ((atom lst) (list lst))<br />       ((append (vllist-explode (car lst))<br />          (vllist-explode (cdr lst))<br />        )<br />       )<br />     )<br />   )<br />   (if (> len 0)<br />     (setq id (vlxls-cellid-calc id (1- len) 0))<br />     (setq id (vlxls-cellid-calc id (1+ len) 0))<br />   )<br />   (setq Rtn (vllist-explode (vlxls-cell-get-value xl id)))<br />   Rtn<br /> )