时间戳

首页 > 解决方案 > 如何点击雅虎财经中的搜索按钮

excel - 如何点击雅虎财经中的搜索按钮

问题描述

我正在尝试简化电子表格并希望得到您的帮助。我有以下代码在雅虎金融中搜索 APPL 股票。如何点击点击按钮？我相信我遇到的问题是代码最后一行中的“搜索按钮”。

Sub browsetosite()

    Dim IE As New SHDocVw.InternetExplorer

    IE.Visible = True
    IE.navigate "www.finance.yahoo.com"

    Do While IE.ReadyState <> READYSTATE_COMPLETE
    Loop
    Debug.Print IE.LocationName, IE.LocationURL

   IE.Document.forms("input").elements("yfin-usr-qry").Value = "APPL"
   IE.Document.forms("input").elements("**search-button**").Click

End Sub

标签： excelvbaweb-scraping

解决方案

好的，经过测试，问题似乎是雅虎的页面加载了很多东西。

在您添加股票代码之前，我添加了十秒钟的等待时间。玩弄时间，你可能会减少一些。

Sub browsetosite() 
   Dim IE As New SHDocVw.InternetExplorer

   IE.Visible = True
   IE.navigate "www.finance.yahoo.com"

   Do While IE.ReadyState <> READYSTATE_COMPLETE
   Loop
   Application.Wait (Now + TimeValue("00:00:10"))
   IE.Document.forms("input").elements("yfin-usr-qry").Value = "APPL"
   IE.Document.forms("input").elements("search-button").Focus
   IE.Document.forms("input").elements("search-button").Click
End Sub

但是，如上所述，如果您知道要查找的符号，则最好直接导航到https://finance.yahoo.com/quote/[SYMBOL]

推荐阅读