怎么得到框选中的EXCEL中的区域的单位名字

aicr317

同样想知道答案，帮你顶一个！

tengte

我的这个函数稍微改一下，也许就能满足你的要求：

(defun TBxl:GetSelection (app / Col tmp range r rn c cn)
  (defun Col (x / n y z ch)
    (setq n  26
   x  (1- x)
   y  (fix (/ x n))
   z  (- x (* y n))
   ch (chr (+ 65 z))
    )
    (if (< 0 y)
      (strcat (Col y) ch)
      ch
    )
  )

  (setq range (msxl-get-selection app)
 tmp   (msxl-get-rows range)
 r     (msxl-get-row tmp)
 rn    (msxl-get-count tmp)
 tmp   (msxl-get-columns range)
 c     (msxl-get-column tmp)
 cn    (msxl-get-count tmp)
 tmp   (strcat (Col c)
        (itoa r)
        ":"
        (Col (+ c cn -1))
        (itoa (+ r rn -1))
       )
 range   (msxl-get-range app tmp)
  )
  (msxl-select range)
  (list range r c rn cn)
)

aicr317

好像不行，如何用啊！

nonsmall

列首(Vlax-Get (Vlax-Get (Vlax-Get-Or-Create-Object "excel.application" ) 'Selection) 'Column )

列数(Vlax-Get (Vlax-Get (Vlax-Get (Vlax-Get-Or-Create-Object "excel.application" ) 'Selection) 'Columns) 'Count )

行首(Vlax-Get (Vlax-Get (Vlax-Get-Or-Create-Object "excel.application" ) 'Selection) 'Row )

行数(Vlax-Get (Vlax-Get (Vlax-Get (Vlax-Get-Or-Create-Object "excel.application" ) 'Selection) 'Rows) 'Count )

tengte

哎，还是帮你改好吧！

(defun GetRange (range / Col tmp r rn c cn)
  (defun Col (x / n y z ch)
    (setq n  26
   x  (1- x)
   y  (fix (/ x n))
   z  (- x (* y n))
   ch (chr (+ 65 z))
    )
    (if (< 0 y)
      (strcat (Col y) ch)
      ch
    )
  )

  (setq tmp   (msxl-get-rows range)
 r     (msxl-get-row tmp)
 rn    (msxl-get-count tmp)
 tmp   (msxl-get-columns range)
 c     (msxl-get-column tmp)
 cn    (msxl-get-count tmp)
 tmp   (strcat (Col c)
        (itoa r)
        ":"
        (Col (+ c cn -1))
        (itoa (+ r rn -1))
       )
  )
  tmp
)

 

Command: (getrange (Vlax-Get (Vlax-Get-Or-Create-Object "excel.application" ) 'Selection))
返回结果："C8:D11"

当然，在调用此函数前，要先加载EXCEL类型库。

aicr317

tengte发表于2010-8-1 16:27:00哎，还是帮你改好吧！ (defun GetRange (range / Col tmp r rn c cn)  (defun Col (x / n y z ch)    (setq n  26   x  (1- x)   y 

aicr317

no function definition: MSXL-GET-ROWS

tengte

我写得很清楚，要先加载EXCEL类型库。你没有写过类似的程序吧！先到网上查一查这方面的资料吧！

nonsmall

574531868发表于2010-7-30 10:22:00比如框选中的范围是C5:H15,我想用程序知道是\"C5:H15\"这个字符串

楼主liminnet ，人家回答你要记得要感谢

又用马甲来提问。