Thanks sujit.... thanks a lot....
On Mon, Apr 16, 2012 at 11:17 PM, sujit kumar <[email protected]> wrote:
> Hi rags,
>
> q>How to fill color for a cell Ex: if TC is passed then fill cell with
> green color & fail with Red color ?
> Sol:>
>
>
>
> Set objExcel = CreateObject("Excel.Application")
> Set objWorkbook = objExcel.Workbooks.Open(strResultSheetLocation)
> Set objWorkSheet = objWorkbook.Worksheets(intSheetNumber)
> objWorkSheet.Activate
> For iCount = 0 to (UBound(arrResultData)-1)
> objWorkSheet.Cells(objExcel.ActiveCell.Row, sColumnId).Value =
> Trim(arrResultData(iCount))
> If iCount = 0 Then
> objExcel.Cells(objExcel.ActiveCell.Row, sColumnId).Font.Bold = True
> '
> use for Bold face
> objExcel.Cells(objExcel.ActiveCell.Row,
> sColumnId).HorizontalAlignment = xlCenter 'Use for Horizontal
> Alignment
> objExcel.Cells(objExcel.ActiveCell.Row,
> sColumnId).VerticalAlignment
> = xlCenter 'Use for Vertical Alignment
> If InStr(LCase(arrResultData(iCount)),"pass") <> 0 Then
> objExcel.Cells(objExcel.ActiveCell.Row,
> sColumnId).Interior.ColorIndex = 35
> ElseIf InStr(LCase(arrResultData(iCount)),"fail") <> 0 Then
> objExcel.Cells(objExcel.ActiveCell.Row,
> sColumnId).Interior.Color =
> RGB(255,128,128) 'Color Code
> End If
> End If
> sColumnId = sColumnId + 1
> Next
>
>
> I think this would be solve ur problem.
>
> thanks
> Sujit
>
> On 4/16/12, Deepak Kumar Mahapatro <[email protected]>
> wrote:
> > if you can manually set the iterationmode to single iteration then ignore
> > the AOM statements.
> >
> > On Mon, Apr 16, 2012 at 6:43 PM, Deepak Kumar Mahapatro <
> > [email protected]> wrote:
> >
> >> Set qtApp=GetObject("", "QuickTest.Application")
> >> qtApp.Test.Settings.Run.IterationMode="oneIteration"
> >> intRowCount=DataTable.GetSheet(<SheetID>).GetRowCount
> >> intFailCounter=0
> >> intPassCounter=0
> >> For intCounter=1 To intRowCount
> >> DataTable.SetCurrentRow intCounter
> >> If DataTable(<AttributeID>, <SheetID>)="Pass" Then
> >> intPassCounter=intPassCounter+1
> >> Elseif DataTable(<AttributeID>, <SheetID>)="Fail" Then
> >> intFailCounter=intFailCounter+1
> >> End If
> >> Next
> >> MsgBox intFailCounter
> >> MsgBox intPassCounter
> >> Set qtApp=Nothing
> >>
> >> use this code after completion of all testcases
> >>
> >> On Mon, Apr 16, 2012 at 6:10 PM, Deepak Kumar Mahapatro <
> >> [email protected]> wrote:
> >>
> >>> while exporting from datatable it exports only data not the styles we
> >>> applied in excel sheet but it imports those.
> >>> and before exporting the result you can count the no. of pass and no.
> of
> >>> fails
> >>>
> >>>
> >>> On Mon, Apr 16, 2012 at 10:04 AM, rags <[email protected]> wrote:
> >>>
> >>>> Hi All,
> >>>>
> >>>> Using parameterization concepts m trying to check the log in page,
> >>>> below is the script
> >>>>
> >>>>
> >>>> datatable.AddSheet "Login page parameterization-DMX"
> >>>> datatable.ImportSheet "D:\Rag's\DMX\Automation testing scripts
> >>>> \Automation test plan.xls",2,3
> >>>> Datatable.ImportSheet "D:\Rag's\DMX\Automation testing scripts
> >>>> \Automation test plan.xls",1,4
> >>>> Datatable.ImportSheet "D:\Rag's\DMX\Automation testing scripts
> >>>> \Automation test plan.xls",3,5
> >>>> rc=datatable.GetSheet(3).GetRowCount
> >>>> 'msgbox rc
> >>>>
> >>>> For i=1 to rc
> >>>> datatable.GetSheet(3).SetCurrentRow(i)
> >>>> systemutil.Run ""
> >>>>
> >>>> wait(20)
> >>>>
> >>>> Browser("DMX Admin").Page("Login
> >>>> page").WebEdit("txtUserName").Set
> >>>> datatable("UN",3)
> >>>> Browser("DMX Admin").Page("Login
> >>>> page").WebEdit("txtPassword").Set
> >>>> datatable("PASSWORD",3)
> >>>> Browser("DMX Admin").Page("Login page").Image("Login").Click
> >>>>
> >>>> wait(10)
> >>>>
> >>>> If Browser("DMX Admin").Page("Control panel").Image("User
> >>>> Manager").exist Then
> >>>> Datatable("ACTUALRESULT",3)="Pass"
> >>>> else
> >>>> Datatable("ACTUALRESULT",3)="Fail"
> >>>> End If
> >>>>
> >>>> If Datatable("ACTUALRESULT",3)="Pass" Then
> >>>> Datatable("STATUS",3)="Pass"
> >>>> else
> >>>> Datatable("STATUS",3)="Fail"
> >>>> End If
> >>>>
> >>>>
> >>>> If Browser("DMX Admin").Exist Then
> >>>> Browser("DMX Admin").Close
> >>>> End If
> >>>>
> >>>> Next
> >>>>
> >>>> Datatable.ExportSheet "D:\Rag's\DMX\Automation testing scripts
> >>>> \Automation test plan-result.xls",3
> >>>> datatable.ExportSheet "D:\Rag's\DMX\Automation testing scripts
> >>>> \Automation test plan-result.xls",4
> >>>> datatable.ExportSheet "D:\Rag's\DMX\Automation testing scripts
> >>>> \Automation test plan-result.xls",5
> >>>>
> >>>>
> >>>> Here i need script to count the total number of Test cases passes &
> >>>> Failed ?
> >>>> How to fill color for a cell Ex: if TC is passed then fill cell with
> >>>> green color & fail with Red color ?
> >>>>
> >>>> --
> >>>> 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
> >>>>
> >>>
> >>>
> >>>
> >>> --
> >>> Regards,
> >>> Deepak
> >>>
> >>
> >>
> >>
> >> --
> >> Regards,
> >> Deepak
> >>
> >
> >
> >
> > --
> > Regards,
> > Deepak
> >
> > --
> > 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
> >
>
>
> --
> Thanks & Regards
> Sujit
>
> --
> 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
