Controlling IE11 "möchten Sie die Öffnen/Speichern" Dialog-Fenster-Schaltflächen in VBA

Müssen wir die download-Datei von einem NASDAQ-website automatisch. Meine vorhandenen VBA-code öffnet ein IE - "möchten Sie die Öffnen/Speichern" Dialog-Fenster. Wie bitte klicken Sie auf die Schaltfläche speichern und geben Sie einen Pfad über VBA ?
Ich habe verschiedene windows-api beschriebenen Methoden in diesem link hier auch, aber das ist, was eine Folge von "Fenster Nicht Gefunden".

Mein Aktueller code ist wie folgt:

Sub MyIEauto()

    Dim ieApp As InternetExplorer
    Dim ieDoc As Object
    'Dim ieTable As Object

    'create a new instance of ie
    Set ieApp = New InternetExplorer

    'you don’t need this, but it’s good for debugging
    ieApp.Visible = True
    'assume we’re not logged in and just go directly to the login page
    ieApp.Navigate "https://indexes.nasdaqomx.com/Account/LogOn"
    Do While ieApp.Busy: DoEvents: Loop
    Do Until ieApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop

    Set ieDoc = ieApp.Document
    'fill in the login form – View Source from your browser to get the control names
    With ieDoc.forms(0)
        .UserName.Value = "xxxxxxx"
        .Password.Value = "xxxxxxx"
        .submit
    End With
    Do While ieApp.Busy: DoEvents: Loop
    Do Until ieApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop

    'now that we’re in, go to the page we want
    ieApp.Navigate "https://indexes.nasdaqomx.com/Index/ExportWeightings/NDX?tradeDate=2015-08-19T00:00:00.000&timeOfDay=SOD/SODWeightings_2015"

    'next below line commented as it is failing
    'ieApp.ExecWB 4, 2, "D:\VBA code work\SODWeightings_20150819_NDX.xlsx" 

    set ieApp=Nothing
    set ieDoc=Nothing

End Sub

Die Abbildung unten zeigt, wo habe ich erreicht. Wie kann ich die Fortschritte von hier?

Controlling IE11

InformationsquelleAutor pmr | 2015-08-21

3

Einen anderen Weg, dies zu tun ist, schicken die Tastatureingaben der Tastenkombinationen klicken Sie auf die Schaltfläche "speichern" im IE11. Ich sollte beachten Sie Ihre IE-Fenster muss das aktive Fenster für diese zu arbeiten. Also, es funktioniert nicht, wenn im debug-Modus.

Der folgende code ruft die Tastenkombination. Ich bin gerade zeigen Sie die shortcut-Taste, so haben Sie eine bessere Idee, was passiert.
- Tastenkombination:Alt+S
- VBA: Application.SendKeys "%{S}"
Ich bin verwirrt. Ereignis, obwohl mein IE-Fenster "aktiviert", um Sie zu verschrotten, die HTML -, dies funktioniert nicht für mich. Ich bin verwirrt, weil es funktionierte zweimal aus 30 tests, die ich lief, und ich bin nicht sicher, warum
wenn ich sage, aktiviert, meine ich, dass das Fenster den Fokus hat. Wenn ein anderes Fenster den Fokus hat, wird SendKeys wird, gehen Sie in das Fenster.

InformationsquelleAutor Tony L.

Es ist endgültig gelöst...

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

Das ist cool & herzlichen Glückwunsch für eine neue Lösung zu finden; würden Sie die Pflege zu aufwendig/zu erklären die Antwort ein wenig, so dass es möglicherweise mehr hilfreich für andere mit ähnlichen Problemen in der Zukunft?
Ich habe versucht, zu nutzen, um windows-api-hier Verweise sind als unten msdn.microsoft.com/en-us/library/...
Awsome!! Nur hinzufügen -Der Verweis auf die dll UIAutomationCore.dll können nur Hinzugefügt werden, nach dem ändern der Makro-Sicherheit-Makro-Sicherheit(Registerkarte Entwicklertools) -Einstellungen für Makros - Vertrauen Zugriff auf das VBA-Projekt-Objekt-Modell). Auch der Pfad kann in system32 als auch je nach windows-version
Dank für, die ich Total Liebe 🙂 es hat mir sehr geholfen
Für IE11, haben Sie einen Blick hier.

InformationsquelleAutor pmr

SendKeys war die Lösung für mich.

myfile = "C:\Users\User\Downloads\myfile.xls" 
checkmyfile = Dir(myfile, vbArchive)

Do While checkmyfile = ""
    On Error Resume Next
    checkmyfile = Dir(myfile , vbArchive)
    If checkmyfile = "myfile.xls" Then Exit Do 
    AppActivate "Title - Internet Explorer"
    SendKeys "%(g)"
    Application.Wait Now + TimeValue("0:0:1")
Loop

InformationsquelleAutor Flash

0

als ieApp.hWnd-Eigenschaft in einer 64bit-Umgebung ist LongLong, wo h ist Lang
dies ergibt ein "Type Mismatch" kann leicht gelöst werden, indem
```
h = Clng(ieApp.hWnd)
```
InformationsquelleAutor Johan de Wispelaere

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.