Write in Excel

[Anu]

Hi,

i tried by removing the parathesis but now error is coming on below line:
If ((temp%10)=0) Then
Please find the screen shot.

[venkatbatchu]

Hi Anu,

Try with the below code.

Code:

temp=10
result=temp mod 10
If result=0 Then
Browser("xxxxxxxxx").Page("xxxxxxxxx").Weblink("Next").Click
End If

Please use the appropriate terminology thats suits for ur frame work
Please let me know for further clarification.


Regards,
Venkat.Batchu

[Anu]

Hi,

After doing the said modification, again error is coming on below line

Datatable.AddParameter "CustomerName",""

---

Please look into the code given by me having excel object and please provide a work around for this problem...........

Regards,
Anu

[venkatbatchu]

Hi,

Use the paranthesis for the below one...

Code:

Datatable.AddParameter ("CustomerName","")

Let me know for further clarification.


Regards,
Venkat.Batchu

[Anu]

Hi,

After adding the paranthesis, it is not working. This throughing he following error

[venkatbatchu]

If you are intrested to give url and then i can try to give complete code for the thing which u wnat.

Regards,
Venkat.Batchu

[Anu]

Hi,

The url is "http://bsnl.co.in/onlinedirectory.htm"
On opening the url, select Gujarati Language.

Regards,
Anu

[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....

[Anu]

Hi,

Could you please tell me where it will write the data?

Regards,
Anu

[venkatbatchu]

Hi Anu,

First it will write the data to the data table onCe all data comes to data table i.e by executing script then we can export the data at last to external source i.e excefile which will be stroed in ur disk.

Please let me know for further clarification.

Regards,
Venkat.Batchu