IE10 File Download/Save from Acess VBA macro

[MarcusL]

Hi all,

I have been working on an Access 2010 DB importing files and massaging data to produce a final useful table.

As a start to the process, I need to download 5 different files from 3 password secured web sites. I am using TWebst to navigate IE 10 (as I am also running other data collection routines from other sites than the three mentioned above).

I have been struggling with the File Save As on the Download piece. Each file is created and sent to the borwser by a Server side Javascript program executed once the button is pressed. I do this with TWebst.

So I get to the point where IE presents the small window at the bottom of the browser with the Open / Save / Cancel buttons.

Adrian from Twebst suggested today I check out AutoIt as a workaround to the fact Twebst does not have the functionality to control the IE download window.

I have downloaded AutoIt and done some research, but I am still at a loss to understand how to integrate the two (I am a basic VBA programmer, so please be kind!).

I would like to know how to incorporate the AutoIt code in the VBA (rather than external exe/script). If it has to be an external exe/script then I need to feed to it the download path as a parameter to repeat its use for the other files.

I have registered the ActiveX "AutoItX3 1.0 Type Library" control in Tools/References within Acess VBA Editor.

Any suggestions / examples I can follow would be REALLY appreciated. Thanks in advance for any help you provide!

Here's the VBA routine for one of the download portals:

Private Sub DownloadDD()

    Set core = New TwebstLib.core
    Set browser = core.StartBrowserVba(urlDD)
    
'* DD Log In
    Call browser.FindElementVba("input text", "id=panel-login-name").InputText(uidDD)
    Call browser.FindElementVba("input text", "id=panel-login-account").InputText(namDD)
    Call browser.FindElementVba("input password", "id=panel-login-password").InputText(pwdDD)
    Call browser.FindElementVba("a", "id=login-button").Click

    Set objCollection = browser.FindAllElementsVba("div", "id=panelLoggedIn")
    
    If objCollection.length > 0 Then
        Call browser.Navigate(catDD)

' Here's where I want to "Save file as" default file name and ConstSavePath (the path is a constant elsewhere in my code)'

    End If

'* DD Log Out
    'Call browser.Close

End Sub

Edited July 4, 2013 by MarcusL

[MarcusL]

Guys, a hint or some direction would be really appreciated. I am just struggling to bring the two tools together. Thanks for any advice.

[MarcusL]

Thanks all for the overwhelming help and support.

[0xdefea7]

You can do this all in AutoIt if you want, just change your VBA routine to run your script instead. Check out the IE.au3 functions, the script will look pretty similar to what you already have in VBA as far as layout goes. Since it is javascript, you will likely need to automate clicks on the screen, so that you can click the dialog and save your file.

As far as taking command lines, that is just this variable in your script:

$CmdLine[1] ; first arg
$CmdLine[2] ; second arg
;etc

I might have a better answer for you in a few hours after I get home from work, but I have a busy weekend ahead so I may run out of time. Hopefully this helps to point you in the right direction. 

[Melba23]

MarcusL,

 

Thanks all for the overwhelming help and support

Remember this is not a 24/7 support forum - those who answer are only here because they like helping others and have some time to spare. You just have to wait until someone who knows something about your particular problem, and is willing to help, comes online. Be patient and someone will answer. Or if not - tough!

M23