hi ,
i have created a Excel sheet in the QTP script by using createobject
method . Now there is anther script where i have to retrive the value
of each row from that excel sheet and delete it .since i am able to
retrive the value from the excel sheet but cant delete the whole row ..
please help me
i m sending you the code for the retriving the row values ...

Dim objExcel, strPathExcel,strCN
Dim objSheet, intRow

intRow = 6
Set objExcel = CreateObject("Excel.Application")
strPathExcel = "C:\ALTable1\tablew13 July.xls"
objExcel.Workbooks.open strPathExcel
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
'Do Until objExcel.Cells(intRow,1).Value = ""
strCN1 = Trim(objSheet.Cells(intRow, 1).Value)
msgbox strCN1
strCN = Trim(objSheet.Cells(intRow, 2).Value)
msgbox strCN
strCN2 = Trim(objSheet.Cells(intRow, 3).Value)
msgBox strCN2



PLEASE HELP ME AS SOON AS POSSIBLE
thanks


--
sweta26_kum
------------------------------------------------------------------------
sweta26_kum's Profile: http://www.excelforum.com/member.php...o&userid=36477
View this thread: http://www.excelforum.com/showthread...hreadid=562404