mardi 12 avril 2016

website copy designated place

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