VladDracule
New Member
- Joined
- Apr 7, 2017
- Messages
- 3
Hi All,
Im not very familiar with Excel/VBA so im having some trouble with what im trying to accomplish
Attached is an image of a website and its table format.
Im trying to use the generic code from an excel help and modify it to my needs
What I want is to ONLY get the text from the td Class = "marketPrice" into the excel sheet.
i am familiar with c/cpp and normally i would have thought something like an if function to check if the td = "marketPrice" for each row would have worked, but when i tried to use it it didnt copy any data
Im not very familiar with Excel/VBA so im having some trouble with what im trying to accomplish
Attached is an image of a website and its table format.
Im trying to use the generic code from an excel help and modify it to my needs
VBA Code:
Sub Export_HTML_Table_To_Excel()
Dim htm As Object
Dim Tr As Object
Dim Td As Object
Dim Tab1 As Object
'Replace the URL of the webpage that you want to download
Web_URL = VBA.Trim(Sheets(1).Cells(1, 1))
'Create HTMLFile Object
Set HTML_Content = CreateObject("htmlfile")
'Get the WebPage Content to HTMLFile Object
With CreateObject("msxml2.xmlhttp")
.Open "GET", Web_URL, False
.send
HTML_Content.Body.Innerhtml = .responseText
End With
Column_Num_To_Start = 1
iRow = 2
iCol = Column_Num_To_Start
iTable = 0
'Loop Through Each Table and Download it to Excel in Proper Format
For Each Tab1 In HTML_Content.getElementsByTagName("table")
With HTML_Content.getElementsByTagName("table")(iTable)
For Each Tr In .Rows
For Each Td In Tr.Cells
Sheets(1).Cells(iRow, iCol).Select
Sheets(1).Cells(iRow, iCol) = Td.innerText
iCol = iCol + 1
Next Td
iCol = Column_Num_To_Start
iRow = iRow + 1
Next Tr
End With
iTable = iTable + 1
iCol = Column_Num_To_Start
iRow = iRow + 1
Next Tab1
MsgBox "Process Completed"
End Sub
What I want is to ONLY get the text from the td Class = "marketPrice" into the excel sheet.
i am familiar with c/cpp and normally i would have thought something like an if function to check if the td = "marketPrice" for each row would have worked, but when i tried to use it it didnt copy any data