gurunathblessings
New Member
- Joined
- Sep 15, 2016
- Messages
- 22
My Code
Thanks.
VBA Code:
Sub Get_Web_Data()
Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As Variant
website = "https://www.mooncalc.org/#/40.7146,-74.0071,9/2022.04.15/18:30/1/3"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsById("azimuth").Item(0).innerText
Cells(2, "B") = price
End Sub
Thanks.