javascript - VBA - 单击 Morningstar.com 上的 JS 按钮

Question

在 stackoverflow 上搜索时，我发现了许多与此类似的主题，但没有可靠的答案。我想做的是访问下面的网站并单击“导出 CSV”JS 按钮。

到目前为止，我从另一个 VBA 编码器“复制和借用”的是:

子 GetDat()

Set IE = CreateObject("InternetExplorer.Application")

With IE
    .Visible = True
    .navigate "http://financials.morningstar.com/ratios/r.html?t=JNJ&region=USA&culture=en_US"
    .Top = 50
    .Left = 530
    .Height = 600
    .Width = 1000

Do Until Not IE.Busy And IE.readyState = 4
    DoEvents
Loop

End With

IE.Document.getelementsbytagname("Export").Item(1).Click

结束子

我尝试延迟 5-10 秒以等待页面加载。有人提到 getelementsbytagname 找不到按钮...？

此外，我检查了按钮的元素。按钮的 html 是(我添加了空格来显示整个代码):

< a class="large_button" href="javascript:exportKeyStat2CSV();" >< span class="csv" >< /span >< div >Export< /div >< /a >

感谢您抽出宝贵时间，期待听到有关如何解决此问题的任何想法!

Answer 1

您不应该使用浏览器来简单地下载文件，而应使用 URLDownloadToFileA API:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub Download()
    URLDownloadToFile 0, "http://financials.morningstar.com/ajax/exportKR2CSV.html?&callback=?&t=XNYS:JNJ&region=usa&culture=en-US&cur=&order=asc", _
                         "C:\Temp\Export.csv", 0, 0
End Sub