Make Selection from Website Popup Window

hilary4477 · Mar 31st 2016

On a website, I click on tab that pulls up a popup window. From there I can make a selection which then pulls up more options on the same popup window. My code works to open the popup window, but how can I select an option from it to make my further selections?

Here's what I have tried:

Code

'Get the only form on the page
    Set SiteFilter = doc.forms(0)
          
    Dim TSfilter1 As HTMLInputElement
    Dim TSfilter2 As HTMLInputElement
    
    
    'Select the COE/Dept to filter
    '<span id="ctl00_ContentPlaceHolder1_myFilter_lblCOE" title="COE/Dept. (this filter does not apply to EOC)">COE/Dept.</span>




    IE.Document.getElementById("ctl00_ContentPlaceHolder1_myFilter_lblCOE").Click
        Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop




    Debug.Print IE.Document.getElementById("ctl00_ContentPlaceHolder1_myFilter_updT2") '.SelectValue = "ETS"
        Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
'
'    IE.Document.getElementById("ctl00_ContentPlaceHolder1_myFilter_TIER3").Value = "Test Systems"
'        Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
'
    
    
'    Set TSfilter1 = SiteFilter.elements("ctl00_ContentPlaceHolder1_myFilter_lblCOE")
'    TSfilter1.Click
'
'    Set TSfilter2 = SiteFilter.elements("ctl00_ContentPlaceHolder1_myFilter_updT2")
'    TSfilter2.Value = "ETS"

Display More

Popup window code for the first option:

Code

<div id="ctl00_ContentPlaceHolder1_myFilter_pnlCOE" class="popupMenu" style="position: absolute; visibility: visible; left: 129px; top: 202px; width: 793px;">
    
                <div style="font-weight: bold">
                    COE (does not apply to EOC)
                </div>
                <table>
                    <tbody><tr>
                        <td align="left" valign="top">
                            <div id="ctl00_ContentPlaceHolder1_myFilter_updT2">
                                    <select size="4" name="ctl00$ContentPlaceHolder1$myFilter$TIER2" multiple="multiple" onchange="javascript:setTimeout('__doPostBack(\'ctl00$ContentPlaceHolder1$myFilter$TIER2\',\'\')', 0)" id="ctl00_ContentPlaceHolder1_myFilter_TIER2" style="font-family:Tahoma;;font-size:8pt;height:300px;width:100px;">
    <option value="-1">All</option>
    <option value="ADV TECH">ADV TECH</option>
    <option value="AEE">AEE</option>
    <option value="AME">AME</option>
    <option value="CPE">CPE</option>
    <option value="CPS">CPS</option>
    <option value="ECOE">ECOE</option>
    <option value="EOPS">EOPS</option>
    <option value="ESEA">ESEA</option>
    <option selected="selected" value="ETS">ETS</option>
    <option value="ISC">ISC</option>
    <option value="MCOE">MCOE</option>
    <option value="MPM">MPM</option>
    <option value="MSEA">MSEA</option>
    <option value="PI">PI</option>
    <option value="PMO">PMO</option>
    <option value="PSE">PSE</option>
    <option value="SBU ATR">SBU ATR</option>
    <option value="SBU BGA">SBU BGA</option>
    <option value="SBU DS">SBU DS</option>
    <option value="TIER1 ONLY">TIER1 ONLY</option>




</select>
                                </div>
                        </td>




                    </tr>
                </tbody></table>
            
</div>

Display More

Any help is greatly appreciated!

Thanks,
Hilary

John_w · Mar 31st 2016

Re: Make Selection from Website Popup Window

You need to reference the HTMLDocument within the IE pop-up window, and you can get the IE pop-up window by looking for it in either Shell.Windows, SHDocVw.ShellWindows (the SHDocVw library also contains the InternetExplorer class), or using 'InternetExplorer With Events' and trapping the NewWindow2 event.

hilary4477 · Mar 31st 2016

Re: Make Selection from Website Popup Window

Hi John,

This code works to click on the first "ETS" selection, but I can't seem to find the right code to get it to wait for the next window to load to make the next selection. It rolls right through the code before the choices are available.

Code

Dim IE As InternetExplorer
    Dim doc As HTMLDocument
    Dim SiteFilter As HTMLFormElement


