Write Heading in excel

[Anu]

hi,

I want to write Name, Address,ID as a heading in different coloumns of excel using QTP.

Thnks in advance...........

Regards,
Anu

[sreekanth chilam]

Hi,

Use Excel COM's for this and suggest you to google it in this forum , You can implement on your own

[Anu]

Hi,

i google Excel COM's but did not find any related topic on it.
could u please elaborate on it or mail me any link so that i can work on it.

Thnks,
Anu

[basanth27]

(07-12-2010 01:37 PM)Anu Wrote:  Hi,

i google Excel COM's but did not find any related topic on it.
could u please elaborate on it or mail me any link so that i can work on it.

Thnks,
Anu

With the spoon closer to the mouth now, try googling for,

Createobject("Excel.application")

[Anu]

Hi,

Thnks for your reply................

My query is that suppose i googled anything like 'page' and on the basis of my query it shows the result.
The screen shot is attached below................

Now i want to write the heading to excel using QTP.Moreover, the heading changes as i changed my searching criteria.

Hope, this explains my problem.

Regards,
Anu

[sasmitakumari]

Refer following link
http://www.sqaforums.com/showflat.php?Ca...earch=true
Look into the code section for "Insert header into the sheet"

[camilos]

You can simulate this by disabeling the column&row headings,and typing
your own column headers in the first row and the split the window on
the first row and the do freeze panes. Throw in a few colors to make it
look good and presto, almost as good as real column headers.

DM Unseen

[Anu]

Hi,
i used the link http://www.sqaforums.com/showflat.php?
but did not get the required result.
Could you please elaborate your solution so that i can use it properly.
Waiting for reply............

Regards,
Anu

(07-13-2010 02:58 PM)sasmitakumari Wrote:  Refer following link
http://www.sqaforums.com/showflat.php?Ca...earch=true
Look into the code section for "Insert header into the sheet"

[sasmitakumari]

Hi Anu,
You need to save the file to see the result after run.
Try this out.

Code:

Dim sHeader, sHeaderList
Dim ExcelSheet
Dim sPath,sDataFile
Dim FSO, bFileFlag,sMyFile
Dim objExcel,i

sHeader  = "Name,Address,ID"
sPath = "C:\"
sDataFile  = "DataFile.xls"

Set FSO = CreateObject("Scripting.FileSystemObject")
  
    bFileFlag = FSO.FileExists(sPath & sDataFile)
   If(Not bFileFlag) Then
        Set sMyFile = FSO.CreateTextFile (sPath & sDataFile, True, False)
        sMyFile.Close
        Set FSO = Nothing
    End If
    
    Set objExcel = CreateObject ("Excel.Application")
    objExcel.DisplayAlerts = False
Set ExcelSheet = CreateObject("Excel.Sheet")
' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
'*** Writing Header***'
  sHeaderList = Split(sHeader, ",")
    i = 0
    For Each sHeader in sHeaderList
        i = i + 1
        ExcelSheet.ActiveSheet.Cells(1, i).Value = sHeader
    Next
' Save the sheet.
ExcelSheet.SaveAs "C:\DataFile.xls"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing
Set objExcel = Nothing

[Anu]

Hi,

Thnks for your reply, but the reply seems that u could not understand my query.
My problem is that my header is dynamic and it is changing every time i change my search criteria.
Hope this explain my problem.................

Regards,
Anu

(07-26-2010 05:24 PM)sasmitakumari Wrote:  Hi Anu,
You need to save the file to see the result after run.
Try this out.

Code:

Dim sHeader, sHeaderList
Dim ExcelSheet
Dim sPath,sDataFile
Dim FSO, bFileFlag,sMyFile
Dim objExcel,i

sHeader  = "Name,Address,ID"
sPath = "C:\"
sDataFile  = "DataFile.xls"

Set FSO = CreateObject("Scripting.FileSystemObject")
  
    bFileFlag = FSO.FileExists(sPath & sDataFile)
   If(Not bFileFlag) Then
        Set sMyFile = FSO.CreateTextFile (sPath & sDataFile, True, False)
        sMyFile.Close
        Set FSO = Nothing
    End If
    
    Set objExcel = CreateObject ("Excel.Application")
    objExcel.DisplayAlerts = False
Set ExcelSheet = CreateObject("Excel.Sheet")
' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
'*** Writing Header***'
  sHeaderList = Split(sHeader, ",")
    i = 0
    For Each sHeader in sHeaderList
        i = i + 1
        ExcelSheet.ActiveSheet.Cells(1, i).Value = sHeader
    Next
' Save the sheet.
ExcelSheet.SaveAs "C:\DataFile.xls"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing
Set objExcel = Nothing