automate data search in webpage and extract data

[kalyan kumar]

Hi All,

I need help and suggestions: I had a list of contacts and their details its a bulk. I need to verify those names and contact details are matching with my database site or not. In detail my database site user interface have search option if I give name of person with id he have if it matches it shows else throws error. so I needs help & suggestion do I can make a macro using excel that can run bulk contacts validation and give output as true if matches or if not as false. in this way I am thinking or please suggest me is der any other way or script that helps me to do this bulk validation check.

I need to validate person contact with database where I cannot extract details list from db in any format that is constraint so only option I need to type and search contacts and validate so help me how can I automate this validation process. Thanks in advance,........for help and support.

code I tried but this opens website but will not search data:
Sub SearchGoogle()

Dim ie As Object

Dim form As Variant

Dim button As Variant

Dim LR As Integer

Dim var As String

Dim var1 As Object

LR = Cells(Rows.Count, 1).End(xlUp).Row

For x = 2 To LR

var = Cells(x, 1).Value

Set ie = CreateObject("internetexplorer.application")

ie.Visible = True

With ie

.Visible = True

.navigate "https://www.adviserinfo.sec.gov/"

While Not .readyState = READYSTATE_COMPLETE

Wend

End With

'Wait some to time for loading the page

While ie.Busy

DoEvents

Wend

Application.Wait (Now + TimeValue("0:00:02"))

ie.document.getElementById("ctl00_cphMain_sbox_txtIndvl").Value = var

'Here we are clicking on search Button

Set form = ie.document.getElementById("form-group")

Application.Wait (Now + TimeValue("0:00:02"))

Set button = form(0).submit

form(0).submit

'wait for page to load

While ie.Busy

DoEvents

Wend

Application.Wait (Now + TimeValue("0:00:02"))

Set var1 = ie.document.getElementById("ctl00_cphMain_rptrSearchResult_ctl00_ucIndvlItem_lblDisplayName").innerText

Cells(x, 2).Value = var1.innerText

ie.Quit

Set ie = Nothing

Next x



End Sub

My concept is when I give id or name of a person in excel A1 when I run macro it should go search in that webpage and paste data that related to that id or name in B2.

for example A1-has id 22554 it should search in web page and copy name and other details of person to B2 which will be helpful to validate data

Thanks in advance most appreciated for you help