PLS Help!!! ABout VBA in Excel

0

Pls Help. How can I Get only number/rate using vba in excel

This my code in vba

Sub Get_Web_Data()
' TeachExcel.com

Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim Website As String
Dim price As Variant



' Website to go to.
Website = "https://www.g2g.com/wow-us/gold-2299-19249?&server=30955&faction=543&sorting=price@asc"

' Create the object that will make the webpage request.
Set request = CreateObject("MSXML2.XMLHTTP")

' Where to go and how to go there - probably don't need to change this.
request.Open "GET", Website, False

' Get fresh data.
request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"

' Send the request for the webpage.
request.send

' Get the webpage response data into a variable.
response = StrConv(request.responseBody, vbUnicode)

' Put the webpage into an html object to make data references easier.
html.body.innerHTML = response

' Get the price from the specified element on the page.
Range("a1") = html.getElementsByClassName("products__exch-rate").Item(0).innerText

End Sub

Screenshoot

https://prnt.sc/po0s4p wrong

https://prnt.sc/po0s5p how do I edit it like this?

Pls Help me

Answer
Discuss

Answers

0
Selected Answer

Change  html.ElementsByClassName to:

Range("a1") = html.getElementsByName("ppu-3604576").Item(0).innerText

Or Download File

Discuss


Answer the Question

You must create an account to use the forum. Create an Account or Login