[求助]：用Lisp怎么获得Excel中的Selection

sccat

请高手多多指教.

灯火

WorkSheet中选择区域，执行下列代码。

2. 
   
3. (defun c:test (/ EXLAPP SE)
   
4.   (setq exlApp (vlax-get-object "Excel.Application"))
   
5.   (setq Sel (vlax-get-property exlApp 'Selection))
   
6.   (vlax-for Range Sel
   
7.     (princ "\n")
   
8.     (princ (vlax-get-property Range 'Address 0 0 1 0))
   
9.   )
   
10.   (princ)
    
11. )
    

<br /> (defun c:test (/ EXLAPP SE)<br />   (setq exlApp (vlax-get-object "Excel.Application"))<br />   (setq Sel (vlax-get-property exlApp 'Selection))<br />   (vlax-for Range Sel<br />     (princ "\n")<br />     (princ (vlax-get-property Range 'Address 0 0 1 0))<br />   )<br />   (princ)<br /> )<br />

黄卫文

最初由 灯火 发布
[B]WorkSheet中选择区域，执行下列代码。
[code]
(defun c:test (/ EXLAPP SE)
  (setq exlApp (vlax-get-object "Excel.Application"))
  (setq Sel (vlax-get-property exlApp 'Selection))
  (vlax-for Range S... [/B]

灯火这结果是得到所选的单元格编号，A1  B2。。。之类的跟(vlax-get-property Range 'Address 0 0 1 0)后面的参数有关系。如果你需要得到的是选择区域范围可参考下列代码
[php]
(defun c:test (/ EXLAPP SE)
  (setq exlApp (vlax-get-object "Excel.Application"))
  (setq Sel (vlax-get-property exlApp 'Selection))
  (setq Selection (vlax-get Sel 'Address))
  ;|返回的结果类型是 单个选择区域"$A$3:$D$6"
  或多个选择区域的"$A$5:$C$12,$F$8:$H$14,$C$16:$E$20"
  无就表示只有一个单元格|;
  ;|(vlax-for Range Sel
    (princ "\n")
    (princ (vlax-get-property Range 'Address 0 0 1 0))
  )|;
  (princ)
)
[/php]

yjtdkj

黄斑竹，你发给我的CADBG文件，我用它覆盖原文件后，加载没有任何提示，输入CADBG也提示找不到命令，不知道哪儿出了问题？能检查一下你的文件再发给我一次好吗？(我已经发E-MAIL给你，但一直没有回复)