xls2lst 和 lst2xls,excel数据导入到表,表写入到excel

77077

请问我这两串代码,怎么不能运行啊,哪里出错了?
测试:
(defun c:tt ()
(setq lst1 (xls2lst))
(Princ lst1)
(lst2xls lst1)
)
错误: 参数类型错误: consp "桩号"

2. (defun lst2xls (lst / lsta lstb b i n)
   
3.   (vl-load-com)
   
4.   (initexcel);初始化
   
5.   (setq lsta '()
   
6.         lsta lst
   
7.         i 0
   
8.        )
   
9.    (repeat (length lsta);repeat1
   
10.     (setq lstb (mapcar '(lambda (x) (nth i x)) lsta));从lsta中取出第一子表
    
11.     (progn
    
12.         (setq n 0);repeat2
    
13.         (repeat (length lstb)
    
14.              (setq b (mapcar '(lambda (x) (nth n x)) lstb));从第一子表取出第一元素
    
15.             (datacell (1+ i) (1+ n)  b)
    
16.              (setq n (1+ n))
    
17.          );repeat2
    
18.     )
    
19.    (setq i (1+ i))
    
20.   );repeat1
    
21. )

(defun lst2xls (lst / lsta lstb b i n) <br />   (vl-load-com)<br />   (initexcel);初始化<br />   (setq lsta '()<br />         lsta lst<br />         i 0<br />        )<br />    (repeat (length lsta);repeat1<br />     (setq lstb (mapcar '(lambda (x) (nth i x)) lsta));从lsta中取出第一子表<br />     (progn<br />         (setq n 0);repeat2<br />         (repeat (length lstb)<br />              (setq b (mapcar '(lambda (x) (nth n x)) lstb));从第一子表取出第一元素<br />             (datacell (1+ i) (1+ n)  b)<br />              (setq n (1+ n))<br />          );repeat2<br />     )<br />    (setq i (1+ i))<br />   );repeat1<br /> )

2. (defun xls2lst ()
   
3.   (vl-load-com)
   
4.   (if (null csvpath)
   
5.      (setq csvpath "")
   
6.   )
   
7.   (setq  file (getfiled "打开数据表" csvpath "xls" 16))
   
8. (if file
   
9.     (setq csvpath (strcat (vl-filename-directory file) "\"))
   
10.   )
    
11.   (setq appsession (vlax-get-or-create-object "Excel.Application"))
    
12.   (vlxls-app-Init);初始化EXCEL
    
13.   (setq *xlapp* (vlxls-app-open file nil));打开excel
    
14.   (if *xlapp*
    
15.     (setq Range (vlxls-sheet-get-usedrange *xlapp* nil));获取指定页面的使用区域
    
16.   )
    
17.   (if Range
    
18.     (setq value  (vlax-get-property Range "Value2")
    
19.           data  (vlxls-variant->list value);转换数据类型到cad数据
    
20.           )
    
21.   )
    
22.   (vlax-release-object range)
    
23.   (vlax-release-object *xlapp*)
    
24.   (cond
    
25.     ((not (vlax-object-released-p appsession))
    
26.      (vlax-invoke-method appsession 'quit)
    
27.      (vlax-release-object appsession)
    
28.     )
    
29.   )
    
30.   data
    
31. )

(defun xls2lst ()<br />   (vl-load-com)<br />   (if (null csvpath)<br />      (setq csvpath "")<br />   )<br />   (setq  file (getfiled "打开数据表" csvpath "xls" 16))<br /> (if file<br />     (setq csvpath (strcat (vl-filename-directory file) "\"))<br />   )<br />   (setq appsession (vlax-get-or-create-object "Excel.Application"))<br />   (vlxls-app-Init);初始化EXCEL<br />   (setq *xlapp* (vlxls-app-open file nil));打开excel<br />   (if *xlapp*<br />     (setq Range (vlxls-sheet-get-usedrange *xlapp* nil));获取指定页面的使用区域<br />   )<br />   (if Range<br />     (setq value  (vlax-get-property Range "Value2")<br />           data  (vlxls-variant->list value);转换数据类型到cad数据<br />           )<br />   )<br />   (vlax-release-object range)<br />   (vlax-release-object *xlapp*)<br />   (cond<br />     ((not (vlax-object-released-p appsession))<br />      (vlax-invoke-method appsession 'quit)<br />      (vlax-release-object appsession)<br />     )<br />   )<br />   data<br /> )

emk

lst2xls lst1) --> (st2xls lst1)

77077

emk 发表于 2014-3-8 16:01
lst2xls lst1) --> (st2xls lst1)

这不是关键,这里是笔误,发上来的时候弄错了,测试的时候有的!

llsheng_73

好象差这个(initexcel)