明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 5332|回复: 5

[分享]vlisp-excel函数的修改

[复制链接]
发表于 2007-1-6 13:28 | 显示全部楼层 |阅读模式

近日想编一个CAD与EXCEL之间进行数据传递的程序。直接采用了网站上提供的源代码。的确省去了不少的麻烦。但是在使用中也发现了问题,比如(vlxls-range-getid RangeObject)函数,按照作者的示例可以用来返回在EXCEL中所选定单元格范围的ID,但是在实际应用中该函数出现错误无法正常使用。经反复跟踪调试发现实由于作者提供的代码有一定的问题,经改动以后得到了正确的结果。

更改以后的函数代码如下:调试的环境是winxp-sp2+AutoCAD2006+office2007简体中文版。有兴趣的朋友可以试一下。

(Defun vlxls-range-getID (range / col row dx dy);;;;返回指定单元格范围的ID
  (setq dx  (vlxls-get-property range "Rows.Count")
 dy  (vlxls-get-property range "Columns.Count")
 row (vlxls-get-property range "Row")
 col (vlxls-get-property range "Column")
;;;以下注释的代码为原作者所提供,调试中无法通过。MergeArea好像仅能用于已经合并后的单个单元格 
;;;  (setq dx  (vlxls-get-property range "MergeArea.Rows.Count")
;;; dy  (vlxls-get-property range "MergeArea.Columns.Count")
;;; row (vlxls-get-property range "MergeArea.Row")
;;; col (vlxls-get-property range "MergeArea.Column") 
  )
  (strcat (vlxls-rangeid (list col row))
   ":"
   (vlxls-rangeid (list (1- (+ col dy)) (1- (+ row dx))))
  )
)

发表于 2007-1-20 16:15 | 显示全部楼层
哦 谁能把整个LISP操作EXCEL的代码带解释贴出来!
发表于 2008-1-18 11:48 | 显示全部楼层
谁能把整个LISP操作EXCEL的代码带解释贴出来
发表于 2008-1-19 09:59 | 显示全部楼层

大家可以在网上搜索下,内容太多贴不上来:

http://atablex.com/htmls/vlxls-functions.htm

 

本帖子中包含更多资源

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

x
发表于 2008-1-19 10:03 | 显示全部楼层

大家还可以去KozMos公司的网站上直接下载。

http://www.versiontracker.com/dyn/moreinfo/win/63304&mode=feedback

下面是在上面的网址里下载的源代码及示例文件包。

本帖子中包含更多资源

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

x
发表于 2019-9-10 22:14 | 显示全部楼层
好的,帮了我的大忙.thanks
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 07:44 , Processed in 0.261620 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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