Like Dar Saveas on I.E

Question

I’m having a problem downloading a file via vba, because when I can open the document (pdf format) I can save it with name and location quietly, but when it does not open in the browser itself, ie when it is a file . doc it opens only the tab below.

I can download it by pressing Save with Sendkeys, code below:

Application.SendKeys "%(s)"

However I can not determine the path and the location, I wonder if you have how to access the down arrow and choose Save As, so I can determine the place of rescue and name.

I tried to save the file by URL but it is not possible because the site has a lock for this type of operation.

Answer 1

For IE11 or later, this should work:

• Shortcut key: Alt + S

• VBA: Application.SendKeys "%{S}" (notice the use of keys)

If it still doesn’t work, try adding this variable in the code:

Dim Report As Variant

Report = Application.GetSaveAsFilename("Attrition Report.xls", "Excel Files (*.xls), *.xls")

Source: https://stackoverflow.com/questions/22470630/how-to-save-file-from-webpage-from-excel-vba