Мне нужно скачать цену после выбора даты и варианта таблицы на этом сайте https://eximbank.com.vn/WebsiteExrate/Gold_vn_2012.aspx
Код ниже. Тем не менее, он загружает только данные за текущую дату и последнюю цену, даже если я использовал l oop: для выбора следующей опции таблицы. Может ли кто-нибудь помочь мне с этим вопросом? Я думаю, что команда выбора даты и времени может не сработать. Большое спасибо заранее!
Sub Eximbank()
Dim XMLRequest As New MSXML2.XMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument
Dim i As Integer
XMLRequest.Open "GET", "https://eximbank.com.vn/WebsiteExrate/Gold_vn_2012.aspx", False
XMLRequest.send
If XMLRequest.Status <> 200 Then
MsgBox XMLRequest.Status & " - " & XMLRequest.statusText
Exit Sub
End If
HTMLDoc.body.innerHTML = XMLRequest.responseText
n = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1
ActiveWorkbook.Sheets("Sheet1").Range("A" & n) = Now
For i = 1 To 10
HTMLDoc.getElementsByName("CalControl1_TextBox1")(0).Value = "13/04/2020"
HTMLDoc.getElementById("ddlQuoteCount").Value = "i"
HTMLDoc.getElementById("ImageButton1").Click
ActiveWorkbook.Sheets("Sheet1").Range("B" & n) = HTMLDoc.getElementById("lblQUOTETM").innerText
ActiveWorkbook.Sheets("Sheet1").Range("C" & n) = HTMLDoc.getElementById("GoldRateRepeater_lblCSHBUYRT_0").innerText
ActiveWorkbook.Sheets("Sheet1").Range("D" & n) = HTMLDoc.getElementById("GoldRateRepeater_lblCSHSELLRT_0").innerText
Next i
End Sub