有没有办法将 return 多个数据结果放入一个单元格？

Question

我正在构建一个代码来检索多个文档中的所有文本，然后将该文档的文件名放在 A 列中，然后将该文档中包含的所有文本放在同一行中，但放在 B 列中。对现在，我有了可以从这些文档中检索文本的代码，但我的问题是我无法将所有文本条目合并到一个单元格中。每个文档包含不同数量的文本条目，因此代码必须将所有文本包含在一个单元格中。

这是我目前的情况：

    Dim ent As AXDBLib.AcadEntity
    Dim txt As AcadText

Dim mtxt As AcadMText

Dim textValue As String

                      For Each ent In ActiveDocument.ModelSpace

                            If TypeOf ent Is AcadText Then

                                Set txt = ent
                                
                                Cells(4, 2) = txt.TextString
                                Debug.Print txt.TextString

                            End If

Answer 1

请尝试下一种方式：

Sub testAllInACell()
 'your existing code...
    For Each ent In ActiveDocument.ModelSpace
            If TypeOf ent Is AcadText Then
                Set txt = ent
                 If textvalue = "" Then
                    textvalue = txt.TextString
                 Else
                    textvalue = textvalue & vbLf & txt.TextString
                 End If
            End If
    Next
    If Len(textvalue) <= 32767 Then
            Cell(4, 2).value = textvalue
    Else
            MsgBox "The text to be copied exceeds the maximum allowed... " & vbCrLf & _
                   "(" & Len(textvalue) & " against 32767, admitted)"
    End If
    'Your existing code (if any...)
End Sub

有没有办法将 return 多个数据结果放入一个单元格？

Is there a way to return multiple data results into one cell?

excel

vba

autocad