QTP SCRIPT for Creating charts in excel

'Creating charts using excel

Option explicit

Dim oex, owb, ows, orng, och, i

'goto excel sw

            Set oex=createobject("Excel.Application")

            oex.Visible=true

'go to excel wb

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

'goto excel sw

            Set ows=owb.Worksheets("Sheet3")

'set range

            Set orng=ows.range("B2","C21")

'create charts

            For i=61 to 70 step 1

                        Set och=owb.Charts.add

                        och.name="ind vs pak"

                        och.charttype=i

                        och.setsourcedata orng, 2

                        och.location 2, "Sheet3"

   Next

'close excel

            owb.Save

            oex.Quit

'destroy objects

            Set ows=nothing

            Set owb=nothing

            Set oex=nothing

'Rename excel 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("1")

'Rename Sheet

            ows.name="Mindq"

'save excel

            owb.Save

'close Excel

            oex.Quit         

'Destroy objects

            Set ows=nothing

            Set owb=nothing

            Set oex=nothing