QTP Script to delete first two columns data of excel sheet-VB Script to delete first two columns data of excel sheet

QTP Script to delete first two columns data of excel sheet

dim a,b,c,d
set a=createobject("Excel.Application")
a.visible=true
set b=a.workbooks.open("D:\abc.xls")
set c=b.worksheets(1)
c.Columns("A:B").Delete