3、它们。1 Sub ExcelRead()2 Dim ExcelApp As New Excel.Application3 ExcelApp.Workbooks.Open "d:book1.xls", , ReadOnly4 Dim pt1(0 To 2) As Double, pt2(0 To 2) As Double5 Dim Rad As Double6 Dim i As Integer7 i = 28 With E
6、ge("D" & i)24 ThisDrawing.ModelSpace.AddCircle pt1, Rad25 Case Else:26 Exit Do27 End Select28 i = i + 129 Loop30 End With31 ExcelApp.Workbooks.Close32 ExcelApp.Quit33 ThisDrawing.Application.Update34 End
7、Sub运行这段代码需要加载EXCEL ActiveX对象模型。在ACAD VBA编辑器中选择“工具”菜单->“引用”,选择合适的Microsoft Excel Object Library。这段代码第2行先声明并新建一个EXCEL.Application对象。新建EXCEL对象,也可以调用VB库函数CreateObject(): Dim ExcelApp As Excel.Application Set ExcelApp = CreateObject("Microsoft Excel")程序第3行调用EX