快速读取XLS数据

Free-Lancer · 发表于 2014-12-17 20:03:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

没有那么多格式
参数：fn --- xls 文件名，带路径
name -- sheet 名字

游客，如果您要查看本帖隐藏内容请回复

_$ (_excel:readrange "d:\\test\\检查点.xls" "sheet1")
(("HGO与HDS2003检查点坐标值比较表" nil nil nil nil nil nil nil nil nil nil nil nil) ("平差软件" "检查点" nil nil nil "己知点" nil nil "较差" nil nil nil "说明") (nil "点号" "X坐标" "Y坐标" "H高程" "X坐标" "Y坐标" "H高程" "△X" "△Y" "△H" "M" nil) ("HDS2003" "E040" 2.60443e+006 491561.0 96.6485 2.60443e+006 491561.0 96.661 -0.0063 -0.0027 -0.0125 0.0068542 nil) ("HDS2003" "E022" 2.60807e+006 494016.0 34.6769 2.60807e+006 494016.0 34.654 0.0054 0.0003 0.0229 0.00540833 nil) (nil nil nil nil nil nil nil nil nil nil nil nil nil) ("HGO" "E051" 2.60382e+006 488958.0 22.898 2.60382e+006 488958.0 22.898 -0.2266 0.038 0.0 0.229764 "此点的拟合高程是否有错？") ("HDS2003" "E051" 2.60382e+006 488958.0 22.8633 2.60382e+006 488958.0 22.898 0.0094 0.0096 -0.0347 0.0134358 nil))

/db_自贡黄明儒_ · 发表于 2014-12-19 13:26:14

st788796 发表于 2014-12-19 13:05
去掉: S不行？
用批量写出

还是六肪神剑，关键可能是title不是"线长统计"

st788796 · 发表于 2014-12-19 13:05:40

/db_自贡黄明儒_ 发表于 2014-12-19 13:01
我的是win7 office2010.
我只想加一句，选择过的对象不再选择，结果成六肪神剑了

去掉: S不行？
用批量写出

/db_自贡黄明儒_ · 发表于 2014-12-19 13:01:27

Free-Lancer 发表于 2014-12-17 23:30
很简单的示意
**** 本内容被作者隐藏 ****

我的是win7 office2010.
我只想加一句，选择过的对象不再选择，结果成六肪神剑了

