10-29-2012, 11:14 AM
Try the Below Code,
Code:
Set objDescription= Description.Create()
objDescription("name").value="FNOLWizard:NewClaimWizard_Poli.*"
Set weblistObjects=Browser("[DEV mode - 7.0.2.29]").Page("[DEV mode - 7.0.2.29]").Frame("top_frame_2").ChildObjects(objDescription)
Spl_myframe=split(myframe,";")
For i=0 to Ubound(Spl_myframe)
mycoverag = Spl_myframe(i)
Browser("[DEV mode - 7.0.2.29]").Page("[DEV mode - 7.0.2.29]").Frame("top_frame_*").Link("Add").Click 21,12
Set weblistObjects=Browser("[DEV mode - 7.0.2.29]").Page("[DEV mode - 7.0.2.29]").Frame("top_frame_2").ChildObjects(objDescription)
weblistObjects(i).Select (mycoverag)
Next