Set doc = IE.Document




    IE.Navigate MATmainURL
          
    'Wait for the new page to load
    Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
    
    'Get the only form on the page
    Set MATfilter = doc.forms(0)
    
    
    
    'Select the COE/Dept and filter to Test Systems
    '<span id="ctl00_ContentPlaceHolder1_myFilter_lblCOE" title="COE/Dept. (this filter does not apply to EOC)">COE/Dept.</span>




    doc.getElementById("ctl00_ContentPlaceHolder1_myFilter_lblCOE").Click
        Do While doc.ReadyState <> "complete": DoEvents: Loop




    doc.getElementById("ctl00_ContentPlaceHolder1_myFilter_TIER2").Value = "ETS"
        doc.getElementById("ctl00_ContentPlaceHolder1_myFilter_TIER2").FireEvent ("onchange")
        Do While MATfilter.ReadyState <> "complete": DoEvents: Loop




    doc.getElementById("ctl00_ContentPlaceHolder1_myFilter_TIER3").Value = "Test Systems"
        doc.getElementById("ctl00_ContentPlaceHolder1_myFilter_TIER3").FireEvent ("onchange")
        Do While MATfilter.ReadyState <> "complete": DoEvents: Loop




    doc.getElementById("ctl00_ContentPlaceHolder1_myFilter_TIER4").Value = "ETS-TS-MT"
        doc.getElementById("ctl00_ContentPlaceHolder1_myFilter_TIER4").FireEvent ("onchange")
        Do While MATfilter.ReadyState <> "complete": DoEvents: Loop




    doc.getElementById("ctl00_ContentPlaceHolder1_myFilter_RESOURCE_ID").Value = "-1"
        doc.getElementById("ctl00_ContentPlaceHolder1_myFilter_RESOURCE_ID").FireEvent ("onchange")
        Do While MATfilter.ReadyState <> "complete": DoEvents: Loop

Display More

John_w · Apr 1st 2016

Re: Make Selection from Website Popup Window

It seems I was mistaken in thinking it was an IE window, so my last post doesn't apply.

Based on this HTML:

HTML

<div id="ctl00_ContentPlaceHolder1_myFilter_pnlCOE" class="popupMenu" style="position: absolute; visibility: visible; left: 129px; top: 202px; width: 793px;">

I am guessing that the pop-up window appears when the div's style contains "visible", so you could try something like this:

Code

Dim div As HTMLDivElement
Do
    Set div = IE.document.getElementById("ctl00_ContentPlaceHolder1_myFilter_pnlCOE")
    DoEvents
Loop Until Instr(div.style, "visible") > 0

hilary4477 · Apr 8th 2016

Re: Make Selection from Website Popup Window

Hi John,

Thank you for your reply. I just got back to trying your code, and while I couldn't get it to work, I've decided to download the entire file without filtering it, (which I'll do later in Excel).

I've gotten to the point where the bar comes up at the bottom of the popup window asking if I want to open, save, or cancel. I've tried many suggestions I've found on google, but nothing seems to work. My most recent trial was using modMain and modWindowsAPI, which I've updated for my 64-bit system, but my code gets stuck on the following code telling me the function is not defined. Although I see it on my modWindowsAPI module.

Code

hWnd = FindWindow("#32770", "Save As")

I wish I could use WinHTTP or some other method to save the file, but the "Download" button URL changes every time the popup window loads, so that seems to be out the window. Is there another way to select "Save As"? I'm using IE11 now, but I'm afraid there will be other users of this code who will on 32-bit systems and using older versions of IE.

Thank you,
Hilary

hilary4477 · Apr 8th 2016

Re: Make Selection from Website Popup Window

Silly me, I left the copied Function as Private. Updated to Public and it reads.
The code finishes through (according to dubug.print), but it doesn't actually download the file...

John_w · Apr 8th 2016

Re: Make Selection from Website Popup Window

Quote from hilary4477;768776

I've gotten to the point where the bar comes up at the bottom of the popup window asking if I want to open, save, or cancel.

That means it's an IE9+ window. There is code linked from http://stackoverflow.com/quest…n-when-downloading-a-file which handles the IE download windows. I have code which does the same for IE8 - I think you must have found it with modWindowsAPI.

Another way of controlling IE to download the file is with UIAutomationClient (set a reference to this library in your VBA project to get the classes) together with FindWindowEx to find the download notification bar.

Without access to the website, I can't really help further. In any case, I think this has now moved away from the original goal of this thread, so I would start a new thread if you need help.

Make Selection from Website Popup Window

Participate now!

Share