XD::Excel:getSelRange 返回Excel当前选择的单元格范围

牢固

1. (defun XD::Excel:getSelRange       (/ Selection Cells columns rows row col rtn xlapp rtn areas)
   
2.   (if (not **XD::Excel**)
   
3.     (setq **XD::Excel** (vlax-get-or-create-object "Excel.Application"))
   
4.   )
   
5.   (if (setq Selection (vlax-get-property **XD::Excel** 'Selection))
   
6.     (progn
   
7.       (setq areas (vlax-get-property Selection 'areas))
   
8.       (vlax-for        cells areas
   
9.         (setq columns (vlax-get-property Cells 'columns)
   
10.               rows    (vlax-get-property Cells 'rows)
    
11.               row     (1- (vlax-get-property rows 'row))
    
12.               col     (1- (vlax-get-property columns 'column))
    
13.               lastRow (+ row (1- (vlax-get-property rows 'count)))
    
14.               lastCol (+ col (1- (vlax-get-property columns 'count)))
    
15.         )
    
16.         (setq
    
17.           rtn (cons (list (list row col) (list lastRow lastCol)) rtn)
    
18.         )
    
19.       )
    
20.       (reverse rtn)
    
21.     )
    
22.   )
    
23. )
    

(defun XD::Excel:getSelRange       (/ Selection Cells columns rows row col rtn xlapp rtn areas)<br />   (if (not **XD::Excel**)<br />     (setq **XD::Excel** (vlax-get-or-create-object "Excel.Application"))<br />   )<br />   (if (setq Selection (vlax-get-property **XD::Excel** 'Selection))<br />     (progn<br />       (setq areas (vlax-get-property Selection 'areas))<br />       (vlax-for        cells areas<br />         (setq columns (vlax-get-property Cells 'columns)<br />               rows    (vlax-get-property Cells 'rows)<br />               row     (1- (vlax-get-property rows 'row))<br />               col     (1- (vlax-get-property columns 'column))<br />               lastRow (+ row (1- (vlax-get-property rows 'count)))<br />               lastCol (+ col (1- (vlax-get-property columns 'count)))<br />         )<br />         (setq<br />           rtn (cons (list (list row col) (list lastRow lastCol)) rtn)<br />         )<br />       )<br />       (reverse rtn)<br />     )<br />   )<br /> )<br />

csharp

这个有问题，选择可以是非连续区域，用Address可以获取全部的

牢固

csharp 发表于 2014-12-29 12:58
这个有问题，选择可以是非连续区域，用Address可以获取全部的

谢谢指正,函数已修正!

csharp

牢固 发表于 2014-12-30 09:45
谢谢指正,函数已修正!

其实用vlax-get-property range 'address获取形如$A$1;$B$6;$AA$2: $BB113然后解析字串即可
°