(defun C:GetL (/ *EXCEL* CELLS E LEN N ROW SHT SS WK WKS)
(setq *excel* (vlax-get-or-create-object "Excel.Application"))
(cond ((not *excel*) (princ "\n未安装Excel!") (exit)))
(setq wks (vlax-get *excel* 'workbooks))
(vlax-for obj wks
(cond ((= (vlax-get obj 'Title) "线长统计") (setq wk obj)))
)
(cond ((not wk) (setq wk (vlax-invoke wks 'add)) (vlax-put wk 'Title "线长统计")))
(setq sht (vlax-get wk 'activesheet)
cells (vlax-get sht 'cells)
row (vlax-get (vlax-get (vlax-get wk 'activesheet) 'usedrange)
'row
)
)
(while (setq ss (ssget ":S" '((0 . "*line"))))
(repeat (setq n (sslength ss))
(setq e (ssname ss (setq n (1- n))))
(cond
((not (member e *LstGetL*))
(setq *LstGetL* (cons e *LstGetL*))
(setq len (vlax-curve-getdistatparam e (vlax-curve-getendparam e)))
(vlax-put (vlax-get-property
cells
'range
(strcat "A" (itoa (setq row (1+ row))))
)
'value
(vl-princ-to-string len)
)
)
)
)
)
(vla-put-visible *excel* :vlax-true)
;;(vla-put-visible *excel* 1)
(princ "\n 统计线长命令 GetL")
(princ)
)

(defun C:GetL (/ *EXCEL* CELLS E LEN N ROW SHT SS WK WKS) 
  (setq *excel* (vlax-get-or-create-object "Excel.Application")) 
  (cond ((not *excel*) (princ "\n未安装Excel!") (exit))) 
  (setq wks (vlax-get *excel* 'workbooks)) 
  (vlax-for obj        wks 
    (cond ((= (vlax-get obj 'Title) "线长统计") (setq wk obj))) 
  ) 
  (cond ((not wk) (setq wk (vlax-invoke wks 'add)) (vlax-put wk 'Title "线长统计"))) 
  (setq        sht   (vlax-get wk 'activesheet) 
        cells (vlax-get sht 'cells) 
        row   (vlax-get        (vlax-get (vlax-get wk 'activesheet) 'usedrange) 
                        'row 
              ) 
  ) 
  (while (setq ss (ssget ":S" '((0 . "*line")))) 
    (repeat (setq n (sslength ss)) 
      (setq e (ssname ss (setq n (1- n)))) 
      (cond 
        ((not (member e *LstGetL*)) 
         (setq *LstGetL* (cons e *LstGetL*)) 
         (setq len (vlax-curve-getdistatparam e (vlax-curve-getendparam e))) 
         (vlax-put (vlax-get-property 
                     cells 
                     'range 
                     (strcat "A" (itoa (setq row (1+ row)))) 
                   ) 
                   'value 
                   (vl-princ-to-string len) 
         )          
        ) 
      ) 
    ) 
  ) 
  (vla-put-visible *excel* :vlax-true) 
  ;;(vla-put-visible *excel* 1) 
  (princ "\n 统计线长命令 GetL") 
  (princ) 
)

/db_自贡黄明儒_ · 发表于 2014-12-18 21:18:46

grs432 发表于 2014-12-18 15:14
这个程序的逆向也会挺有意思，改表中的数更新CAD中的线，如果它们之间有公式关系的话，就更有意思了。{:s ...

学习一下你是怎么逆向思维的

soly2006 · 发表于 2014-12-18 21:15:22

狼狼的看一下

st788796 · 发表于 2014-12-18 09:54:54

楼主是不是再来个快速写入

/db_自贡黄明儒_ · 发表于 2014-12-17 20:19:08

假如文件已经打开了呢，还能运行吗？

maiqi816 · 发表于 2014-12-17 20:06:15

看看到底怎么样

Free-Lancer · 发表于 2014-12-17 20:07:29

maiqi816 发表于 2014-12-17 20:06
看看到底怎么样

效果如何？

/db_自贡黄明儒_ · 发表于 2014-12-17 20:14:11

楼主这次干得不错，举了个应用实例，应该好理解了，赞！

杜流浪人 · 发表于 2014-12-17 20:26:50

{:soso_e179:}每日一码

Free-Lancer · 发表于 2014-12-17 20:29:59

/db_自贡黄明儒_ 发表于 2014-12-17 20:14
楼主这次干得不错，举了个应用实例，应该好理解了，赞！

已打开的就更简单了，这段代码应该是Autocad与xls连接最简方法，也可能是com方法中效率最高的，无须去遍历

q3_2006 · 发表于 2014-12-17 20:31:44

学习学习...

q3_2006 · 发表于 2014-12-17 20:35:20

大师就是不一样...比我的快多了...

819534890 · 发表于 2014-12-17 20:35:27

看看，马上实验一下

liuyj · 发表于 2014-12-17 20:54:35

应该叫readsheet，range是指定单元格范围的

Free-Lancer · 发表于 2014-12-17 20:57:03

liuyj 发表于 2014-12-17 20:54
应该叫readsheet，range是指定单元格范围的

剩下的就是你自己发挥了{:soso_e100:}

/db_自贡黄明儒_ · 发表于 2014-12-17 21:00:33

Free-Lancer 发表于 2014-12-17 20:29
已打开的就更简单了，这段代码应该是Autocad与xls连接最简方法，也可能是com方法中效率最高的，无须去遍 ...

大师能不能发这样一个程序:将线长输入到exce|，中途可能做别的事中断，等会儿继续点取线往里面加入。

Free-Lancer · 发表于 2014-12-17 21:06:44

/db_自贡黄明儒_ 发表于 2014-12-17 21:00
大师能不能发这样一个程序:将线长输入到exce|，中途可能做别的事中断，等会儿继续点取线往里面加入。

这个不难吧，论坛好像有过

namezg · 发表于 2014-12-17 21:07:31

看看有什么不一样

账号		自动登录	找回密码
密码			立即注册

[每日一码] 快速读取XLS数据

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

本帖被以下淘专辑推荐:

点评

点评

点评

点评

点评

点评

点评