VBA读写EXCEL文档的一般方法.doc

《VBA读写EXCEL文档的一般方法.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA读写EXCEL文档的一般方法与ACAD的VBA一样，MS EXCEL也提供ActiveX对象模型，在ACAD VBA开发中使用EXCEL文档同样也要通过其ActiveX对象模型。详细介绍EXCEL的ActiveX对象模型恐怕离ACAD太远，也没有必要。在这只说说获取EXCEL工作表指定单元格内容的方法。与ACAD的ActiveX对象模型一样，EXCEL的ActiveX对象模型其顶层对象也是Application对象，EXCEL.Application对象提供的Workbooks工作簿集合对象包含有全部已经

2、启动的EXCEL工作簿对象，我们可以使用Application对象的ActiveWorkbook方法来获取当前活动的工作簿对象，也可以使用Workbooks(Index)方法来得到指定的工作簿对象。获取要操作的工作簿后，需要获取工作簿中的指定工作表(worksheet)才能访问到其中的指定单元格内容。EXCEL的单元格的确定由行和列唯一指定，例如Range("B4")表示第4行第2列。下面的代码从EXCEL文档中读出数据并在ACAD图形的模型空间中自动根据EXCEL文档内容绘图。行号是我加上的，真正的程序不需要

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

4、xcelApp.ActiveWorkbook.Worksheets("sheet1")9       Do10        Select Case .Range("A" & i)11           Case "直线":12             pt1(0) = .Range("B" & i)13             pt1(1) = .Range("C" & i)14             pt1(2) = 015             pt2(0) = .Range("D" & i)16 

5、            pt2(1) = .Range("E" & i)17             pt2(0) = 018            ThisDrawing.ModelSpace.AddLine pt1, pt219         Case "圆":20            pt1(0) = .Range("B" & i)21            pt1(1) = .Range("C" & i)22            pt1(2) = 023            Rad = .Ran

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

8、CEL的Application对象的Workbooks集合的Open方法，以只读方式打开指定的EXCEL文档。第4-7行声明一些变量。i 用于表明要操作的EXCEL单元格的行号，通常EXCEL文档第1 行是表头说明，我们从第2行开始读数据。程序第8行告诉编译程序以下对当前活动的EXCEL文档的Sheet1工作表进行操作。程序第9行到第29行循环读取EXCEL文档的Sheet1工作表中对