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

ningyong58 · 发表于 2012-9-26 13:08:00

54sgnqncpzj.jpg

在粘贴的excel表格

uqaaspfsfhd.jpg

手动修改excel的表格。
目标需求：如何在AutoCAD的VBA中操作Excel表格

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

sscylh · 发表于 2012-9-26 14:36:00

copy


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).[b1] = "我爱乐筑天下"
 xls.Quit
End Sub

sscylh · 发表于 2012-9-26 14:39:00

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