jamescooper
Well-known Member
- Joined
- Sep 8, 2014
- Messages
- 840
Hello,
Is there any way to adapt my code below to not use Internet Explorer to grab all the data in the tables as below please?
Maybe using "msxml2.xmlhttp"
Many thanks.
Is there any way to adapt my code below to not use Internet Explorer to grab all the data in the tables as below please?
Maybe using "msxml2.xmlhttp"
Many thanks.
Code:
Sub Form()
Dim objIE As InternetExplorer
Dim ele As Object
Dim y As Integer
Dim DLine As Range
For Each DLine In Sheets("Sheet1").Range("B1:B1")
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate DLine.Value
.Visible = True
Do While objIE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
Application.Wait Now + TimeValue("00:00:02")
End With
For Each ele In objIE.Document.getElementById("sortableTable").getElementsByTagName("tr")
Debug.Print ele.textContent
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 1)), 1, row + 1)
Sheets("Dog Form").Cells(row, 1) = ele.Children(0).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 2)), 1, row)
Sheets("Dog Form").Cells(row, 2) = ele.Children(1).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 3)), 1, row)
Sheets("Dog Form").Cells(row, 3) = ele.Children(2).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 4)), 1, row)
Sheets("Dog Form").Cells(row, 4) = ele.Children(3).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 5)), 1, row)
Sheets("Dog Form").Cells(row, 5) = ele.Children(4).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 6)), 1, row)
Sheets("Dog Form").Cells(row, 6) = ele.Children(5).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 7)), 1, row)
Sheets("Dog Form").Cells(row, 7) = ele.Children(6).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 8)), 1, row)
Sheets("Dog Form").Cells(row, 8) = ele.Children(7).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 9)), 1, row)
Sheets("Dog Form").Cells(row, 9) = ele.Children(8).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 10)), 1, row)
Sheets("Dog Form").Cells(row, 10) = ele.Children(9).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 11)), 1, row)
Sheets("Dog Form").Cells(row, 11) = ele.Children(10).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 12)), 1, row)
Sheets("Dog Form").Cells(row, 12) = ele.Children(11).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 13)), 1, row)
Sheets("Dog Form").Cells(row, 13) = ele.Children(12).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 14)), 1, row)
Sheets("Dog Form").Cells(row, 14) = ele.Children(13).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 15)), 1, row)
Sheets("Dog Form").Cells(row, 15) = ele.Children(14).textContent
row = row + 1
row = Cells(Rows.Count, "A").End(xlUp).row
row = IIf(row = 1 And IsEmpty(Cells(1, 16)), 1, row)
Sheets("Dog Form").Cells(row, 16) = ele.Children(15).textContent
row = row + 1
Next
objIE.Quit
Set objIE = Nothing
Next DLine
End Sub