两个简单的读取excel表格函数

ljxkm

在CAD二次开发中，常需要读取excel表格数据，根据lisp语言的特点，有时一个一个单元格读取反而方便，以下是在实际中常用的两个读取excel表格数据小程序，个人觉得还是比较实用啊：

2. ;;;;;读取excel据函数
   
3. (defun Ljx-read-excel-data (vv hor sh / hor ru) ;;;vv为列数直接输入字母、hor为行数，直接输入数字,sh为工作表对象sheet
   
4.   (setq hor (itoa hor))
   
5.   (setq ru (vlax-variant-value (msxl-get-value (msxl-get-range sh (strcat vv hor)))))
   
6.   ru
   
7. )
   
8. 
   
9. ;;;;;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
   
10. ;;;;;读取excel数据函数输出text格式
    
11. (defun Ljx-read-excel-text (vv hor sh / hor ru) ;;;vv为列数直接输入字母、hor为行数，直接输入数字,sh为工作表对象sheet
    
12.   (setq hor (itoa hor))
    
13.   (setq ru (vlax-variant-value (msxl-get-text (msxl-get-range sh (strcat vv hor)))))
    
14.   ru
    
15. )

;;;;;读取excel据函数<br /> (defun Ljx-read-excel-data (vv hor sh / hor ru) ;;;vv为列数直接输入字母、hor为行数，直接输入数字,sh为工作表对象sheet<br />   (setq hor (itoa hor))<br />   (setq ru (vlax-variant-value (msxl-get-value (msxl-get-range sh (strcat vv hor)))))<br />   ru<br /> )<br /> <br /> ;;;;;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$<br /> ;;;;;读取excel数据函数输出text格式<br /> (defun Ljx-read-excel-text (vv hor sh / hor ru) ;;;vv为列数直接输入字母、hor为行数，直接输入数字,sh为工作表对象sheet<br />   (setq hor (itoa hor))<br />   (setq ru (vlax-variant-value (msxl-get-text (msxl-get-range sh (strcat vv hor)))))<br />   ru<br /> )

crtrccrt

2. ;;;ljx-vlxls-app-Init;子程序局部优化;
   
3. 
   
4.       (cond
   
5.         ( (wcmatch excelname "*.xls");;;为2003-xls文件时;
   
6.             (cond
   
7.               ( (setq out2003 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2003))    (setq out (car out2003))    )
   
8.               ( (setq out2007 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2007))    (setq out (car out2007))    )
   
9.               ( (setq out2010 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2010))    (setq out (car out2010))    )
   
10.               ( (setq out2013 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2013))    (setq out (car out2013))    )
    
11.               ( (setq out2016 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2016))    (setq out (car out2016))    )
    
12.               ( t    (princ "\\n  计算机上未安装excel2003、excel2007、excel2010、excel2013、excel2016，不能打开xls文件!")  )
    
13.             );;;cond;
    
14.         )
    
15.         ( (wcmatch excelname "*.xlsx");;;为2007-xlsx文件时;
    
16.             (cond
    
17.               ( (setq out2007 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2007))    (setq out (car out2007))    )
    
18.               ( (setq out2010 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2010))    (setq out (car out2010))    )
    
19.               ( (setq out2013 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2013))    (setq out (car out2013))    )
    
20.               ( (setq out2016 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2016))    (setq out (car out2016))    )
    
21.               ( t    (princ "\\n  计算机上未安装excel2007、excel2010、excel2013、excel2016，不能打开xls文件!")  )
    
22.             );;;cond;
    
23.         )
    
24.         ( T  (setq out nil)  )
    
25.       );;;cond;
    
26. ;;;先加载低版本，低版本不存在再加载高版本;;

