Automate saveas dialogue for IE9 (vba)

by

You may try this as it is worked for me on IE9:

For below showed download

  1. Copy file C:\Windows\System32\UIAutomationCore.dll file to users Documents i.e C:\Users\admin\Documents then add reference UIAutomationClient to your macro file.

  2. Paste below code in your module: 

        Option Explicit
    Dim ie As InternetExplorer
    Dim h As LongPtr
    Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr

Sub Download()
    Dim o As IUIAutomation
    Dim e As IUIAutomationElement
    Set o = New CUIAutomation
    h = ie.Hwnd
    h = FindWindowEx(h, 0, "Frame Notification Bar", vbNullString)
    If h = 0 Then Exit Sub

    Set e = o.ElementFromHandle(ByVal h)
    Dim iCnd As IUIAutomationCondition
    Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "Save")

    Dim Button As IUIAutomationElement
    Set Button = e.FindFirst(TreeScope_Subtree, iCnd)
    Dim InvokePattern As IUIAutomationInvokePattern
    Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
    InvokePattern.Invoke
End Sub

Try at your end.

More Related Contents:

  1. Controlling IE11 “Do you want to Open/Save” dialogue window buttons in VBA
  2. VBA Internet Explorer Automation – How to Select “Open” When Downloading a File
  3. Excel VBA to answer Internet Explorer 11 download prompt, in Windows 10?
  4. How can I automate Save as dialog box in IE11 using VBA?
  5. In Excel VBA, what is the way to check if the web page is fully loaded?
  6. VBA:IE-How to assign pathname to file input tag without popup file upload form?
  7. VBA Internet Explorer wait for web page to load
  8. Loop through files in a folder using VBA?
  9. Wait for Shell to finish, then format cells – synchronously execute a command
  10. Run same excel macro on multiple excel files
  11. how to detect whether VBA excel found something?
  12. VBA : save a file with UTF-8 without BOM
  13. Excel tab sheet names vs. Visual Basic sheet names
  14. Getting error Procedure too large in VBA Macros (Excel)
  15. VBA – Folder Picker – set where to start [duplicate]
  16. Difference in type between using and not using Set keyword
  17. How to do late binding in VBA?
  18. Getting the headings from a Word document
  19. VBA – Convert string to UNICODE
  20. How to break long string to multiple lines
  21. How to loop through all controls in a form, including controls in a subform – Access 2007
  22. Continue For loop
  23. FileDialog doesn’t work
  24. How to refer to Excel objects in Access VBA?
  25. Can Advanced Filter criteria be in the VBA rather than a range?
  26. Excel Useform: How to hide application but have icon in the taskbar
  27. Reading Web Pages using Excel VBA
  28. Where does Outlook store the VBA code files?
  29. VBA inheritance, analog of super
  30. Working with current open email

Leave a Comment