How to Automate the Excel Workbook in QTP

Back to Menu

How to Automate the Excel Workbook in QTP

Set XLobj=CreateObject("Excel.AppLication")

XLobj.Visible=True

XLobj.Workbooks.Add


Set Wbook=XLobj.Workbooks(1)

Set Wsheet=Wbook.Worksheets(1)

Wsheet.Name="ReportSheet"

Wsheet.cells(1,1)="Hello"


Wbook.SaveAs "C:\XL.xls"

Back to Menu