明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4146|回复: 7

[讨论] 关于单元格地址为变量时读取excel数据

[复制链接]
发表于 2013-12-26 10:20:10 | 显示全部楼层 |阅读模式
本帖最后由 yxh1202 于 2014-11-18 15:18 编辑

看了好多的文章,都是指定单元格地址读取excel工作表中的数据,其实我遇到的问题是,需要判断工作表中符合条件的单元格,然后找到相应的有用的数据,自己编了一个,但返回结果为0。

excel表格中数据格式为:

桩号          X坐标     Y坐标   。。。。
0               1456      1234
150            4587      1000
300            3522       1526

想通过内插求125桩号处的  X坐标     Y坐标,求高人指点。

;; Example demonstrating how to read the plain text content of all cells within
;; the UsedRange of the active worksheet of a supplied Excel file.
;; - Lee Mac  -  2013-10-29
(vl-load-com)
(defun c:rexl
              (/ xls xlapp xlcls xlcol xlrng xlrow xlsht xlwbk xlwbs)
  (if
    (and
      (setq xlapp (vlax-get-or-create-object "excel.application"))
      (setq xls (getfiled "打开纵断面文件" "" "xls" 8))

    )
     (progn
       (setq xlwbs (vlax-get-property xlapp 'workbooks)
             xlwbk (vlax-invoke-method xlwbs 'open xls)
             xlsht (vlax-get-property xlapp 'activesheet)
             xlrng (vlax-get-property xlsht 'usedrange)
             xlcls (vlax-get-property xlrng 'cells)
             xlrow (vlax-get-property xlrng 'rows)
             xlcol (vlax-get-property xlrng 'columns)
       )
       (repeat (setq row (vlax-get-property xlrow 'count))
         (setq dyvlue (vlax-variant-value
                        (vlax-get-property
                          (vlax-variant-value
                            (vlax-get-property xlcls 'item row 2)
                          )
                          'value
                        )
                      )
         )
         (if (<= dyvalue 125)
           row
         )                                ;end  if
         (setq row (1- row))
       )                                ;end  repeat
       (if (= 'vla-object (type xlwbk))
         (vl-catch-all-apply
           'vlax-invoke-method
           (list xlwbk 'close :vlax-false)
         )
       )
       (vl-catch-all-apply 'vlax-invoke-method (list xlapp 'quit))
       (foreach        obj
                (list xlcol xlrow xlcls xlrng xlsht xlwbk xlwbs xlapp)
         (if (= 'vla-object (type obj))
           (vlax-release-object obj)
         )
       )
       (gc)
       (if (vl-catch-all-error-p row)
         (prompt
           (strcat "\nError: " (vl-catch-all-error-message row))
         )
         row
       )
     )                                        ;prong结束
     (prompt "\nUnable to interface with Excel Application.")
  )
)
(vl-load-com)
(princ)

本帖被以下淘专辑推荐:

  • · excel|主题: 80, 订阅: 2
 楼主| 发表于 2014-2-25 16:20:29 | 显示全部楼层
本帖最后由 yxh1202 于 2014-2-25 16:22 编辑

搞了好久才弄好,但是在家里的电脑上能用,换一台机子不行,提示
命 令: ty
【错误】参数类型错误: VLA-OBJECT nil!,都是CAD2010和excel2010,求高人指点:
(defun c:ty
            (/ excelapp0 activeworkbook0 activesheet0 cells0)
  (vl-load-com)
  ;;简单示例lisp读取excel里的数据(没有判断容错功能)by snddd2000 2011-11-17
  (setq xfile (getfiled "打开纵断面文件" "" "xls" 8))
  (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        aLastcell (vlax-get-property
                    cells0
                    'item
                    (vlax-get-property
                      (vlax-get-property
                        (vlax-get-property cells0 'cells)
                        'rows
                      )
                      'count
                    )
                    1
                  )
  )

  (setq        endxluprow0 ;_A列有数据的最后一行的行号
         (vlax-get-property
           (vlax-get-property
             (vlax-variant-value aLastcell)
             'end
             -4162
           )
           'row
         )
  )
  (setq k 3
        lc (getreal "\n请输入查询的桩号"))
  
  (repeat endxluprow0
    (setq vv
           (vlxls-get-cellvalue cells0 k 2)
    )
    (if        (> lc vv)
      (setq k (1+ k))
      (setq q k)
    )
  )
  (setq dd (vlxls-cell-leicha lc q))
  (princ dd)
  (mapcar 'vlax-release-object
          (list cells0 activesheet0 activeworkbook0 excelapp0)
  )
  (gc)
  (princ)
)

;;网上找的,返回一个单元格range地址
(defun vlxls-get-cell (obj row col / item cells)
  (setq        item (vlax-get-property
               (setq cells (vlax-get-property obj "Cells"))
               "Item"
               (vlax-make-variant row)
               (vlax-make-variant col)
             )
  )
  (vlax-release-object cells)
  (vlax-variant-value item)
)
;;=====返回单元格的值------
(defun vlxls-get-cellvalue (obj row col / item cells cellvalue)
  (setq        item (vlax-get-property
               (setq cells (vlax-get-property obj "Cells"))
               "Item"
               (vlax-make-variant row)
               (vlax-make-variant col)
             )
  )
  (vlax-release-object cells)
  (vlax-variant-value item)
  (setq        cellvalue
         (vlax-variant-value
           (vlax-get-property
             (vlxls-get-cell obj row col)
             'value
             ;;或者'value
           )
         )
         ;;单元格里面的值

  )
)

;;===内插求值函数=======
(defun vlxls-cell-leicha (lc row@ / a1 a2 lc2)
  (if (= lc (vlxls-get-cellvalue cells0 row@ 2))
    (setq a (vlxls-get-cellvalue cells0 row@ 4))
    (setq a1  (vlxls-get-cellvalue cells0 row@ 4)
          a2  (vlxls-get-cellvalue cells0 (- row@ 1) 4)
          lc1 (vlxls-get-cellvalue cells0 row@ 2)
          lc2 (vlxls-get-cellvalue cells0 (- row@ 1) 2)
          a   (+ (* (/ (- a1 a2) (- lc1 lc2)) (- lc lc2)) a2)
    )
  )
)


 楼主| 发表于 2014-6-30 18:00:26 | 显示全部楼层
怎么都没人解答下呢,高手都去抄笔记去了吗
发表于 2014-11-13 15:26:57 来自手机 | 显示全部楼层
我也在找这方面的知识,请问你解决没有?
 楼主| 发表于 2014-11-13 17:05:10 | 显示全部楼层
xiabin68 发表于 2014-11-13 15:26
我也在找这方面的知识,请问你解决没有?

弄好啦,请问你是做什么的
发表于 2014-11-13 20:21:44 | 显示全部楼层
”excel表格中数据格式为:
桩号          X坐标     Y坐标   。。。。
0               1456      1234
150            4587      1000
300            3522       1526
想通过内插求125桩号处的  X坐标     Y坐标“

内插的含义不详;桩号是否连续?最好给出excel文件。
发表于 2014-11-16 21:22:47 | 显示全部楼层
学习中,,,,努力,,,
发表于 2014-12-1 21:14:17 | 显示全部楼层
yxh1202 发表于 2014-11-13 17:05
弄好啦,请问你是做什么的

搞测量的,,,,,,,,,,
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-22 15:42 , Processed in 0.163916 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表