设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 10312|回复: 163

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

  [复制链接]
发表于 2014-12-17 20:03:14 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
没有那么多格式
参数: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))



评分

参与人数 2D豆 +10 收起 理由
yularna + 5 很给力!经验;技术要点;资料分享奖!
lucas3 + 5 大师越来越出神入化了!!!

查看全部评分

本帖被以下淘专辑推荐:

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-12-19 13:26:14 | 显示全部楼层
st788796 发表于 2014-12-19 13:05
去掉: S不行?
用批量写出

还是六肪神剑,关键可能是title不是"线长统计"
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

已领礼包: 1266个

财富等级: 财源广进

发表于 2014-12-19 13:05:40 来自手机 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2014-12-19 13:01
我的是win7 office2010.
我只想加一句,选择过的对象不再选择,结果成六肪神剑了

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

点评

还是六肪神剑,关键可能是title不是"线长统计"  详情 回复 发表于 2014-12-19 13:26
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-12-19 13:01:27 | 显示全部楼层
Free-Lancer 发表于 2014-12-17 23:30
很简单的示意
**** 本内容被作者隐藏 ****

我的是win7 office2010.
我只想加一句,选择过的对象不再选择,结果成六肪神剑了
  1. (defun C:GetL (/ *EXCEL* CELLS E LEN N ROW SHT SS WK WKS)
  2.   (setq *excel* (vlax-get-or-create-object "Excel.Application"))
  3.   (cond ((not *excel*) (princ "\n未安装Excel!") (exit)))
  4.   (setq wks (vlax-get *excel* 'workbooks))
  5.   (vlax-for obj        wks
  6.     (cond ((= (vlax-get obj 'Title) "线长统计") (setq wk obj)))
  7.   )
  8.   (cond ((not wk) (setq wk (vlax-invoke wks 'add)) (vlax-put wk 'Title "线长统计")))
  9.   (setq        sht   (vlax-get wk 'activesheet)
  10.         cells (vlax-get sht 'cells)
  11.         row   (vlax-get        (vlax-get (vlax-get wk 'activesheet) 'usedrange)
  12.                         'row
  13.               )
  14.   )
  15.   (while (setq ss (ssget ":S" '((0 . "*line"))))
  16.     (repeat (setq n (sslength ss))
  17.       (setq e (ssname ss (setq n (1- n))))
  18.       (cond
  19.         ((not (member e *LstGetL*))
  20.          (setq *LstGetL* (cons e *LstGetL*))
  21.          (setq len (vlax-curve-getdistatparam e (vlax-curve-getendparam e)))
  22.          (vlax-put (vlax-get-property
  23.                      cells
  24.                      'range
  25.                      (strcat "A" (itoa (setq row (1+ row))))
  26.                    )
  27.                    'value
  28.                    (vl-princ-to-string len)
  29.          )         
  30.         )
  31.       )
  32.     )
  33.   )
  34.   (vla-put-visible *excel* :vlax-true)
  35.   ;;(vla-put-visible *excel* 1)
  36.   (princ "\n 统计线长命令 GetL")
  37.   (princ)
  38. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 0 反对 1

使用道具 举报

发表于 2014-12-18 21:15:22 | 显示全部楼层
狼狼的看一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

已领礼包: 1266个

财富等级: 财源广进

发表于 2014-12-18 09:54:54 来自手机 | 显示全部楼层
楼主是不是再来个快速写入
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-12-18 21:18:46 来自手机 | 显示全部楼层
grs432 发表于 2014-12-18 15:14
这个程序的逆向也会挺有意思,改表中的数更新CAD中的线,如果它们之间有公式关系的话,就更有意思了。{:s ...

学习一下你是怎么逆向思维的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 0 反对 1

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-12-17 20:19:08 来自手机 | 显示全部楼层
假如文件已经打开了呢,还能运行吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 0 反对 1

使用道具 举报

发表于 2014-12-17 20:06:15 | 显示全部楼层
看看到底怎么样

点评

效果如何?  详情 回复 发表于 2014-12-17 20:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-12-17 20:07:29 | 显示全部楼层

效果如何?  



论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-12-17 20:14:11 来自手机 | 显示全部楼层
楼主这次干得不错,举了个应用实例,应该好理解了,赞!

点评

已打开的就更简单了,这段代码应该是Autocad与xls连接最简方法,也可能是com方法中效率最高的,无须去遍历  详情 回复 发表于 2014-12-17 20:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 717个

财富等级: 财运亨通

发表于 2014-12-17 20:26:50 | 显示全部楼层
每日一码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-12-17 20:29:59 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2014-12-17 20:14
楼主这次干得不错,举了个应用实例,应该好理解了,赞!

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



点评

大师能不能发这样一个程序:将线长输入到exce|,中途可能做别的事中断,等会儿继续点取线往里面加入。  详情 回复 发表于 2014-12-17 21:00
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2014-12-17 20:31:44 | 显示全部楼层
学习学习...
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2014-12-17 20:35:20 | 显示全部楼层
大师就是不一样...比我的快多了...
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2963个

财富等级: 家财万贯

发表于 2014-12-17 20:35:27 | 显示全部楼层
看看,马上实验一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8390个

财富等级: 富甲天下

发表于 2014-12-17 20:54:35 | 显示全部楼层
应该叫readsheet,range是指定单元格范围的

点评

剩下的就是你自己发挥了  详情 回复 发表于 2014-12-17 20:57
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-12-17 20:57:03 | 显示全部楼层
liuyj 发表于 2014-12-17 20:54
应该叫readsheet,range是指定单元格范围的

剩下的就是你自己发挥了


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-12-17 21:00:33 来自手机 | 显示全部楼层
Free-Lancer 发表于 2014-12-17 20:29
已打开的就更简单了,这段代码应该是Autocad与xls连接最简方法,也可能是com方法中效率最高的,无须去遍 ...

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

点评

这个不难吧,论坛好像有过  详情 回复 发表于 2014-12-17 21:06
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

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



点评

应该难哟.要判断excel是否打开,又要判断写到什么地方了  详情 回复 发表于 2014-12-17 21:59
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 590个

财富等级: 财运亨通

发表于 2014-12-17 21:07:31 | 显示全部楼层
看看有什么不一样
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2021-10-21 20:46 , Processed in 0.809311 second(s), 71 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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