Hi all,
I've been having trouble trying to manipulate a dropdown/combobox in internet explorer. The combo box looks as below
[ATTACH=CONFIG]66743[/ATTACH]
I can see the HTML for the element reads as below
HTML
<div title="Default" style="position: absolute; z-index: 11;"><input type="text" name="FMT_TYP_CDtxt" id="FMT_TYP_CDtxt" class="combo-input"
tabindex="0" readonly=""><input type="hidden" name="FMT_TYP_CD" value="HTML"><img src="___" style="width: 1px; height: 0px;"><button
class="combo-button" type="button">▼</button><div class="combo-list" style="display: block;"><table class="combo-list-width" id="FMT_TYP_CDTable"
cellpadding="0" cellspacing="0"><tbody><tr><td class="combo-item" title="Default"
onclick="FMT_TYP_CD.choose_event('HTML','Default');FMT_TYP_CD.opslist.style.display='none';" onmouseover="this.className='combo-hilite';"
onmouseout="this.className='combo-item'"> Default </td></tr><tr><td class="combo-item" title="Microsoft Excel"
onclick="FMT_TYP_CD.choose_event('XLS','Microsoft Excel');FMT_TYP_CD.opslist.style.display='none';" onmouseover="this.className='combo-hilite';"
onmouseout="this.className='combo-item'"> Microsoft Excel </td></tr><tr><td class="combo-item" title="PDF"
onclick="FMT_TYP_CD.choose_event('PDF','PDF');FMT_TYP_CD.opslist.style.display='none';" onmouseover="this.className='combo-hilite';"
onmouseout="this.className='combo-item'"> PDF </td></tr><tr><td class="combo-item" title="EMAIL"
onclick="FMT_TYP_CD.choose_event('EMAIL','EMAIL');FMT_TYP_CD.opslist.style.display='none';" onmouseover="this.className='combo-hilite';"
onmouseout="this.className='combo-item'"> EMAIL </td></tr></tbody></table></div></div>
Display More
I'm attempting to select EMAIL from the dropdown box. I can change the value of FMT_TYP_CDtxt to EMAIL, however when I submit this it reverts back to default. I have also noticed that I'm able to change the value to anything, even if it is not in the dropdown list. This makes me think that referencing FMT_TYP_CDtxt is incorrect.
Please see my code so far
Code
Sub EQSDataInput()
Dim ie As Object
Dim frm As Variant
Dim ipbx As Variant
Dim btnGo As Variant
Dim element As Variant
Dim eqslink As String
Dim CUSIPS As Variant
Dim optionIndex As Integer
CUSIPS = Application.WorksheetFunction.Transpose(Range("B1", Range("B" & Rows.Count).End(xlUp)))
eqslink = "xxxx"
Set ie = New InternetExplorerMedium
ie.navigate eqslink
While ie.readyState <> 4: DoEvents: Wend
'Input Static Values
Set frm = ie.document.getElementsByName("INCORE_BAL_TYPE")(0)
frm.Value = "352"
Set frm = ie.document.getElementsByName("INCPNY_CD")(0)
frm.Value = "0302"
Set ipbx = ie.document.getElementsByName("FMT_TYP_CDtxt")(0)
ipbx.Value = "EMAIL"
'Loop for CUSIPS
For i = 1 To UBound(CUSIPS)
Set frm = ie.document.getElementsByName("SECURITY")(0)
frm.Value = CUSIPS(i)
Set btn = ie.document.getElementsByName("submitButton")(0)
btn.Click
ie.Visible = True
While ie.readyState <> 4: DoEvents: Wend
Next i
End Sub
Display More
I'm literally at the end of my tether and I would appreciate any assistance massively. This is the last part of the process and it's killing me.
Thanks,
Binning