[求助]：请教VL高手：用VLISP如何用行列参数读写EXCEL里的CELL?

长清

请教：用VLISP如何用行列参数读写EXCEL里的CELL?
虽然可以用  (vlax-get-property range "A3")来实现，但用CELL(3,1)的模式更适合编程，请教这里的
（3,1)如何输入：
我贴一段程序,供参考:
          (setq xls (vlax-get-or-create-object "Excel.Application"))
          (setq xlsfile (getfiled "选择地形数据文件" "" "xls" 4))
          (setq workbooks (vlax-get-property xls "workbooks"))
          setq  addxls (vlax-invoke-method workbooks "open" xlsfile))                ;打开工作簿文件
          (setq worksheets (vlax-get-property addxls "worksheets"))
          (setq worksheet (vlax-get-property worksheets "item" 1))
                                ;取表
          (setq zb1 (vlax-get-property worksheet "range" "A3"))

LUCAS

查看http://www.xdcad.net/forum/showthread.php?s=&threadid=26080

灯火

1. 
   
2. ;;写入和读出有些不同，Excel对象大多有默认的方法和属性，VBA可以直接使用默认的,
   
3. ;;Vlisp则必须明确给出方法和属性。对于返回值，VBA中可以通过定义不同类型的变量，
   
4. ;以相同的的语句返回不同类型值,Vlisp中则应该通过监视变量的类型决定读取方法。
   

复制代码

2. 
   
3. ;;示例代码：读取和写入Excel单元格内容
   
4. ;;写入方法
   
5. (setq objCells (vlax-get-property objSheet 'Cells))
   
6. (vlax-put-property objCells 'Item 1 1 "ABC") ;Range("A1")
   
7. (vlax-put-property objCells 'Item 1 2 "123") ;Range("B1")
   
8. ;;读出方法
   
9. (setq a1 (vlax-variant-value
   
10.            (vlax-get-property
    
11.              (vlax-variant-value
    
12.                (vlax-get-property objSheet 'Item 1 1)
    
13.              )
    
14.              'Value
    
15.            )
    
16.          )                                ;Range("A1")
    
17. )
    
18. (setq b1 (vlax-variant-value
    
19.            (vlax-get-property
    
20.              (vlax-variant-value
    
21.                (vlax-get-property objSheet 'Item 1 2)
    
22.              )
    
23.              'Value
    
24.            )
    
25.          )
    
26. )                                        ;Range("B1")
    
27. 
    

<br /> ;;示例代码：读取和写入Excel单元格内容<br /> ;;写入方法<br /> (setq objCells (vlax-get-property objSheet 'Cells))<br /> (vlax-put-property objCells 'Item 1 1 "ABC") ;Range("A1")<br /> (vlax-put-property objCells 'Item 1 2 "123") ;Range("B1")<br /> ;;读出方法<br /> (setq a1 (vlax-variant-value<br />            (vlax-get-property<br />              (vlax-variant-value<br />                (vlax-get-property objSheet 'Item 1 1)<br />              )<br />              'Value<br />            )<br />          )                                ;Range("A1")<br /> )<br /> (setq b1 (vlax-variant-value<br />            (vlax-get-property<br />              (vlax-variant-value<br />                (vlax-get-property objSheet 'Item 1 2)<br />              )<br />              'Value<br />            )<br />          )<br /> )                                        ;Range("B1")<br /> <br />

hnjzwql

怎么不完全