Header Ads

Create an excel sheet and enter a value into first cell through QTP

Dim objexcel
Set objExcel = createobject("Excel.application")
objexcel.Visible = True
objexcel.Workbooks.add
objexcel.Cells(1, 1).Value = "Testing"
objexcel.ActiveWorkbook.SaveAs("D:\ani.xls")
objexcel.Quit
Powered by Blogger.