Question

我正在使用excel VBA打开此网站： Legal and General，然后，需要单击“资金价格和收费”按钮。

用chrome检查网页，可以看到此按钮具有以下代码：

<div class=" selected tab" tabindex ="0" role="button" aria-pressed="true">...</div>

HTML“查看源代码”建议使用脚本类型=“ application / JSON”

我对这一切感到非常困惑。有人知道我如何选择此按钮吗？到目前为止，我有这段代码：

 Set HTMLDoc = .document

Set objElement = HTMLDoc.getElementsByClassName("Select - Tab - Fund prices and charges")(0)

    objElement.Click

.Quit

任何帮助将不胜感激。

致谢

戴夫

Answer 1

如果只对一个选项卡感兴趣，我将首先使用css类选择器按其类名获取包含所有选项卡的父元素（div）。然后，我将结合使用子组合器和nth-child（）选择器，以按其类名抓取第二个子div：

.querySelector(".table-view__tabs > div:nth-child(2)").Click 'Select tab direct

如果可能对所有3个标签感兴趣：

我首先将使用css类选择器按其类名获取包含所有选项卡的父元素（div）。然后，我将使用子组合器按其类名抓取子div（即选项卡）。我将索引到返回的nodeList中以单击所需的选项卡：

Set tabs = .querySelectorAll(".table-view__tabs > div") 'select all tabs then index in for tab of choice
tabs.Item(1).Click

VBA：

Option Explicit

Public Sub ClickButton()

    Dim ie As SHDocVw.InternetExplorer

    Set ie = New SHDocVw.InternetExplorer

    With ie
        .Visible = True
        .Navigate2 "https://fundcentres.lgim.com/uk/workplace-employee/fund-centre/#Product=WorkSave-Pension-Plan-(generation-3)"

        While .Busy Or .ReadyState <> 4: DoEvents: Wend

        With .Document

            .querySelector(".table-view__tabs > div:nth-child(2)").Click 'Select tab direct

            Stop  'Delete me later

            Dim tabs As Object

            Set tabs = .querySelectorAll(".table-view__tabs > div") 'select all tabs then index in for tab of choice
            tabs.Item(1).Click                   '0 based so first tab is 0, second is 1 etc

            Stop                                 'Delete me later

        End With

        Stop                                     '<==Delete me later
        .Quit
    End With
End Sub

阅读：

参考（VBE>工具>参考）：

Microsoft Internet控件

Excel VBA单击不带名称或ID且使用JSON的网站按钮

1 个答案: