快速读取XLS数据

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

Free-Lancer 发表于 2014-12-17 21:06
这个不难吧，论坛好像有过

应该难哟.要判断excel是否打开，又要判断写到什么地方了

Free-Lancer · 发表于 2014-12-17 23:30:26

/db_自贡黄明儒_ 发表于 2014-12-17 21:59
应该难哟.要判断excel是否打开，又要判断写到什么地方了

很简单的示意

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

zhangq_cai1 · 发表于 2014-12-18 08:10:26

学习一下~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

HLCAD · 发表于 2014-12-18 08:47:46

非常感谢楼主，敬佩楼主！

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

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

wzg356 · 发表于 2014-12-18 10:42:32

第一眼就看你

grs432 · 发表于 2014-12-18 15:10:08

谢谢分享了呀！！

grs432 · 发表于 2014-12-18 15:14:38

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

这个程序的逆向也会挺有意思，改表中的数更新CAD中的线，如果它们之间有公式关系的话，就更有意思了。{:soso_e113:}

lucas3 · 发表于 2014-12-18 19:51:35

虽然不懂，但必须说声谢谢！

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

狼狼的看一下

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

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

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

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

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

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

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

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

st788796 · 发表于 2014-12-19 13:34:33

/db_自贡黄明儒_ 发表于 2014-12-19 13:26
还是六肪神剑，关键可能是title不是"线长统计"

title应该是为了不乱写做的标记

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

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

点评

点评

评分

点评