如何将所有HTML元素放入单个msgbox

Question

我能够访问该网站，并让它填充每个getElementsByClassName的innerText。它在各个msgbox中循环浏览每个。如果可能，我希望将其填充到每个msgbox中的每个字段的所有信息。

我尝试添加数组，但是没有用。

Dim o As Object, oColl As Object
Set oColl = doc.getElementsByClassName("ClientInfo")
For Each o In oColl
MsgBox o.innerText
  Next o

没有错误，它只是在单独的msgbox中循环遍历每个字段。我必须分别单击每个对话框（40个弹出消息框）。

Answer 1

将它们收集为一个字符串：

Dim o As Object, oColl As Object
Dim s As String

Set oColl = doc.getElementsByClassName("ClientInfo")

For Each o In oColl
    s = s & o.innerText & vbCrLf
Next
MsgBox s