[转帖][建议]利用VBA建立AutoCad2000与Excel通信
yeguiren
yeguiren Lv.11
2003年12月30日 00:25:58
只看楼主

一、 Excel 的ActiveX对象模型:1. WorkBooks集合对象一个WorkBook对象实际上就是一个Excel文件,Excel应用程序可以同时打开或创建多个文件,它们被保存在WorkBooks集合对象中,可以通过索引号或名称访问集合中的任何一个工作簿,如下语句所示:'该语句激活WorkBooks集合中的第一个工作簿,使其成为当前工作簿WorkBooks(1).Activate

一、 Excel 的ActiveX对象模型:

1. WorkBooks集合对象

一个WorkBook对象实际上就是一个Excel文件,Excel应用程序可以同时打开或创建多个文件,它们被保存在WorkBooks集合对象中,可以通过索引号或名称访问集合中的任何一个工作簿,如下语句所示:

'该语句激活WorkBooks集合中的第一个工作簿,使其成为当前工作簿

WorkBooks(1).Activate

'该语句激活WorkBooks集合中的Mybook.xls工作簿,使其成为当前工作簿

WorkBooks("Mybook.xls"). Activate
免费打赏
dalainlxp8899
2006年10月23日 13:07:20
12楼
怎样下载呀
回复
eagerstudy
2007年01月27日 15:41:24
13楼
我也来一个,经测试好用,代码不是原创的:
当然,现在表格中创建一个名为CommandButton1的按钮,caption属性设定为“开始绘图”,在vb编辑器里为
CommandButton1编写如下代码:
Private Sub CommandButton1_Click()
Dim acadApp As Object
Dim acadDoc As Object
ConnectToAcad
End Sub
Sub ConnectToAcad()
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then End
End If
acadApp.Visible = True
Set acadDoc = acadApp.ActiveDocument
End Sub
回复
freelook007
2009年08月02日 18:53:11
14楼
好强的啊啊 啊
回复
msjldai
2009年08月04日 10:02:31
15楼
联系: msjldai@163.com
回复

相关推荐

APP内打开