Write Heading in excel

[Anu]

Hi,

I was able to get the values in the array but not write in excel.
Whenever i run the script it writes the first header in the excel many times but did not the next header.
The code is:

Code:

Dim sHeaderArray(100)
For i = 0 to 10 'specify your limit for value of n
sHeaderArray(i)= Browser("IE").Page("Google Search").Link("LinkName").GetROProperty("innertext")
'Next
'msgbox(sHeaderArray(0))
'For Wirting in Excel Sheet’
Dim xlApp, xlBook, xlSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open("F:\Test.xls")
Set xlSheet = xlBook.WorkSheets("Sheet1")
''*** Writing Header***'
      i = 0
    For Each sHeader in sHeaderArray
        i= i+ 1
        xlSheet.Cells(1, i).Value = sHeaderArray
    Next
    Next

Please help me

Waiting for response.

Regards,
Anu

[sasmitakumari]

Corrected....Try now....

Code:

Dim sHeaderArray(10)
For i = 0 to 10 'specify your limit for value of n
sHeaderArray(i)= Browser("IE").Page("Google Search").Link("LinkName").GetROProperty("innertext")
Next

'For Wirting in Excel Sheet’
Dim xlApp, xlBook, xlSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open("F:\Test.xls")
Set xlSheet = xlBook.WorkSheets("Sheet1")
''*** Writing Header***'
i = 0
For Each sHeader in sHeaderArray
  i= i+ 1
  xlSheet.Cells(1, i).Value = sHeader
Next

[Anu]

Hi,

Iahve done the modifications as per your mail...............
But didn't get the desired result..........
In my previous mail, i had mentioned the problem which is still present after running the modified the code....................
Please find the attached screen shot.
Hope this explain my problem...........

Regards,
Anu

[Anu]

Hi,

Please look into the issue so that i can proceed further..............
Regards,
Anu

[sreekanth chilam]

Hi Anu,

Try with the below code.

Note: Its written in Descriptive Prog., no need of adding objects in OR.
Directly copy below code > paste > Run > Check O/P in excel
Make sure excel file exist in the path "F\Test.xls"

Code:

Systemutil.Run "www.google.com"
Searched_Item="Page"
Browser("title:=Google").Page("title:=Google").WebEdit("name:=q").Set Searched_Item
Browser("title:=Google").Page("title:=Google").WebButton("name:=Google Search").Click
Dim xlApp
Set xlApp=CreateObject("Excel.Application")
xlApp.WorkBooks.Open("C:\Documents and Settings\Sreee\Desktop\Test.xls")
xlApp.Sheets("Sheet1").Select
Set obj=description.Create
obj("micclass").Value="Link"
Set x=Browser("title:="&Searched_Item&" - Google Search").Page("title:="&Searched_Item&" - Google 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

[MVChowdary]

Hi Sreekanth,

Perfect code, it is working fine.

[Anu]

Hi,

thnks................
The code is working fine. As u have used Descriptive programming it is little bit difficult for me to understand..................
I want to get good command over Descriptive programming so please suggest me.....................

Moreover,this code writtoing the result as a row wise i want in column wise........

Regards,
Anu

[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