Controlling IE11 “Do you want to Open/Save” dialogue window buttons in VBA

by

It’s solved finally…

Option Explicit

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Public Sub AddReference()

    ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\SysWOW64\UIAutomationCore.dll"

End Sub

'after my original code as posted in question then this below lines

Dim o As IUIAutomation
    Dim e As IUIAutomationElement
    Set o = New CUIAutomation
    Dim h As Long
    h = ieApp.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

More Related Contents:

  1. How can I automate Save as dialog box in IE11 using VBA?
  2. In Excel VBA, what is the way to check if the web page is fully loaded?
  3. delete Autofilter Field resullt using the header Name
  4. Open folder in new instance
  5. Somehow it’s not copying [closed]
  6. VBA macro that search for file in multiple subfolders
  7. So, I have 6 “master” files to then divide into 40 separate files
  8. Getting ScriptControl to work with Excel 2010 x64
  9. Application.Match gives type mismatch
  10. Count and Highlight keywords within phrases
  11. Transpose a range in VBA
  12. Protecting cells in Excel but allow these to be modified by VBA script
  13. Saving excel worksheet to CSV files with filename+worksheet name using VB [duplicate]
  14. Detect merged cells in VBA Excel with MergeArea
  15. Excel VBA – QueryTable AfterRefresh function not being called after Refresh completes
  16. Excel VBA: AutoFill Multiple Cells with Formulas
  17. VBA.Find and adding a value
  18. excel vba- extract text between 2 characters
  19. What does ReDim Preserve do?
  20. Round function in Excel, worksheet function vs VBA
  21. How to continue the code on the next line in VBA
  22. How to create a separate CSV file from VBA?
  23. Excel VBA Userform – Execute Sub when something changes
  24. Count the number of rows in another sheet [duplicate]
  25. Getting Excel to refresh data on sheet from within VBA
  26. VBA Password Input with Cancel Function
  27. Excel Select vs Activate
  28. Fast compare method of 2 columns [closed]
  29. Finding first blank row, then writing to it
  30. VBA inheritance, analog of super

Leave a Comment