<select id="CaseStatus" class="filter dropcheck" dispWidth="167" chk="A" multiplestyle="display:none"> <option value="0,1">PreSale</option> <option value="2,3,4">Running</option> <option value="5">Sold</option> <option value="6">Canceled</option>
Do DoEvents Loop Until MyBrowser.readyState = 4 Set optCollections = HTMLDoc.getElementsByTagName("option") For Each opts In optCollections If opts.innerText = "PreSale" Then opts.Selected = True End If If opts.innerText = "Running" Then opts.Selected = True End If If opts.innerText = "Sold" Then opts.Selected = False End If If opts.innerText = "Canceled" Then opts.Selected = False HTMLDoc.all.testBut.Click Exit For End If Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)