Write in Excel

[venkatbatchu]

Hi Anu,
Try with the below code it works fine
i have taken few assumptions.intrcount=22

Code:

intrcount=22
Datatable.GlobalSheet.AddParameter "Phoneno",""
Datatable.GlobalSheet.AddParameter "Name",""
Datatable.GlobalSheet.AddParameter "Address",""
temp1=0
For temp=2 to intrcount-1 step 1
temp1=temp1+1
Datatable.SetCurrentRow(temp1)
intphoneno=Browser("BSNL GUJARAT TELECOM CIRCLE:Ma").Page("BSNL GUJARAT TELECOM CIRCLE:Ma").WebTable("innertext:=Phone no.*").GetCellData(temp,1)
strname=Browser("BSNL GUJARAT TELECOM CIRCLE:Ma").Page("BSNL GUJARAT TELECOM CIRCLE:Ma").WebTable("innertext:=Phone no.*").GetCellData(temp,2)
straddress=Browser("BSNL GUJARAT TELECOM CIRCLE:Ma").Page("BSNL GUJARAT TELECOM CIRCLE:Ma").WebTable("innertext:=Phone no.*").GetCellData(temp,3)
Datatable.Value("Phoneno","Global")=intphoneno
Datatable.Value("Name","Global")=strname
Datatable.Value("Address","Global")=straddress
If (temp-1) mod 10=0 Then
Browser("BSNL GUJARAT TELECOM CIRCLE:Ma").Page("BSNL GUJARAT TELECOM CIRCLE:Ma").Link("Next").Click
Browser("BSNL GUJARAT TELECOM CIRCLE:Ma").Sync
Browser("BSNL GUJARAT TELECOM CIRCLE:Ma").Page("BSNL GUJARAT TELECOM CIRCLE:Ma").Sync
temp=temp-10
End If
Wait 1
Next

Please let me know for further clarification



Regards,
Venkat.Batchu....