html - 使用 Excel VBA 更改 HTML 属性

Question

我正在尝试更改类中的 HTML 属性

<div class="treeNodeStyle" id="trMenu_14" nowrap="" style="visibility: visible;">
    <div class="treeNodeWrapperStyle" nowrap="">
        <a class="treeInlineStyle" onclick="FolderExpand('trMenu','14');return false;" href="">
            <img align="top" class="treeInlineStyle" src="/visimages/tree/plus.gif" border="0">
        </a>
        <div class="treeSelectorStyle" onclick="selectNode('trMenu','14',false)"
            ondblclick="dblselectNode('trMenu','14')">
            <img align="absmiddle" class="treeInlineStyleImg" src="/visimages/tree/folder.gif" border="0">
            <div title="Finance" class="treeNodeTextStyle" nowrap="true"> Finance</div>
        </div>
    </div>
    <div class=”treeChildStyle” nowrap=”” style=”display: none;”&gt; </div>

最后一行代码是我需要更改的——从 style=”display: none ;” to style="display: block ;"</p>

这是我尝试使用的代码：

IE.Document.getElementsByClassName("treeChildStyle").removeAttribute ("style")
IE.Document.getElementsByClassName("treeChildStyle").setAttribute "style", "display: block;"

Answer 1

您可以使用 querySelector 返回单个匹配项，然后设置样式属性。@MathieuGuindon 的评论已经指出了在集合上尝试单个节点的方法的错误，即没有索引。

ie.document.querySelector("#trMenu_14 .treeChildStyle").setAttribute "style", "display: block;"