一、 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
12楼
怎样下载呀
回复
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
回复
14楼
好强的啊啊 啊
回复
15楼
回复