总和innertextxt VBA IE

我得到了这几个数字，我想提出的总和，而不必总结起来之后

MsgBox ie.document.getElementsByClassName("post_click_or_post_view_revenue")(0).innertext MsgBox ie.document.getElementsByClassName("post_click_or_post_view_revenue")(1).innertext MsgBox ie.document.getElementsByClassName("post_click_or_post_view_revenue")(2).innertext MsgBox ie.document.getElementsByClassName("post_click_or_post_view_revenue")(3).innertext 

我想做这样的事情，而不是

 MsgBox Sum(ie.document.getElementsByClassName("post_click_or_post_view_revenue").innertext) 

这可能吗？

Answer 1

你将不得不循环浏览与你的类匹配的一系列标签，将.innerText转换为一个实际的数字（文本看起来像一个数字，如果不是数字的话）。

 dim dTotal as double, l as long, e as long with ie.document l = .getElementsByClassName("post_click_or_post_view_revenue").length - 1 for e = 0 to l if isnumeric(trim(.getElementsByClassName("post_click_or_post_view_revenue")(e).innertext)) then _ dTotal = dTotal + CDbl(.getElementsByClassName("post_click_or_post_view_revenue")(e).innertext) next e end with msgbox "The total is " & dTotal 

现在，将使用匹配的类名遍历所有元素。 如果你只想从0到3，那么使用for e = 0 to 3 。 只要确定其中有四个，然后再进入四个循环。