;;;ljx-vlxls-app-Init;子程序局部优化;<br /> <br />       (cond<br />         ( (wcmatch excelname "*.xls");;;为2003-xls文件时;<br />             (cond<br />               ( (setq out2003 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2003))    (setq out (car out2003))    )<br />               ( (setq out2007 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2007))    (setq out (car out2007))    )<br />               ( (setq out2010 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2010))    (setq out (car out2010))    )<br />               ( (setq out2013 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2013))    (setq out (car out2013))    )<br />               ( (setq out2016 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2016))    (setq out (car out2016))    )<br />               ( t    (princ "\\n  计算机上未安装excel2003、excel2007、excel2010、excel2013、excel2016，不能打开xls文件!")  )<br />             );;;cond;<br />         )<br />         ( (wcmatch excelname "*.xlsx");;;为2007-xlsx文件时;<br />             (cond<br />               ( (setq out2007 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2007))    (setq out (car out2007))    )<br />               ( (setq out2010 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2010))    (setq out (car out2010))    )<br />               ( (setq out2013 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2013))    (setq out (car out2013))    )<br />               ( (setq out2016 (vl-member-if (function (lambda (x) (findfile x)  )) hm-2016))    (setq out (car out2016))    )<br />               ( t    (princ "\\n  计算机上未安装excel2007、excel2010、excel2013、excel2016，不能打开xls文件!")  )<br />             );;;cond;<br />         )<br />         ( T  (setq out nil)  )<br />       );;;cond;<br /> ;;;先加载低版本，低版本不存在再加载高版本;;

ljxkm

ljx-read-excel-data、ljx-read-excel-data、Ljx-vlxls-get-range-value三个函数在收集的大量的函数的支持下运行成功，但这确实显得过于复杂繁琐，多年来自己收集了大量的函数，但换一个人来用就非常不方便，从自己使用的体会来看，越不要外挂，使用系统自带的东西就能运行，越是方便适用，来了点兴趣啊，按以上思路，不依靠那些类型库声明代码、不依靠大量mslx函数和自定义函数就能运行，现基本搞成，在自己的机子上运行良好，以下是经过修改后的函数和运行实例，excel表还是用原来的"ABC.xls"文件啊：

2. ;;;;;读取excel数据函数
   
