Write Heading in excel

[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