Login

Anu · 07-01-2010, 06:13 PM

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 · 07-01-2010, 11:10 PM

Hi,

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

Anu · 07-12-2010, 01:37 PM

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-13-2010, 09:56 AM

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

Createobject("Excel.application")

Anu · 07-13-2010, 02:34 PM

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. Sad

Regards,
Anu

sasmitakumari · 07-13-2010, 02:58 PM

Anu · 07-26-2010, 11:40 AM

sasmitakumari · (This post was last modified: 07-26-2010, 05:26 PM by 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 · 07-26-2010, 05:35 PM

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

sasmitakumari · 07-26-2010, 07:14 PM

Do you mean your header would contain the headings of search result?
If so, get the headers of the search result and store them in an array.
And then use that array in above logic for displaying the header in the excel sheet.

Login
Username:
Password:	Lost Password?
	Remember me

Possibly Related Threads…
Thread		Author	Replies	Views	Last Post
	Write in Excel Continued	Anu	3	3,826	08-27-2010, 08:53 AM Last Post: basanth27
	Write in Excel	Anu	48	37,387	08-25-2010, 06:08 PM Last Post: Saket