您可以使用＜br＞或＜pre＞之类的内容
-
- With Excel.ActiveSheet
- For Each tTextObj In tSelSet
- RowCount = .Range("A" & .Rows.Count).End(xlUp).row
- For RowIndex = 1 To RowCount
- If tTextObj.Handle = .Cells(RowIndex, 1) Then
- tTextObj.textString = .Cells(RowIndex, 4)
- Exit For
- End If
- Next RowIndex
- Next tTextObj
- End With
顺便说一句：
1）您的整个代码必须比您发布的代码更多，因为缺少：
-“AcadProgID”、“SelectionObjectTypeName”和“SelectionSpace”初始化值，为了使代码更具可读性，我添加了“Excel”变量声明和设置..或者，如果您在Excel中运行此宏，您可以只使用“应用程序”-一些“showMsg”sub
2）。EXPORTER sub开头的“On Error Resume Next”语句非常不安全，可能也是调试问题的障碍。
您应该在需要的地方使用它-主要是在before语句之前这可能会导致一些错误，要立即处理这些错误，并在之后立即放置“On error goto 0”语句 | 
置顶卡
