num3 = ActiveSheet.UsedRange.Rows.Count For num2 = 2 To num3 ie1.Visible = True ie1.navigate Range("T" & num2).Value Do DoEvents Loop Until ie1.readyState = READYSTATE_COMPLETE Set doc1 = ie1.document dd1 = Trim(doc1.getElementsByTagName("th")(8).innerText) If InStr(dd1, "published") Then sdd1 = Trim(doc1.getElementsByTagName("td")(9).innerText) Range("B" & num2).Value = sdd1 Else Range("B" & num2).Value = "" End If Next num2 ie1.Quit
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)