请教用lisp取得excel range对象的方法

zjupxw

比如说，我想取得激活工作表总 第2行至第n行，第2列至第m列的range对象，lisp语言该怎样写，谢谢各位的解答！

nzl1116

1. (vlax-get-property SheetObject 'Range str)

(vlax-get-property SheetObject 'Range str)

str----比如 "B2:E7"

zjupxw

因为我的行数 列数 是变化的 所以我就想怎么根据  第2行至第n行，第2列至第m列 写出 "B2:E7" 这样形式的字符串，或者有什么办法全用数字 取得所要的range对象的吗？

nzl1116

zjupxw 发表于 2013-9-9 22:56
因为我的行数 列数 是变化的 所以我就想怎么根据  第2行至第n行，第2列至第m列 写出 "B2:E7" 这样形式的字符 ...

2. (defun AYL-itoa        (a)
   
3.   (cond
   
4.     ((not (= (type a) 'INT)) nil)
   
5.     ((< a 0) "")
   
6.     ((>= a 0)
   
7.      (strcat (AYL-itoa (1- (/ a 26)))
   
8.              (chr (+ 65 (rem a 26)))
   
9.      )
   
10.     )
    
11.   )
    
12. )

(defun AYL-itoa        (a)<br />   (cond<br />     ((not (= (type a) 'INT)) nil)<br />     ((< a 0) "")<br />     ((>= a 0)<br />      (strcat (AYL-itoa (1- (/ a 26)))<br />              (chr (+ 65 (rem a 26)))<br />      )<br />     )<br />   )<br /> )

zjupxw

非常谢谢 nzl1116 ！
问题已经解决！