Write Heading in excel

[Anu]

Hi,

I used array for Header but while writing it into the excel the code given by you is :
*** Writing Header***'

Code:

sHeaderList = Split(sHeader,",")
    i = 0
    For Each sHeader in sHeaderList
        i = i + 1
        ExcelSheet.ActiveSheet.Cells(1, i).Value = sHeader
    Next

As i declared header as array then what changes should i do in the above code as i am getting confuse between sHeader & sHeaderList.
Please explain me so that i can proceed further.
Thanks in advance...................

Regards,
Anu

[sasmitakumari]

Since in my example I have kept all headers in a single string with comma separated , I had used Split function to get individual header. Now you should omit that line...
Ex: If your array name is "sHeaderArray" then...
*** Writing Header***'

Code:

i = 0
For Each sHeader in sHeaderArray
i = i + 1
ExcelSheet.ActiveSheet.Cells(1, i).Value = sHeader
Next

[Anu]

Hi,

I have done the modifications as per your reply. But not able to write in excel
However for writing in excel code is little bit different from yours code......

Code:

'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

I am using the above code. Could ypu please tell me why is it not writting the header to excel.
Waiting for reply..........

Regads,
Anu

[sasmitakumari]

Are you getting values and storing it in sHeaderArray before you running this logic? And after running above code, are you getting any run time error? If not, is the "F:\Test.xls" exists after you run?

[Anu]

Hi,

I did not get you.................

[sasmitakumari]

you said "why is it not writting the header to excel.?", to make it more clear... You are using one array to keep your headings , right?
so before you write to excel sheet, I just wanted to confirm if your array contains any value?
like sHeaderArray(0) = "test", etc...

[Anu]

No, it did not contain any value.
I declare it as Dim sHeaderArray()
Please correct me if i declare it in a worng way.
Waiting for early reply...........

Regards,
Anu

[sasmitakumari]

Are you able to get the search result headings using QTP? If so, can you provide your code that you are using to get the search result headings?

[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

[sasmitakumari]

ok, after submit, use GetROProperty method to get the search result headings, if the properties of the page are not uniquely identified use descriptive programing. and keep them in a array. See the example, do not take as it is , try urself and apply your logic.
Ex:

Code:

Dim sHeaderArray(100)
For i = 0 to n 'specify your limit for value of n
sHeaderArray(i) =  Browser("Browser").Page("Google").Link().GetROProperty("text")
Next

After you have value in your array, use the logic to write the header in your excel.