Как поместить все элементы HTML в один msgbox

Question

Я могу получить доступ к веб-сайту и заполнить его внутренним текстом каждого из getElementsByClassName. Это циклически проходит каждый в отдельном сообщении. Я хотел бы, чтобы это по возможности заполняло всю информацию каждого поля в одном msgbox.

Я пытался добавить массивы, но это не сработало.

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

Нет ошибок, просто циклически перебирайте каждое поле в отдельном сообщении. Я должен просмотреть каждую из них (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