3. (defun Ljx-read-excel-data1 (vv hor sh) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet
   
4.   (vlax-variant-value (vlax-get-property (vlax-get-property sh 'Range (strcat vv (itoa hor))) 'Value2))
   
5. )
   
6. 
   
7. ;;;;;读取excel数据函数输出text格式
   
8. (defun Ljx-read-excel-text1 (vv hor sh ) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet
   
9.   (vl-princ-to-string (vlax-variant-value (vlax-get-property (vlax-get-property sh 'Range (strcat vv (itoa hor))) 'Value2)))
   
10. )
    
11. ;;;;;;取得单元格数据，支持区域输入
    
12. (defun ljx-vlxls-get-range-value1 ( sheet rangeid / range value valuelist )
    
13.   (setq range (vlax-get-property sheet 'Range rangeid))
    
14.   (setq value (vlax-get-property range 'Value2))
    
15.   (cond
    
16.     ((= (vlax-variant-type value)  8204);;;为数组时，即为区域;
    
17.         (progn
    
18.           (setq value (vlax-safearray->list(vlax-variant-value value)))
    
19.           (setq valuelist (mapcar (function (lambda (x)  (mapcar 'vlax-variant-value x)  )) value))
    
20.         )
    
21.     )
    
22.     ( T;;;;为单个单元格;
    
23.       (setq valuelist (vlax-variant-value value))
    
24.     )
    
25.   );;;;cond
    
26.   valuelist
    
27. )
    
28. 
    
29. ;;;;运行函数
    
30. (defun test1 ()
    
31.   (vl-load-com)
    
32.   (setq exname "d:\\ABC.xls")
    
33.   (setq *excel* (vlax-create-object "excel.application"))
    
34.   (setq *xlapp* (vlax-invoke-method (vlax-get-property *excel* 'Workbooks) 'Open exname))
    
35.   (vla-put-visible *excel* 1)
    
36.   (setq *sheet* (vlax-get-property (vlax-get-property *xlapp* 'Worksheets) 'item "DEF"))
    
37.   (setq dat0 (Ljx-vlxls-get-range-value1 *sheet* "E5")
    
38.         dat1 (Ljx-vlxls-get-range-value1 *sheet* "E5:F5");;;;输出：((-25.10 "张三"))
    
39.         dat2 (Ljx-vlxls-get-range-value1 *sheet* "E5:E6");;;;输出：((-25.10)(26.85))
    
40.         dat3 (Ljx-vlxls-get-range-value1 *sheet* "E5:F6");;;;输出：((-25.10 "张三")(26.85 "李四"))
    
41.         dat4 (Ljx-read-excel-data1  "E" 5 *sheet*);;;;-->-25.10
    
42.         dat5 (Ljx-read-excel-text1  "E"  5  *sheet* );;;;-->"-25.10"
    
43.         dat6 (Ljx-read-excel-data1  "E"  6 *sheet* );;;;-->26.85
    
44.         dat7 (Ljx-read-excel-text1 "E"  6 *sheet*);;;;-->"26.85"
    
45.         dat8 (Ljx-read-excel-data1 "F"  5 *sheet*);;;;-->“张三”
    
46.         dat9 (Ljx-read-excel-text1 "F"  5 *sheet*);;;;-->“张三”
    
47.         dat10 (Ljx-read-excel-data1  "F"  6 *sheet* );;;;-->"李四"
    
48.         dat11 (Ljx-read-excel-text1  "F"  6 *sheet* );;;;-->"李四"
    
49.   )
    
50.   (vlax-invoke-method (vlax-get-property *excel* "ActiveWorkbook") 'Close 0)
    
51.   (vlax-invoke-method *excel* 'QUIT)
    
52.   (vlax-release-object *sheet*)
    
53.   (vlax-release-object *xlapp*)
    
54. )
    
55. ;;;;具体使用时先将ABC.xls（解压ABC.zip）拷贝至d盘根目录下，加载test1.lsp文件，在CAD命令行输入 (test1)即可运行

;;;;;读取excel数据函数<br /> (defun Ljx-read-excel-data1 (vv hor sh) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet<br />   (vlax-variant-value (vlax-get-property (vlax-get-property sh 'Range (strcat vv (itoa hor))) 'Value2))<br /> )<br /> <br /> ;;;;;读取excel数据函数输出text格式<br /> (defun Ljx-read-excel-text1 (vv hor sh ) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet<br />   (vl-princ-to-string (vlax-variant-value (vlax-get-property (vlax-get-property sh 'Range (strcat vv (itoa hor))) 'Value2)))<br /> )<br /> ;;;;;;取得单元格数据，支持区域输入<br /> (defun ljx-vlxls-get-range-value1 ( sheet rangeid / range value valuelist )<br />   (setq range (vlax-get-property sheet 'Range rangeid))<br />   (setq value (vlax-get-property range 'Value2))<br />   (cond<br />     ((= (vlax-variant-type value)  8204);;;为数组时，即为区域;<br />         (progn<br />           (setq value (vlax-safearray->list(vlax-variant-value value)))<br />           (setq valuelist (mapcar (function (lambda (x)  (mapcar 'vlax-variant-value x)  )) value))<br />         )<br />     )<br />     ( T;;;;为单个单元格;<br />       (setq valuelist (vlax-variant-value value))<br />     )<br />   );;;;cond<br />   valuelist<br /> )<br /> <br /> ;;;;运行函数<br /> (defun test1 ()<br />   (vl-load-com)<br />   (setq exname "d:\\ABC.xls")<br />   (setq *excel* (vlax-create-object "excel.application"))<br />   (setq *xlapp* (vlax-invoke-method (vlax-get-property *excel* 'Workbooks) 'Open exname))<br />   (vla-put-visible *excel* 1) <br />   (setq *sheet* (vlax-get-property (vlax-get-property *xlapp* 'Worksheets) 'item "DEF"))<br />   (setq dat0 (Ljx-vlxls-get-range-value1 *sheet* "E5")<br />         dat1 (Ljx-vlxls-get-range-value1 *sheet* "E5:F5");;;;输出：((-25.10 "张三"))<br />         dat2 (Ljx-vlxls-get-range-value1 *sheet* "E5:E6");;;;输出：((-25.10)(26.85))<br />         dat3 (Ljx-vlxls-get-range-value1 *sheet* "E5:F6");;;;输出：((-25.10 "张三")(26.85 "李四"))<br />         dat4 (Ljx-read-excel-data1  "E" 5 *sheet*);;;;-->-25.10<br />         dat5 (Ljx-read-excel-text1  "E"  5  *sheet* );;;;-->"-25.10"<br />         dat6 (Ljx-read-excel-data1  "E"  6 *sheet* );;;;-->26.85<br />         dat7 (Ljx-read-excel-text1 "E"  6 *sheet*);;;;-->"26.85"<br />         dat8 (Ljx-read-excel-data1 "F"  5 *sheet*);;;;-->“张三”<br />         dat9 (Ljx-read-excel-text1 "F"  5 *sheet*);;;;-->“张三”<br />         dat10 (Ljx-read-excel-data1  "F"  6 *sheet* );;;;-->"李四"<br />         dat11 (Ljx-read-excel-text1  "F"  6 *sheet* );;;;-->"李四"<br />   )<br />   (vlax-invoke-method (vlax-get-property *excel* "ActiveWorkbook") 'Close 0)<br />   (vlax-invoke-method *excel* 'QUIT)<br />   (vlax-release-object *sheet*) <br />   (vlax-release-object *xlapp*)<br /> )<br /> ;;;;具体使用时先将ABC.xls（解压ABC.zip）拷贝至d盘根目录下，加载test1.lsp文件，在CAD命令行输入 (test1)即可运行

ljxkm

再贴一个我用的函数，一般读取excel数据基本够用了啊：
取得exce表指定单元格数据：

2. ;;;;;;Ljx-vlxls-get-range-value
   
3. ;;;;;;取得单元格数据，支持区域输入
   
4. ;;;;;;参数：sheet当前工作表,rangeid:区域id，如"A1"，"A1:F10", "A1:A100","A1:EE1"
   
5. ;;;;;;示例：(Ljx-vlxls-get-range-value *sheet* "E5")输出：-25.10，
   
6. ;;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:F5"")输出：((-25.10 "张三"))
   
7. ;;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:E6"")输出：((-25.10)(26.85))
   
8. ;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:F6"")输出：((-25.10 "张三")(26.85 "李四")
   
9. (defun Ljx-vlxls-get-range-value (sheet rangeid / range value value1 valuelist index_i)
   
10.   (setq range (msxl-get-range sheet rangeid))
    
11.   (setq value (MSXL-GET-VALUE2 range ))
    
12.   (cond
    
13.     ((=(vlax-variant-type value)  8204);;;为数组时，即为区域
    
14.      (progn
    
15.        (setq value (vlax-safearray->list(vlax-variant-value value)))
    
16.        (setq valuelist '()
    
17.              index_i 0
    
18.        )
    
19.        (repeat (length value)
    
20. (setq value1 (nth index_i value))
    
21. (setq valuelist (cons (mapcar
    
22.      '(lambda (x)(vlax-variant-value x))
    
23.      value1
    
24.        )
    
25.        valuelist
    
26. )
    
27. )
    
28. (setq index_i (1+ index_i))
    
29.        );;;;repeat
    
30.        (setq valuelist (reverse valuelist))
    
31.      )
    
32.     )
    
33.     (T;;;;为单个单元格
    
34.      (setq valuelist (vlax-variant-value value))
    
35.     )
    
36.   );;;;cond
    
37.   valuelist
    
38. );;;;defun

;;;;;;Ljx-vlxls-get-range-value<br /> ;;;;;;取得单元格数据，支持区域输入<br /> ;;;;;;参数：sheet当前工作表,rangeid:区域id，如"A1"，"A1:F10", "A1:A100","A1:EE1"<br /> ;;;;;;示例：(Ljx-vlxls-get-range-value *sheet* "E5")输出：-25.10，<br /> ;;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:F5"")输出：((-25.10 "张三"))<br /> ;;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:E6"")输出：((-25.10)(26.85))<br /> ;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:F6"")输出：((-25.10 "张三")(26.85 "李四")<br /> (defun Ljx-vlxls-get-range-value (sheet rangeid / range value value1 valuelist index_i)<br />   (setq range (msxl-get-range sheet rangeid))<br />   (setq value (MSXL-GET-VALUE2 range ))<br />   (cond<br />     ((=(vlax-variant-type value)  8204);;;为数组时，即为区域<br />      (progn<br />        (setq value (vlax-safearray->list(vlax-variant-value value)))<br />        (setq valuelist '()<br />              index_i 0<br />        )<br />        (repeat (length value)<br /> (setq value1 (nth index_i value))<br /> (setq valuelist (cons (mapcar<br />      '(lambda (x)(vlax-variant-value x))<br />      value1<br />        )<br />        valuelist<br /> )<br /> )<br /> (setq index_i (1+ index_i))<br />        );;;;repeat<br />        (setq valuelist (reverse valuelist))<br />      )<br />     )<br />     (T;;;;为单个单元格<br />      (setq valuelist (vlax-variant-value value))<br />     )<br />   );;;;cond<br />   valuelist<br /> );;;;defun

注册

留个脚印，先

crtrccrt

(Ljx-vlxls-get-range-value *sheet* "E5:F5"")
*sheet*具体些,或具体实例,好让新手明白

2. (defun Ljx-read-excel-data (vv hor sh / hor ru)
   
3. (defun Ljx-read-excel-text (vv hor sh / hor ru)
   
4. ;;;sh;具体些,或具体实例,好让新手明白

(defun Ljx-read-excel-data (vv hor sh / hor ru)<br /> (defun Ljx-read-excel-text (vv hor sh / hor ru) <br /> ;;;sh;具体些,或具体实例,好让新手明白

ljxkm

crtrccrt说的很对，*SHeet*、sh均为工作表对象，就是你要读取数据的工作表，VV和hor分开主要便于循环读取，Ljx-vlxls-get-range-value函数功能强一些，当为单个单元格时如(Ljx-vlxls-get-range-value *sheet* "E5")直接读得该单元格的数据，输出：-25.10，为区域时按((第一行) (第二行)...(第n行))的格式读取输出，

2. ;;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:F5")输出：((-25.10 "张三"))，第5行：“E5”数据为-25.10、“F5”数据为“张三”
   
3. ;;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:E6")输出：((-25.10)(26.85)) ，第5行“E5”数据为-25.10、第六行“E6”数据为26.85
   
4. ;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:F6")输出：((-25.10 "张三")(26.85 "李四"))，第五行：“E5”数据为-25.10、“F5”数据为“张三”；第六行：“E6”数据为26.85、 “F6”数据为"李四"。
   
5. 简单点，几个单元格数据分别为：
   
6. "E5"=-25.10
   
7. "F5"=“张三”
   
8. "E6"=26.85
   
9. "F6"=“李四”。
   
10. (Ljx-read-excel-data  "E"  5 *sheet*)-->-25.10
    
11. (Ljx-read-excel-text  "E"  5  *sheet* )-->"-25.10"
    
12. (Ljx-read-excel-data  "E"  6 *sheet* )-->26.85
    
13. (Ljx-read-excel-text "E"  6 *sheet*)-->"26.85"
    
14. 
    
15. (Ljx-read-excel-data "F"  5 *sheet*)-->“张三”
    
16. (Ljx-read-excel-text "F"  5 *sheet*)-->“张三”
    
17. (Ljx-read-excel-data  "F"  6 *sheet* )-->"李四"
    
18. (Ljx-read-excel-text  "F"  6 *sheet* )-->"李四"
    
19. 
    
20. ;;;;两个函数再精简一下：
    
21. ;;;;;读取excel数据函数
    
22. (defun Ljx-read-excel-data (vv hor sh /  ru) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet
    
23.   (setq ru (vlax-variant-value (msxl-get-value (msxl-get-range sh (strcat vv (itoa hor))))))
    
24. )
    
25. 
    
26. ;;;;;读取excel数据函数输出text格式
    
27. (defun Ljx-read-excel-text (vv hor sh /  ru) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet
    
28.   (setq ru (vlax-variant-value (msxl-get-text (msxl-get-range sh (strcat vv (itoa hor))))))
    
29. )
    
30. 
    
31. ;;;;这样好像差不多了，这几个函数都是在初始化excel应用程序，打开excel表格，取得要读取的sheet后才能用啊，有关的步骤论坛上都有，大家可以去搜索一下
    
32. 
    
33. 
    
34. 
    

;;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:F5")输出：((-25.10 "张三"))，第5行：“E5”数据为-25.10、“F5”数据为“张三”<br /> ;;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:E6")输出：((-25.10)(26.85)) ，第5行“E5”数据为-25.10、第六行“E6”数据为26.85<br /> ;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:F6")输出：((-25.10 "张三")(26.85 "李四"))，第五行：“E5”数据为-25.10、“F5”数据为“张三”；第六行：“E6”数据为26.85、 “F6”数据为"李四"。<br /> 简单点，几个单元格数据分别为：<br /> "E5"=-25.10<br /> "F5"=“张三”<br /> "E6"=26.85<br /> "F6"=“李四”。<br /> (Ljx-read-excel-data  "E"  5 *sheet*)-->-25.10<br /> (Ljx-read-excel-text  "E"  5  *sheet* )-->"-25.10"<br /> (Ljx-read-excel-data  "E"  6 *sheet* )-->26.85<br /> (Ljx-read-excel-text "E"  6 *sheet*)-->"26.85"<br /> <br /> (Ljx-read-excel-data "F"  5 *sheet*)-->“张三”<br /> (Ljx-read-excel-text "F"  5 *sheet*)-->“张三”<br /> (Ljx-read-excel-data  "F"  6 *sheet* )-->"李四"<br /> (Ljx-read-excel-text  "F"  6 *sheet* )-->"李四"<br /> <br /> ;;;;两个函数再精简一下：<br /> ;;;;;读取excel数据函数<br /> (defun Ljx-read-excel-data (vv hor sh /  ru) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet<br />   (setq ru (vlax-variant-value (msxl-get-value (msxl-get-range sh (strcat vv (itoa hor))))))<br /> )<br /> <br /> ;;;;;读取excel数据函数输出text格式<br /> (defun Ljx-read-excel-text (vv hor sh /  ru) ;;;vv为列数直接输入字母、hor为 第几行，直接输入数字,sh为工作表对象sheet<br />   (setq ru (vlax-variant-value (msxl-get-text (msxl-get-range sh (strcat vv (itoa hor))))))<br /> )<br /> <br /> ;;;;这样好像差不多了，这几个函数都是在初始化excel应用程序，打开excel表格，取得要读取的sheet后才能用啊，有关的步骤论坛上都有，大家可以去搜索一下<br /> <br /> <br /> <br />

crtrccrt

举例:
d:/ABC.xls中有DEF工作簿
如何形成Ljx-vlxls-get-range-value子程序需要的*sheet*参数.
新手一时半会也搞不明白.
直接给新手实例,举手之劳,新手会节省很多时间.

ljxkm

crtrccrt 发表于 2019-9-9 21:04
举例:
d:/ABC.xls中有DEF工作簿
如何形成Ljx-vlxls-get-range-value子程序需要的*sheet*参数.

这有点超出贴两个函数源码的初衷了啊，真要函数动起来，还需要不少步骤，用到不少函数哈，不过既然提出来，就啰嗦一下，用到的函数都是网路搜索的集体成果啊：
定义以下函数：
(defun test ()
  (vl-load-com)
  (setq exname "d:\\ABC.xls")
  (vlxls-app-init1 exname)
  (setq *xlapp* (vlxls-app-open exname T))
  (vlxls-sheet-put-active *xlapp* "DEF");;;;设为活动工作表
  (setq *sheet* (msxl-get-ActiveSheet *Xlapp*))
  (setq dat0 (Ljx-vlxls-get-range-value *sheet* "E5")
        dat1 (Ljx-vlxls-get-range-value *sheet* "E5:F5");;;;输出：((-25.10 "张三"))
        dat2 (Ljx-vlxls-get-range-value *sheet* "E5:E6");;;;输出：((-25.10)(26.85))
        dat3 (Ljx-vlxls-get-range-value *sheet* "E5:F6");;;;输出：((-25.10 "张三")(26.85 "李四"))
        dat4 (Ljx-read-excel-data  "E" 5 *sheet*);;;;-->-25.10
        dat5 (Ljx-read-excel-text  "E"  5  *sheet* );;;;-->"-25.10"
        dat6 (Ljx-read-excel-data  "E"  6 *sheet* );;;;-->26.85
        dat7 (Ljx-read-excel-text "E"  6 *sheet*);;;;-->"26.85"
        dat8 (Ljx-read-excel-data "F"  5 *sheet*);;;;-->“张三”
        dat9 (Ljx-read-excel-text "F"  5 *sheet*);;;;-->“张三”
        dat10 (Ljx-read-excel-data  "F"  6 *sheet* );;;;-->"李四"
        dat11 (Ljx-read-excel-text  "F"  6 *sheet* );;;;-->"李四"
  )  
  (vlxls-app-quit *xlapp* nil);;;;退出excel应用程序  
  (vlax-Release-Object *sheet*)
)
;;;;具体使用时先将ABC.xls（解压ABC.zip）拷贝至d盘根目录下，加载test.lsp文件，在CAD命令行输入 (test)即可运行,好了，两个函数扯出这么多来，lisp操控excel有点复杂，是集体智慧，实际工作中，要收集前辈编的较为全面的函数拷在一个lsp文件下成为模块，这样就方便了，excel版本不断更新，以前在网络上找的vlxls-app-init函数不能用了，那个vlxls-app-init1是我自己改来用的，一并贴出了，有点啰嗦，不是很好，但确实是可用的，祝大家进步，提高

crtrccrt

;=========楼主细心，认真，值得表扬。；
;=========优化后Ljx-vlxls-get-range-value；
;;;;;;Ljx-vlxls-get-range-value
;;;;;;取得单元格数据，支持区域输入
;;;;;;参数：sheet当前工作表,rangeid:区域id，如"A1"，"A1:F10", "A1:A100","A1:EE1"
;;;;;;示例：(Ljx-vlxls-get-range-value *sheet* "E5");;;;;输出：-25.10，
;;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:F5");输出：((-25.10 "张三"))
;;;;;;      (Ljx-vlxls-get-range-value *sheet* "E5:E6");输出：((-25.10)(26.85))
;;;;;       (Ljx-vlxls-get-range-value *sheet* "E5:F6");输出：((-25.10 "张三")(26.85 "李四")
(defun ljx-vlxls-get-range-value ( sheet rangeid / range value valuelist )
  (setq range (msxl-get-range sheet rangeid))
  (setq value (MSXL-GET-VALUE2 range ))
  (cond
    ( (= (vlax-variant-type value)  8204);;;为数组时，即为区域;
        (progn
          (setq value (vlax-safearray->list(vlax-variant-value value)))
          (setq valuelist (mapcar (function (lambda (x)  (mapcar 'vlax-variant-value x)  )) value))
        )
    )
    ( T;;;;为单个单元格;
      (setq valuelist (vlax-variant-value value))
    )
  );;;;cond
  valuelist
)

ljxkm

crtrccrt 发表于 2019-9-11 11:31
;=========楼主细心，认真，值得表扬。；
;=========优化后Ljx-vlxls-get-range-value；
;;;;;;Ljx-vlxls ...

这样确实简洁，mapcar这个函数确实好，