VBA-Interaktionen mit dem internet explorer

Am Anfang Ihres Moduls, setzen Sie diese Zeile von code:

Public Declare Function SetForegroundWindow Lib "user32" (ByVal HWND As Long) As Long

Dies wird als eine Declare-Anweisung und ermöglicht Ihnen den Zugriff auf die SetForegroundWindow Funktion, die in Windows integriert ist. Diese Funktion lebt in den user32 DLL von Windows-system. Es gibt tatsächlich eine Reihe von anderen Funktionen unter mehreren DLLs, die den Zugriff auf VBA in dieser Weise (siehe link für weitere Beispiele).

In Ihrem code, während der Interaktion mit deinem IE-Objekt, Datensatz der HWND ( Griff , um das Fenster zu) so:

Dim HWNDSrc As Long
HWNDSrc = ie.HWND

Dann, nachdem Sie interagiert mit Java, verwenden Sie diese, um fortzufahren:

SetForegroundWindow HWNDSrc

Dieser teilt dem Windows-system zum festlegen der Fenster -, identifiziert durch die HWND als das Vordergrund-Fenster (wie der name schon sagt).

Ist dies jedoch nicht notwendig sein, je nachdem, wie Sie die Interaktion mit dem IE. In anderen Worten, wenn Sie nicht brauchen, um zu sehen/berühren Sie das Fenster, können Sie immer noch die Interaktion mit dem Objekt, als du in deinem code schon.

Gibt es Möglichkeiten, um die Verknüpfung, die Sie suchen, verwenden Sie code wie GetElementById() und GetElementsByTagName() (siehe hier für mehr info), aber es hängt davon ab, wie die Quelle erstellt wurde. z.B. ein <a href="...> link sollte relativ leicht zu ziehen, wenn Sie wissen, die HTML-Quelle.

Überprüfen Sie Ihren code ein zweites mal, habe ich bemerkt, dass Sie eine Schleife verwenden, die zu "verlangsamen" das makro. Ich habe eine Funktion, die ich die ganze Zeit nach ähnlichen Methoden meiner eigenen. Hoffentlich wird dies helfen, in die Sie immer getan haben, was Sie brauchen. Ich habe meine modifizierten code unten aus meiner eigenen original, da hatte ich zusätzliche Besonderheiten, die nicht für Ihren Fall. Wenn Fehler vorhanden sind, kann ich einstellen, wie gebraucht.

Public Sub WaitForIE(myIEwindow As InternetExplorer, HWND As Long, WaitTime As Integer)

    ' Add pauses/waits so that window action can actually
    ' begin AND finish before trying to read from myIEWindow.

    ' myIEWindow is the IE object currently in use
    ' HWND is the HWND for myIEWindow
    ' The above two variables are both used for redundancy/failsafe purposes.
    ' WaitTime is the amount of time (in seconds) to wait at each step below. 
    ' This is variablized because some pages are known to take longer than 
    ' others to load, and some pages with frames may be partially loaded,
    ' which can incorrectly return an READYSTATE_COMPLETE status, etc.

    Dim OpenIETitle As SHDocVw.InternetExplorer

    Application.Wait DateAdd("s", WaitTime, Now())

    Do Until myIEwindow.ReadyState = READYSTATE_COMPLETE
        ' Wait until IE is done loading page and/or user actions are done.
    Loop

    Application.Wait DateAdd("s", WaitTime, Now())

    While myIEwindow.Busy
        DoEvents  ' Wait until IE is done loading page and/or user actions are done.
    Wend

    On Error Resume Next
    ' Make sure our window still exists and was not closed for some reason...
    For Each OpenIETitle In objShellWindows
        If OpenIETitle.HWND = HWND Then
            If Err.Number = 0 Then
                Set myIEwindow = OpenIETitle
                Exit For
            Else
                Err.Clear
            End If
        End If
    Next OpenIETitle
    On Error GoTo 0

End Sub