ningyong58 发表于 2012-9-26 13:08:36

如何在AutoCAD的VBA中操作Excel表格


在AutoCAD粘贴的excel表格


手动修改excel的表格。

目标需求：如何在AutoCAD的VBA中操作Excel表格

sscylh 发表于 2012-9-26 14:36:24

Sub aa()
Dim xls As Excel.Application
Set xls = New Excel.Application
Dim ss As AcadSelectionSet
Dim ole As AcadOle
Set ss = ThisDrawing.SelectionSets.Add("abc")
ss.SelectOnScreen
Set ole = ss(0)
ThisDrawing.SendCommand ("oleopen ")
xls.Workbooks(1).Sheets(1). = "我爱明经"
xls.Quit
End Sub

sscylh 发表于 2012-9-26 14:39:12

其实最重要的就是:sendcommand oleopen,因为在vba中ole对象并没有方法和属性可以直接调用来修改其值,所以只好调用命令.
oleopen之后就非常简单了,可以利用excel的对象属性来修改任意一个值或做其他处理
当然了,首先还是要先引用 microsoft excel object libiary

ningyong58 发表于 2012-9-26 17:05:00

谢谢回复，没有选择到OLE对象




sscylh 发表于 2012-9-26 18:51:29

ningyong58 发表于 2012-9-26 17:05 static/image/common/back.gif
谢谢回复，没有选择到OLE对象

请看动画演示:

ningyong58 发表于 2012-9-26 20:54:05

谢谢回复，我现在用的是AutoCAD2004+excel2003,好像是不是版本问题。
谢谢。
页: [1]
查看完整版本: 如何在AutoCAD的VBA中操作Excel表格