Write Heading in excel

[Anu]

i did not understand but i am pasting the code which i am using :
CODE:---------------------------------------

Code:

SystemUtil.Run "F:\Program Files\Internet Explorer\iexplore.exe","","F:\Documents and Settings\Anu","open"
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://google.com/"
Browser("Browser").Page("Google").WebEdit("q").Set "header"
Browser("Browser").Page("Google").WebEdit("q").Submit
'For Wirting in Excel Sheet’
Dim xlApp, xlBook, xlSheet ,sHeaderArray()
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
        ExcelSheet.ActiveSheet.Cells(1, i).Value = sHeader
    Next
' Save the sheet.
xlBook.Save
' Close Excel with the Quit method on the Application object.
xlApp.DisplayAlerts = False
xlApp.Quit
' Release the object variable.
Set ExcelSheet = Nothing
Set objExcel = Nothing