查看单个帖子
旧 2009-04-28, 12:49 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】如何实现用excel画图

如何实现用excel画图
www.dimcax.com
如何实现用excel画图
要画一批图,但是很多尺寸是类似的.只有很少不一样
希望能用excel批量生成,不知道如何实现??

路过,第一次听说

第一次听到,有没高手指点一下

有人问了类似的问题,其实就是在cad的vba中对excel的操作而已
首先建立对excel 的引用
然后在代码中:
dim excel as excel.application
dim excelworkbook as object
set excel = new excel.application
excel.visible = true

set excelworkbook = excel.workbooks.open( fullname) ' fullname为excle表格文件名,必须包含其路径,如"c:\tst.xls",该表格事先保存了你需要的绘图数据
'
'这里插入你的代码
'当然你必须对vba 的excel应用有所了解,基本对象是range,也可用cell属性替代,其优点在于可以用变量标签,实现连续操作,cell(x,y)
'x,y分别为行列标签,对象层次为workbook -> worksheet -> cell,不加前缀直接使用cell,操作的是当前工作表。
excel.activeworkbook.saveas "c:\txt.xls"
excel.activeworkbook.close
excel.quit

由于时间关系,做的不太完善,速度有点慢,不过基本功能还是完成了.只要把程序复制到c盘就行了
57

不知到ekcel还能批量画图,学习

学习下

我也没搞懂什么意思呢~

楼主说具体点,这个是完全可以实现的,我qq664543478

学习一下

能介绍一下使用方法吗?
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)