** Pulling Data From Pop Up Internet Window **

[brad7989]

So I'm trying to automate data pulling... To get the data I want I have to go to a page, log in, then click a link, which opens a popup window... I then download the data from there as an excel file.

A couple of questions:

1) How do I get it to pull data off a pop-up window?

2) How do I streamline my data-pulling that comes into a separate Excel Sheet into my Excel workbook? I was thinking I could have it save as the same name everytime I do a different download it will just overwrite and then copy and paste the new info into a new tab in my workbook.

Some other background:

I have a formatting macro that cycles through quite a few different tabs to format them. I currently have to manually download all of the data files, then manually combine them into one workbook, then run my macro.

Thanks for your help!

 

[brad7989]

Would posting code or what I have help?

 

[John_w]

1) How do I get it to pull data off a pop-up window?

If it's an IE window, find the window by looping through Shell.Windows, or use InternetExplorer WithEvents and get the pop-up window via the NewWindow2 event.

 

[brad7989]

Wow thanks. I don't know how either of those work... I'll try looking into that unless you have an example code.

Thanks again,

Brad

 

[John_w]

The WithEvents technique is explained here - http://visualbasic.about.com/od/standalonevb6/l/blnewieinstance.htm.

Shell.Windows example code:

Private Function Get_IE_Window() As Object

    'Look for an IE browser window and, if found, return that browser as an InternetExplorer object.  Otherwise return Nothing

    Dim Shell As Object
    Dim IE As Object
    Dim i As Variant 'Integer
    
    Set Shell = CreateObject("Shell.Application")
    
    i = 0
    Set Get_IE_Window = Nothing
    While i < Shell.Windows.Count And Get_IE_Window Is Nothing
        Set IE = Shell.Windows.Item(i)
        If Not IE Is Nothing Then
            If TypeName(IE.Document) = "HTMLDocument" Then
                Set Get_IE_Window = IE
            End If
        End If
        i = i + 1
    Wend
    
End Function

You'll probably need to check IE.LocationName or IE.LocationURL, etc. after the TypeName statement to see if that IE window is your IE pop-up window.

 

[brad7989]

Thanks!