QTPSCRIPT to Add new worksheet

'Add new worksheet

             Option explicit

             Dim oex, owb, ows

'goto excel sw

            Set oex=createobject("Excel.Application")

            oex.Visible=true

'goto workbook

            Set owb=oex.Workbooks.Open("F:\Book1.xls")

'goto worksheet

            Set ows=owb.Worksheets.add

'Rename Sheet

'save excel

            owb.Save

'close Excel

            oex.Quit         

'Destroy objects

            Set ows=nothing

            Set owb=nothing

            Set oex=nothing