Anand, I am not getting your point. could u explain little bit more
Happy Tester, Byzoor, On Sat, Jul 16, 2011 at 8:47 PM, Mr. Anand <[email protected]> wrote: > 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 -- 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
