Hi, I think if we have QTP use for the above scenario, its all very simple. Data drive the test script by putting a checkpoint on the page. Write the checkpoint's output parameter to the datasheet itself. I hope thats pretty easy approach subject to availability of QTP. However if you donot have QTP, you can still use some of the free tools available in industrty
Regards, articlesontesting.com On Jul 16, 7:29 pm, "Byzoor.,IAS" <[email protected]> wrote: > Hi , > > After Getting the Cell value from excel sheet use this fn, it will update > the value.. > > 'To get value from Excel file > Function GetData(ByVal strFilePath,ByVal strSearchText) > Dim oWorkSheets > Dim oExcel:Set oExcel=CreateObject("Excel.Application") > oExcel.Visible=False > oExcel.DisplayAlerts=False > Set oWorkSheets=oExcel.WorkBooks.Open(strFilePath).WorkSheets(1) > GetData=oWorkSheets.Cells(Split(oWorkSheets.Range("A:A").Find(strSearchText > ).Address,"$")(2),2).Value > oExcel.Quit > Set oWorkSheets=Nothing > Set oExcel=Nothing > strFilePath=Empty > strSearchText=Empty > End Function > > 'To Write the value to Excel file > Function WriteData(ByVal strFilePath,ByVal strID,ByVal strData) > Dim oWorkSheets,inUsedCount > Dim oExcel:Set oExcel=CreateObject("Excel.Application") > oExcel.Visible=False > oExcel.DisplayAlerts=False > Set oWorkSheets=oExcel.WorkBooks.Open(strFilePath).WorkSheets(1) > inUsedCount=oWorkSheets.UsedRange.Rows.Count > oWorkSheets.Cells(inUsedCount+1,1).Value=strID > oWorkSheets.Cells(inUsedCount+1,2).Value=strData > oExcel.WorkBooks(1).Save > oExcel.Quit > Set oWorkSheets=Nothing > Set oExcel=Nothing > strFilePath=Empty > End Function > > Function ExcelDtaIO(sXls,sSht,sRow,sFld,sDta) > On Error Resume Next > Dim objExcel, objWorkBook, objSheet > Set objExcel = CreateObject("Excel.Application") > Set objWorkBook = objExcel.Workbooks.Open(sXls) > Set objSheet = objWorkBook.Worksheets(sSht) > > '*** Get column number based on field name *** > CurCol = 1 > CurColNum = 0 > Do While Trim(objSheet.Cells(1, CurCol).Value) <> Empty > CurCellVal = Trim(objSheet.Cells(1, CurCol).Value) > If CurCellVal = sFld Then > CurColNum = CurCol > Exit Do > End If > CurCol = CurCol + 1 > Loop > > If sRow = "" Then > sRow = DataTable.GetSheet(sSht).GetCurrentRow > End If > > '*** Put to or Get from specific cell of current excel file *** > If sDta <> Empty Then > '*** Update specific cell of current excel file *** > objSheet.Cells(sRow+1, CurColNum).Value = sDta > objWorkBook.Save > ExcelDtaIO = Empty > Else > ExcelDtaIO = Trim(objSheet.Cells(sRow+1, CurColNum).Value) > End If > objWorkBook.Close True > > '*** Destroy objects created by this fucntion *** > Set objSheet = Nothing > Set objWorkBook = Nothing > Set objExcel = Nothing > > End Function > > Happy Tester, > Byzoor, > > > > > > > > On Sat, Jul 16, 2011 at 8:03 AM, uma mahesh <[email protected]> wrote: > > IC Ok then you can use this code > > > Option Explicit > > Dim var1, var2, var3, rc, i, agent, pass > > Set var1=createobject("Excel.application") > > Set var2=var1.workbooks.open("path of excel sheet") > > Set var3=var2.worksheets("sheet1") > > rc=var3.usedrange.columns.count ' this will give the no.of links > > available in the coulmn > > MsgBox rc > > For i=1 to rc > > link=var3.cells("1", i) > > Next > > > -- > > You received this message because you are subscribed to the Google > > "QTP - HP Quick Test Professional - Automated Software Testing" > > group. > > To post to this group, send email to [email protected] > > To unsubscribe from this group, send email to > > [email protected] > > For more options, visit this group at > >http://groups.google.com/group/MercuryQTP?hl=en -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en
