

September 6, 2019

Hello,
Please can you check why attached macro not work in all websites to get social websites.
Ex: https://www.myonlinetraininghub.com/
https://www.maximintegrated.com/
Thanks;
Marsil


September 6, 2019

Hi Catalin,
How kind you are to help me. thank you.
I added " Debug.Print http.responseText " after this line " HTML.body.innerHTML = http.responseText "
but still face the macro no result for https://www.myonlinetraininghub.com/ and https://www.maximintegrated.com/
Please can you review code for attached macro.
Grateful for your support...
Thanks;
Marsil


November 8, 2013

Try another method:
Dim appIE As Object, itm As Variant
Dim objCollection As Object
Dim i As Long, LastRow As Long
Dim sURL As String
LastRow = Range("A" & Rows.Count).End(xlUp).row
For i = 24 To LastRow
Set appIE = New InternetExplorer
sURL = Range("A" & i).Value
With appIE
.navigate sURL
.Visible = True
End With
On Error GoTo 1
Do While appIE.Busy Or appIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
Set objCollection = appIE.document.getElementsByTagName("a")
For Each itm In objCollection
Debug.Print itm.innerText
Next itm
appIE.Quit
Set appIE = Nothing
2:
Next i
Exit Sub
1:
Resume 2
End Sub
1 Guest(s)
