请问通过变量查找符合条件的单元格数据的方法

yxh1202

版主你好，你很忙的情况下，半夜给你求助：
我在网上看到别人的帖子，结合自己实际，想通过条件筛选求的符合条件单元格的数据，但是出现问题，请您指点：

;;通过变量查找符合条件的单元格数据
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
)