只需一步,快速开始
强,楼主的程序确实精简而准确,这么短的代码就将EXCEL转换到CAD完成了!尤其是对合并单元格的处理,精妙!高手作品,佩服!
也提一点建议:程序里用类似 xlRange.Borders(xlEdgeLeft).LineStyle = xlNone 来决定是否把单元格转换到CAD里来似乎不大妥当.这样做的话要求用户的表格必须是有边框的,要求有些过高了.因为很多情况下EXCEL里是可以不用边框的(但单元格内有数据).所以当遇到这种情况时,程序不会把这个格子和它里面的数据转换到CAD里来.我想,CAD里对边框粗细的要求不高的,应该可以放弃EXCEL里面单元格边框粗细的信息.每一个单元格都转换进来(只要是用户选定的,不管有无边框).
本人也写过一个EXCEL与CAD交换表格的工具,可以将EXCEL表格转换到CAD,也可以将CAD里的表格转换到EXCEL,并且能识别CAD里合并的单元格.
使用道具 举报
谢谢分享!!
正在学习中
虽然是楼主几十年前的东东,但对于我这个新手来讲,是相当有帮助的。
事隔几十年后,再给楼主顶一下哈…………
我顶,我顶,我顶顶顶……
下载了程序不懂VBA,不知道如何使用。
楼主或者使用过的前辈,能说说加载后怎末用?
谢谢
编译错误:说用户定义类型未定义,跳到这一行代码,有大虾解释一下是什么原因吗?怎么改一下
Function LineWidth(ByVal xlBorder As Border) As Double
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-3-29 09:08 , Processed in 0.291636 second(s), 17 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.