Excel to search the id number in the column website, then certain areas of the page in the results display "b", "c", "d", "e" "f" .... paste against the corresponding number in the column ask me.
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
URL = "http://ift.tt/oTKwtV"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate URL
.Visible = True
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
For i = 4 To Range("a65536").End(3).Row
aranan = Cells(i, "a").Value
ie.document.all("query_text").Value = aranan
ie.document.forms(0).submit
Next
b = 1
For i = 0 To 0
aranan = .Range("B65536" & aranan.Cells(Rows.Count, 1).End(3).Row).Value
b = b + 19
Next i
End With
Set ie = Nothing
End Sub
Aucun commentaire:
Enregistrer un commentaire