请教各路高人CAD VBA读取EXCEL表的问题

chen812

Public Sub intext()
'已打开一个EXCEL文档和一个AutoCAD图档,当运行本程序后提示选择EXCEL文档的
'某一单元格,选后提示在AutoCAD图档点选一位置,使EXCEL文档相关单元格的内容
'以文本方式填在AutoCAD图档的指定位置
     On Error Resume Next
      ' 连接Excel应用程序
     Dim xlApp As Excel.Application
     Set xlApp = GetObject(, "Excel.Application")
     If Err Then
         MsgBox " Excel 应用程序没有运行。请启动 Excel 并重新运行程序。"
         Exit Sub
     End If
     Dim xlSheet As Worksheet
     Dim na As Integer '所选单元格所在行的编号
     Dim n1 As String ' 单元格的值(内容)
     Set xlSheet = xlApp.ActiveSheet
  '####################################################################
  '这段不会编啊！这段不会编啊！这段不会编啊！
  '这段是提示用户选取EXCEL单元格,并获得所选单元格的行编号na,
  '以及读取单元格cells(na,3)的内容n1
  '  n1 = Cells(na, 3):n2=Cells(na, 5):n3=Cells(na, 8)  ……
  '####################################################################
     Dim pt As Variant    '插入点
     pt = ThisDrawing.Utility.GetPoint(, "起始参考点")
     If IsEmpty(pt) Then Exit Sub
    ThisDrawing.ModelSpace.AddText n1, pt, 10
   
End Sub

geabus

大致是：xlApp.inputbox(,,,);

宇涵他爹/

太厉害了！