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

ningyong58

在AutoCAD粘贴的excel表格


手动修改excel的表格。

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

sscylh

2. Sub aa()
   
3. Dim xls As Excel.Application
   
4. Set xls = New Excel.Application
   
5. Dim ss As AcadSelectionSet
   
6. Dim ole As AcadOle
   
7. Set ss = ThisDrawing.SelectionSets.Add("abc")
   
8. ss.SelectOnScreen
   
9. Set ole = ss(0)
   
10. ThisDrawing.SendCommand ("oleopen ")
    
11. xls.Workbooks(1).Sheets(1).[b1] = "我爱明经"
    
12. xls.Quit
    
13. End Sub

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

sscylh

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

ningyong58

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

sscylh

ningyong58 发表于 2012-9-26 17:05
谢谢回复，没有选择到OLE对象

请看动画演示:

ningyong58

谢谢回复，我现在用的是AutoCAD2004+excel2003,好像是不是版本问题。
谢谢。