如何将所有 html 元素放入单个 msgbox答案

【问题标题】：How to put all html elements into a single msgbox如何将所有 html 元素放入单个 msgbox
【发布时间】：2019-11-09 18:21:47
【问题描述】：

我能够访问该网站并让它填充每个 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 个弹出消息框）。

【问题讨论】：

为什么这个标签是 [access-vba]？

标签： html vba ms-access

【解决方案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

【讨论】：

哇！惊人的。太感谢了。现在我可以为其他部分做同样的事情。