Question

我想点击带有VBA的网站上的按钮，并提取点击时显示的表格。

我的代码在这里，但它现在无法正常工作，我该怎么做？

我想点击表格右上角的“获取报价价格”按钮，并提取显示的信息。

Sub Test()



Dim IE As Object
Dim doc As Object
Dim strURL As String
   Dim objElement As Object
    Dim objCollection As Object

strURL = "http://financials.morningstar.com/competitors/industry-peer.action?t=GOOG&region=usa&culture=en-US"

Set IE = CreateObject("InternetExplorer.Application")
With IE
     .Visible = True
     .navigate strURL
    Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        Dim Item As Object
    Set Item = IE.document.getElementsByClassName("hspacer0")
    Item.Item(0).Click

      Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        
            Set doc = IE.document
            GetAllTables6 doc

            .Quit
        End With

    End Sub

Answer 1

您没有点击代码的正确按钮。我不知道你点击什么按钮。但是如果你运行javascript代码loadIndustryPeersQuoteData（1），它将“点击”按钮，然后你需要编写获取表的代码。

'hspacer0'只是一个空白的间隔符，不包含任何对象或任何可点击的内容。

VBA单击网站上的按钮并提取表格

1 个答案: