cad2008怎么读取xls数据

h2295

下列代码用于读取xls数据，在2022版本的cad中可以正常使用，但是在2008版本的cad报错，调试发现count（行数）获取不到，其类型为string且为空，请问怎么修改？

2. (defun c:im (/ excelApp workbook sheet row count text x y)  
   
3.   (vl-load-com)
   
4. 
   
5.   ;; 选择并打开 Excel 文件  
   
6.   (setq filePath (getfiled "选择 Excel 文件" "" "xls" 0))  
   
7.   (setq excel (vlax-get-or-create-object "Excel.application"));获取EXCEL应用对象
   
8.   (setq workbooks (vlax-get-property excel 'Workbooks));获取工作簿集合  
   
9.   (setq workbook (vlax-invoke-method workbooks 'open filePath));打开指定工作簿
   
10.   (setq worksheets (vlax-get-property workbook 'worksheets));获得工作簿中工作表的集合
    
11.   (setq sheet (vlax-get-property worksheets 'item 1));获取第一个工作表
    
12. 
    
13.   ;; 获取行数  
    
14.   (setq count (vlax-get sheet 'UsedRange))  
    
15.   (setq count (vlax-get count 'Rows))  
    
16.   (setq count (vlax-get count 'Count))  
    
17.   (setq cells (vlax-get-property sheet 'cells));获取工作表中单元格的集合
    
18.   ;; 循环读取每一行  
    
19.   (setq row 2)  
    
20.   (while (<= row count)  
    
21.     ;; 获取标注文字  
    
22.    
    
23.     (setq text1 (vlax-get (vlax-variant-value (vlax-get-property cells 'item row 1)) 'Value));获取指定单元格的值

(defun c:im (/ excelApp workbook sheet row count text x y)  <br />   (vl-load-com) <br /> <br />   ;; 选择并打开 Excel 文件  <br />   (setq filePath (getfiled "选择 Excel 文件" "" "xls" 0))  <br />   (setq excel (vlax-get-or-create-object "Excel.application"));获取EXCEL应用对象<br />   (setq workbooks (vlax-get-property excel 'Workbooks));获取工作簿集合  <br />   (setq workbook (vlax-invoke-method workbooks 'open filePath));打开指定工作簿<br />   (setq worksheets (vlax-get-property workbook 'worksheets));获得工作簿中工作表的集合<br />   (setq sheet (vlax-get-property worksheets 'item 1));获取第一个工作表<br /> <br />   ;; 获取行数  <br />   (setq count (vlax-get sheet 'UsedRange))  <br />   (setq count (vlax-get count 'Rows))  <br />   (setq count (vlax-get count 'Count))  <br />   (setq cells (vlax-get-property sheet 'cells));获取工作表中单元格的集合<br />   ;; 循环读取每一行  <br />   (setq row 2)  <br />   (while (<= row count)  <br />     ;; 获取标注文字  <br />     <br />     (setq text1 (vlax-get (vlax-variant-value (vlax-get-property cells 'item row 1)) 'Value));获取指定单元格的值

yshf

(setq count (vlax-get sheet 'UsedRange))  
(setq count (vlax-getcount 'Rows))  
(setq count (vlax-get count 'Count))  
这三行改如下试试
(setq UsedRange (vlax-get sheet 'UsedRange))  
(setq Rows (vlax-get UsedRange 'Rows))  
(setq count (vlax-get Rows 'Count))  

h2295

yshf 发表于 2024-11-3 22:04
(setq count (vlax-get sheet 'UsedRange))  
(setq count (vlax-getcount 'Rows))  
(setq count (vlax- ...

不行：
错误: 参数类型错误: stringp STR

kozmosovia

打开的是同一个XLS吗？如果工作表为空，代码是不工作的

h2295

kozmosovia 发表于 2024-11-4 09:06
打开的是同一个XLS吗？如果工作表为空，代码是不工作的

是同一个工作表，在2022可以，2008提示(while (<= row count) 比较类型错误，然后调试发现count为空，类型为string

llsheng_73

根据你的问题描述，感觉2022和2008是在不同的两台电脑上，问题的原因不是2008，而是电脑上的软件，多半2022上就只有MS-OFFICE,2008那台电脑上同时有MS-OFFICE和wps...

h2295

llsheng_73 发表于 2024-11-4 10:04
根据你的问题描述，感觉2022和2008是在不同的两台电脑上，问题的原因不是2008，而是电脑上的软件，多半2022 ...

在同一台电脑，同时装有2008，2022，wps，office

kozmosovia

在2008上用vlide设置断点调试一下吧。单纯代码本身看不出啥毛病

llsheng_73

h2295 发表于 2024-11-5 21:39
在同一台电脑，同时装有2008，2022，wps，office

高版本没试过，但低版本上，WPS和OFFICE同时存在的情况下，(setq excel (vlax-get-or-create-object "Excel.application"))它一般启动WPS

kozmosovia

WPS这么流氓的？直接穿别人的马甲，鸠占鹊巢。