ぁ蓝牙月☆め 发表于 2012-10-14 16:17:14

cad数据导入excel中遇到的问题

Sub a()    '连接EXCEL——标准代码****************************       Dim xlApp As Excel.Application       Dim xlbook As Excel.Workbook       Dim xlSheet As Excel.Worksheet       On Error Resume Next       Set xlApp = GetObject(, "excel.application")       If Err <> 0 Then         Err.Clear         Set xlApp = CreateObject("excel.application")         If Err <> 0 Then         MsgBox "无法启动excel"         Exit Sub         End If       End If       If ActiveWorkbook.Sheets.Count = 0 Then xlbook = xlApp.Workbooks.Add       Set xlbook = xlApp.ActiveWorkbook       Set xlSheet = xlbook.ActiveSheet      xlApp.Visible = True      If Err <> 0 Then Err.Clear    '标准代码结束*****************************************Dim retCoord() As DoubleDim a As AcadLWPolylineDim i As IntegerDim j As IntegerDim l As Integeri = 0ThisDrawing.Utility.GetEntity a, "Select an object"    retCoord() = a.CoordinatesOn Error GoTo eDo While CBool(retCoord(i)) <> Falsej = ActiveCell.Row'这个无法返回激活单元格地址l = ActiveCell.ColumnxlSheet.Cells(j + i / 2, l).Value = retCoord(i)   xlSheet.Cells(j + i / 2, l + 1).Value = retCoord(i + 1)i = i + 2Loope: Exit Subj = 0 l = 0End Sub 以上是一个将cad中多段线点坐标导入excel中去的代码，在cad中运行该宏，电脑提示“用户定义类型未定义”（红色部分），这是怎么回事？？哪位大侠能告诉我？？

sscylh 发表于 2012-10-14 20:57:42

找开vbe编辑器,工具---引用----microsoft excel 11.0 libiray

ぁ蓝牙月☆め 发表于 2012-10-15 21:08:45

sscylh 发表于 2012-10-14 20:57 static/image/common/back.gif
找开vbe编辑器,工具---引用----microsoft excel 11.0 libiray

好的，谢谢!

3xxx 发表于 2012-10-21 13:08:20

好眼熟，呵呵
页: [1]
查看完整版本: cad数据导入excel中遇到的问题