Write Heading in excel

[Anu]

Hi,

for google it is working fine but if i change the url then it creates problem ..... the code the mentioned below:

Code:

Systemutil.Run "http://tdil-dc.in/clia-beta-working/locale.jsp?te"
Searched_Item="ఫతేపూర్‌ "
Browser("title:=tdil-dc.in/clia-beta-working/redirect").Page("title:=tdil-dc.in/clia-beta-working/redirect").WebEdit("name:=q").Set Searched_Item
Browser("title:=tdil-dc.in/clia-beta-working/redirect").Page("title:=tdil-dc.in/clia-beta-working/redirect").WebButton("name:=tdil-dc.in/clia-beta-working/redirect Search").Click
Dim xlApp
Set xlApp=CreateObject("Excel.Application")
xlApp.WorkBooks.Open("F:\Test.xls")
xlApp.Sheets("Sheet1").Select
Set obj=description.Create
obj("micclass").Value="Link"
Set x=Browser("title:="&Searched_Item&" - tdil-dc.in/clia-beta-working/redirect Search").Page("title:="&Searched_Item&" - tdil-dc.in/clia-beta-working/redirect Search").ChildObjects(obj)
   temp=0
   For i=0 to x.count-1
        If (instr(1,x(i).GetROproperty("Innertext"),Searched_Item)>0) Then
              xlApp.Cells(1,temp+1).Value=(x(i).GetROproperty("Innertext"))
              xlApp.Cells(1,temp+1).font.Bold=True
              temp=temp+1
        End if
   Next
   xlApp.ActiveWorkBook.Save
   xlApp.Quit
   Set xlApp=Nothing

Please look it into on urgent basis................
Thanks for your co -operation.

Regards,
Anu