Forum Discussion

salley's avatar
salley
Frequent Contributor

Thanks for looking into it, I'm trying to do something like that can you please look at it Thanks !

 

Sub PracticeDriverScript
Dim sAtiveLogin
sAtiveLogin=Trim(ObjWorkSheet.Cells(2,3))
If sAtiveLogin <>"Y" Then
log.Error "Please Set Y to desired Active User"
Runner.Stop
Else
Call Sc_1
Call Sc_2
Call Sc_3
End If
End Sub

'+++++++++++++++++++++++++++++++++++++++++
Sub Sc_1
product = Trim(ObjWorkSheet.Cells(td_row,2))
quantity = Trim(ObjWorkSheet.Cells(td_row,3))

End Sub
'++++++++++++++++++++
Sub Sc_2
date1 = Trim(ObjWorkSheet.Cells(td_row,4))
customer_name = Trim(ObjWorkSheet.Cells(td_row,5))


End Sub
'++++++++++++++++++++
Sub Sc_3
street = Trim(ObjWorkSheet.Cells(td_row,6))
city = Trim(ObjWorkSheet.Cells(td_row,7))

End Sub
'++++++++++++++++++++++

Sub EventControl1_OnStartTest(Sender)
Set ObjExcelApp=Sys.OleObject("Excel.Application")
Set ObjWoorkBook=ObjExcelApp.Workbooks.Open("C:\Users\A6S\Desktop\Sampleworkbook.xlsx")
Set ObjWorkSheet=ObjWoorkBook.Sheets("Agent_Id_Pwd")
End Sub

Marsha_R's avatar
Marsha_R
Moderator
8 years ago

Are you having problems with this code?  I see a typo here:

 

Set ObjWorkSheet=ObjWoorkBook.Sheets("Agent_Id_Pwd")

 

ObjWoorkBook should be ObjWorkBook  

 

 

  • salley's avatar
    salley
    Frequent Contributor
    8 years ago

    got it, thank you so much. it's working. Now i'm trying to create a loop and call SC_4 and SC_5 within that loop. one of the column has an indicator "execute" so i only need to run those tests that has an indicator "execute". I'm just confuse how to do it. any help clue will work. 

    thanks a lot