[已解决]关于excel获取指定页面的使用区域问题

yhly555

使用以下excel操作函数（源码来自明经CAD社区）可以获取到页面的区域，但出来的结果是#<VLA-OBJECT Range 064c6154>类似的值，
请问如何转换成像“A1:AW35”这样的值？

谢谢！

2. ;|
   
3. Examples:
   
4. (vlxls-sheet-get-usedrange *xlapp* "Sheet1")  ==>  "A1:AW35"
   
5. (vlxls-sheet-get-usedrange *xlapp* "NewSheet")  ==>  "A1:AW35"
   
6. |;
   
7. ;0·获取指定页面的使用区域
   
8. (defun vlxls-sheet-get-UsedRange (xlapp Name / sh Rtn)
   
9.    (if (null Name)
   
10.       (setq Name (vlax-get-property (msxl-get-ActiveSheet Xlapp) 'Name))
    
11.    )
    
12.    (vlax-for sh (vlax-get-property Xlapp "sheets" )
    
13.       (if (= (vlax-get-property sh "Name" ) Name)
    
14.          (setq Rtn (vlax-get-property sh "UsedRange" ))
    
15.       )
    
16.    )
    
17.    Rtn
    
18. )
    
19. 
    
20. ;返回的值：#<VLA-OBJECT Range 064c6154>

;|<br /> Examples:<br /> (vlxls-sheet-get-usedrange *xlapp* "Sheet1")  ==>  "A1:AW35"<br /> (vlxls-sheet-get-usedrange *xlapp* "NewSheet")  ==>  "A1:AW35"<br /> |;<br /> ;0·获取指定页面的使用区域<br /> (defun vlxls-sheet-get-UsedRange (xlapp Name / sh Rtn)<br />    (if (null Name)<br />       (setq Name (vlax-get-property (msxl-get-ActiveSheet Xlapp) 'Name))<br />    )<br />    (vlax-for sh (vlax-get-property Xlapp "sheets" )<br />       (if (= (vlax-get-property sh "Name" ) Name)<br />          (setq Rtn (vlax-get-property sh "UsedRange" ))<br />       )<br />    )<br />    Rtn<br /> )<br /> <br /> ;返回的值：#<VLA-OBJECT Range 064c6154>

Gu_xl

由range得到cells，遍历cells得到所有cell的row和Column属性值即可！

yhly555

Gu_xl 发表于 2016-9-30 22:30
由range得到cells，遍历cells得到所有cell的row和Column属性值即可！

谢谢超级版主！

xyz002

貌似有点复杂，能给出具体代码么，谢谢啊