[VBA程序]：恳请各位帮忙!如何来确定文本的具体位置

yswu

我想把cad表格中的文本内容按行转入excel中,我用选择集选中了表格中的文本,但在写入excel
时就不知如何来确定文本的具体位置
比如在 cad表中的三行有四列 如何准确的将其写入EXCEL的相应的行和列中

恳请各位帮忙

自由的鱼

给你参考一下

Sub outexcel()
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
Set xlbook = xlApp.Workbooks.Add
Set xlSheet = xlbook.ActiveSheet
xlApp.Visible = True
xlSheet.Cells(1, 1) = "对象名"
xlSheet.Cells(1, 2) = "颜色"
xlSheet.Cells(1, 3) = "层名"
xlSheet.Cells(1, 4) = "线型"
Dim i As Integer
For i = 0 To ThisDrawing.ModelSpace.Count - 1
With ThisDrawing.ModelSpace(i)
xlSheet.Cells(i + 2, 1) = .ObjectName
xlSheet.Cells(i + 2, 2) = .Color
xlSheet.Cells(i + 2, 3) = .Layer
xlSheet.Cells(i + 2, 4) = .Linetype
End With
Next

End Sub