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

ljxkm

谢谢crtrccrt的热心指正啊，是的那个初始化函数使用当中确实遇到了一些问题，但一般还是可以启动了，其实对excel版本问题的根本解决之道就是忘了版本，但那又是另外的话题了，为方便大家学习优化到这个地步够了，这一贴在你的推动下，还是有一定的含金量了，说了这么半天，有心的新手应该基本可以切入excel表了，通过你的指正，对mapcar函数又有新的认识，在此表示感谢啊

crtrccrt

LSP读取XLS还有另外一种方法，不依靠EXCEL程序。

大家自行搜索吧。

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)即可运行

czb203

技术讨论很棒

vuiss

踩个脚印~~

llsheng_73

虽然绝大部分msxl函数都可能通过vlax-invoke、vlax-get、vlax-get来实现，并且要使用msxl函数确实需要初始化并连接MS-EXCEL库，看起来比较麻烦，但实际上 对于一些比较复杂东西，还是需要通过msxl更简单
实际上初始化并连接MS-EXCEL库也并不麻烦，

1. (defun ExcelTypeLib(/ obj path tlb)
   
2.   (and(setq obj(vlax-get-or-create-object"Excel.Application"))
   
3.       (setq path(vlax-get obj 'Path))
   
4.       (or(vl-some'(lambda(x)(setq tlb(findfile(strcat path x))))
   
5.              '("\\Excel8.olb""\\Excel9.olb""\\Excel10.olb""\\Excel.exe"))
   
6.          (alert "系统内未找到MS-EXCEL初始化失败!")))
   
7.   tlb)
   
8. (defun xlsinit(/ tlb)
   
9.   (and(not msxl-xl24HourClock)
   
10.       (setq tlb(ExcelTypeLib))
    
11.       (vlax-import-type-library :tlb-filename tlb :methods-prefix"msxl-":properties-prefix"msxl-":constants-prefix"msxl-"))
    
12.   )

(defun ExcelTypeLib(/ obj path tlb)<br />   (and(setq obj(vlax-get-or-create-object"Excel.Application"))<br />       (setq path(vlax-get obj 'Path))<br />       (or(vl-some'(lambda(x)(setq tlb(findfile(strcat path x))))<br />              '("\\Excel8.olb""\\Excel9.olb""\\Excel10.olb""\\Excel.exe"))<br />          (alert "系统内未找到MS-EXCEL初始化失败!")))<br />   tlb)<br /> (defun xlsinit(/ tlb)<br />   (and(not msxl-xl24HourClock)<br />       (setq tlb(ExcelTypeLib))<br />       (vlax-import-type-library :tlb-filename tlb :methods-prefix"msxl-":properties-prefix"msxl-":constants-prefix"msxl-"))<br />   )

ljxkm

llsheng_73 发表于 2019-10-11 16:45
虽然绝大部分msxl函数都可能通过vlax-invoke、vlax-get、vlax-get来实现，并且要使用msxl函数确实需要初始 ...

这个初始化函数就比较经典全面了，谢谢长老啊

渠辉

有用留下来

happy336

谢谢分享，支持

lqplvhehe321

请问，调用wps里的表格也可以直接这样用吗