请问通过变量查找符合条件的单元格数据的方法
本帖最后由 Gu_xl 于 2014-8-7 18:47 编辑版主你好，你很忙的情况下，半夜给你求助：
我在网上看到别人的帖子，结合自己实际，想通过条件筛选求的符合条件单元格的数据，但是出现问题，请您指点：
;;通过变量查找符合条件的单元格数据
defun c:ty ()
(vl-load-com)
;;简单示例lisp读取excel里的数据（没有判断容错功能）by snddd2000 2011-11-17
(setq excelapp0 (vlax-get-object "Excel.Application"))
;;excel程序对象，没开excel下边的都是白搭
(setq activeworkbook0 (vlax-get-property excelapp0 'ActiveWorkbook))
;;excel工作簿对象
(setq activesheet0 (vlax-get-property activeworkbook0 'ActiveSheet))
;;excel工作表对象
(setq cells0 (vlax-get-property activesheet0 'cells))
;;excel单元格对象
(setq k 1)
(while (< 50 k)
(if (<= 300 (get-cell (vlax-variant-value k) 2))
(setq k (+ k 1))
)
)
(get-cell (vlax-variant-value k) 2)
)
(defun get-cell (row col)
(setq dy (vlax-get-property cells0 'item row col))
;;单元格对象
(setq
a1-value (vlax-variant-value
(vlax-get-property (vlax-variant-value dy) 'value)
;;或者'value
)
)
;;单元格里面的值里的值
a1-value
)
页:
[1]