Hey all,
I'm trying to transition away from using IE because as my list of fetching websites continues to grow things are just getting more and more slower and less reliable to complete the task. I've tried different kind of permutations unsuccessfully and I just can't even get it to convert the object-data into the specific pasted data...
Any help to get the data to paste row-by-row (doesn't need to be a table, just pasted like IE version) would be much appreciated..![]()
Sub GetStuff() Dim objXML As Object Dim strData As String Dim strResponse As String strData = "Request" Set objXML = CreateObject("MSXML2.XMLHTTP") objXML.Open "POST", "https://www.excelforum.com/excel-programming-vba-macros/" & strData, False objXML.Send strResponse = objXML.responsetext For i = 0 To 20 With ActiveSheet .Cells(1 + i, 1) = strResponse.getelementsbyclassname("threadinfo").Item(i).innerText End With Next 'MsgBox strResponse End Sub
Note: I have xml v6.0 and html object library reference enabled. If it can be done via WINhttp5.1, then its fine too!
I just need a working starting point where I can keep building on :p
Any help would be much appreciated!
Bookmarks