vba code for automation

[icssushil]

Dear SirI want to enter data (roll numbers) from excel in site http://rajresults.nic.in/resbserx19.htm and the and extract the data received in excel. I had tried to write the code which is given below but unable to extract percentage or data from site. Please help.

Private Sub CommandButton1_Click()
Dim IE As ObjectSet IE = CreateObject("InternetExplorer.Application")
IE.navigate "http://rajresults.nic.in/resbserx19.htm"
IE.Visible = True
While IE.busyDoEvents 'wait until IE is done loading page.
Wend
IE.document.all("roll_no").Value = ThisWorkbook.Sheets("Sheet1").Range("B2")
Set doc = IE.document    
Do While doc.ReadyState <> "complete": DoEvents: Loop    doc.GetElementsByName("B1")(0).Click        strVal = IE.document.all("Percentage").Item(0).innerText    
ThisWorkbook.Sheets("Sheet1").Range("C2").Value = strVal    
End Sub

 

[Logit]

.
The macro, re-written as below ... got me to the first screen requesting the Roll Number and gave me an error for the false number I used :

Option Explicit


Sub CommandButton1_Click()
Dim IE As Object
Dim doc As Object
Dim strVal As String
Set IE = CreateObject("InternetExplorer.Application")


IE.navigate "http://rajresults.nic.in/resbserx19.htm"
IE.Visible = True


While IE.busy
    DoEvents 'wait until IE is done loading page.
Wend


IE.document.all("roll_no").Value = ThisWorkbook.Sheets("Sheet1").Range("B2")
Set doc = IE.document


Do While doc.ReadyState <> "complete": DoEvents: Loop


doc.GetElementsByName("B1")(0).Click
strVal = IE.document.all("Percentage").Item(0).innerText
ThisWorkbook.Sheets("Sheet1").Range("C2").Value = strVal


End Sub

Put your real Roll Number and Name in the appropriate cells and see what happens.

 

[icssushil]

I Put the roll no 1706641 in B2 but not getting its percentage in C2. I also need percentage of all the roll numbers entered in B2 in column C2. Please help.
I am getting run time error '424' object required.
Note; Roll numbers are increasing by 1.
Thanks

 

[Logit]

.

I also need percentage of all the roll numbers entered in B2 in column C2. Please help.

Sounds like there is a lot more going on with your code than I fully understand.

You'll need to explain is better detail because I don't understand the importance of the 'percentages' or what the
expected outcome is.

 

[icssushil]

Sir, my requirement is that I have roll numbers of few students who have appeared in Board exams. I want to see their results online (http://rajresults.nic.in/resbserx19.htm) and want to store their scored percentages in excel. In one column i will write all the roll numbers like
Roll No. Percentage
1706641 90
1706642 94.5
1706643 85.5
and so on
I need a macro which will pick one roll number at a time and after checking the result its scored percentage will be entered in excel next to its roll no.
I hope I have make my requirement clear this time.
Thanks and Regards

 

[Logit]

.
The PERCENTAGE is downloaded from the website you've listed in the code ?

If that is the scenario, regretfully I am not familiar with obtaining data from a website. There are many other volunteers on this
and other forums who are familiar. Hopefully someone else can assist you.

Thank you for your understanding.