时间戳

首页 > 解决方案 > 在某些情况下从网站下载数据的 VBA 代码

vba - 在某些情况下从网站下载数据的 VBA 代码

问题描述

我需要从这个网站https://eximbank.com.vn/home/Static/Gold.aspx在 2 个条件（日期和表号）下下载黄金价格，如下所示。当我选择日期和表号时，此代码调试运行时错误 438“对象不支持此属性或方法”。谁能告诉我为什么会这样。提前谢谢了！

  Sub Eximbank()
  Dim myIE As New InternetExplorer
  Dim myIEDoc As HTMLDocument
  myIE.Visible = False
  myIE.navigate "https://eximbank.com.vn/home/Static/Gold.aspx"
  Do While myIE.readyState <> 4 Or myIE.Busy
  DoEvents
  Loop
  Set myIEDoc = myIE.document

   ' Choose Date and Table number
  myIEDoc.getElementsByName("CalControl1$TextBox1").Value = "14/04/2020"
  myIEDoc.getElementsByName("ddlQuoteCount").Value = "19"
  myIEDoc.getElementsByName("ImageButton1").Click

 'Download data to active workbook
ActiveWorkbook.Sheets("Sheet1").Range("A1") = Now
ActiveWorkbook.Sheets("Sheet1").Range("A1")=myIEDoc.getElementsById("GoldRateRepeater_lblCSHBUYRT_0")(0).getElementsByTagName("td")(0).innerText
ActiveWorkbook.Sheets("Sheet1").Range("B1") = myIEDoc.getElementsById("GoldRateRepeater_lblCSHSELLRT_0")(0).getElementsByTagName("td")(1).innerText

 myIE.Quit
Set myIE = Nothing
End Sub

标签： vba

解决方案

推荐阅读