Answer / feroz

Dim objWord
Dim wrdDoc
set objword = CreateObject("Word.Application")
objword.visible = true
Set wrdDoc = objword.Documents.Add
wrdDoc.Range.InsertBefore "Hi Good Morning!"
wrdDoc.SaveAs "C:\Greetings.doc"
objword.quit
Set objword = nothing

Answer / ashish wadhwa

'For Excel

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True


'Adding the workbook
Set objWorkbook = objExcel.Workbooks.Add

'Adding the text in the workbook in 1st row and 1st Column
objExcel.Cells(1, 1).Value = "Hi This is me Ashish"

'Saving the excel file
objWorkbook.SaveAs("D:\Sample.xls")

Answer / ashish wadhwa

'For TextFile

'Creating a file system object
Dim objFSO

'Creating a text file object
Dim objTextFile

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("D:\SampleFile.txt"
,True)

objTextFile.Write("Sample Automation Example of saving text
file"

objTextFile.Close

Answer / nani

wt abt for text file and excel files?

Answer / jagdish

'For Excel

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True


'Adding the workbook
Set objWorkbook = objExcel.Workbooks.Add

'Adding the text in the workbook in 1st row and 1st Column
objExcel.Cells(1, 1).Value = "Hi This is me Ashish"

'Saving the excel file
objWorkbook.SaveAs("D:\Sample.xls")

suppose i have one datatable in my datatable in 2 nd row 3rd column one link is ther i need to validate that link how do u do this?(wipro)

4 Answers   Fidelity, Wipro,

While creating Recovery Scenario for Pop-up window..In 'Recovery operation' we have to call a function. Can u tell me that function.

4 Answers   Alcatel-Lucent, Ordain Solutions,

Is QTP supports Unix. If yes, then how the test automation is done?

0 Answers   iFlex,

what is run-time object in qtp? explain with example?

2 Answers  

How we can differentiate between stand alone application and web application in QTP?

3 Answers   Deloitte,

Dim ExcelSheet Set ExcelSheet = CreateObject("Excel.Application") excelsheet.application.visible = true ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1" ' Save the sheet. ExcelSheet.SaveAs "C:\DOCS\TEST.XLS" ' Close Excel with the Quit method on the Application object. ExcelSheet.Application.Quit after run this script i am getting error"The test cannot continue due to unrecoverable error"

3 Answers  

HI ALL I AM WORKING AS A AUTOMATION ENGINEER FROM PAST 2 MONTHS IN QTP,MY QUESTION IS IF I OPEN THE BROWSER FIRST & THEN THE QTP LATER MY OBJECT SPY WILL NOT WORK,Y IT IS SO..IF U HAVE THE ANSWER PLZ MAIL ME AT AKSHAR.MYSORE@GMAIL.COM

8 Answers   Infosys, TCS,

Hi, Any one have the crack for QTP 10.0,if so could you please send it to phanijuly10@gmail.com

2 Answers  

If an application name is changes frequently i.e while recording it has name, in this case how does QTP handles?

1 Answers  

Scripts for Ascending order in qtp.

3 Answers  

How to add check point?

2 Answers  

A web page title might be xxxx@xyz.com or xxxy@xxx.co or xyz@abc.in.Using what mandatory properties can be the page identified.Give the regular expression for that.

3 Answers   Virtusa,