|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Aufruf eines geöffneten Internet Explorers und Rückgabe als SHDocVw.InternetExplorer |
07.03.2019 08:51:48 |
David |
|
|
|
07.03.2019 09:48:45 |
Zwenn |
|
|
Von:
David |
Datum:
07.03.2019 08:51:48 |
Views:
702 |
Rating:
|
Antwort:
|
Thema:
Aufruf eines geöffneten Internet Explorers und Rückgabe als SHDocVw.InternetExplorer |
|
Guten Morgen,
ich habe folgendes Problem:
Ich habe eine Anwendung im IE geöffnet, der User ist angemeldet und befindet sich auf der Startseite. Ich möchte nun aus einer anderen Anwendung heraus ein Makro aufrufen, dass:
a) Den geöffneten IE anhand einer eindeutigen Kennung (Name) identifiziert
b) Den geöffneten IE in den Vordergrund holt und aktiviert.
c) Mir ein Objekt vom Typ SHDocVw.InternetExplorer aus der Bibliothek Microsoft Internet Controls zurückgibt, sodass ich über diesen wiederrum in den HTML Quellcode und das DOM einsteigen kann. Die Startseite stellt mir Methoden bereit, an die ich nunmehr andocken möchte.
Schritt a und b löse ich über den Window Handle, was auch bereits einwandfrei funktioniert. Allerdings kann ich vom Window Handle nicht auf das SHDocVw.InternetExplorer Objekt wechseln, da hier eine Typunverträglichkeit vorliegt. Soweit ich es gelesen habe, ist ein Typcast in VBA nicht möglich. Wie kann ich das Problem dann lösen?
Hier ist ein (Teil)ausschnitt des Quellcodes, insb. derjenige, der nicht funktioniert.
Sub Main(JsonFile As String)
'Bibliothek: Microsoft Internet Controls
Dim IE_Handle As Long Dim IE As SHDocVw.InternetExplorer
IE_Handle = OpenWindow
'funktioniert bereits, Funktion OpenWindow hier nicht weiter aufgeführt
If IE_Handle <> 0
Then Set IE = IE_Handle
'hier schlägt der Typcast fehl
IE.Visible = True
'Warten auf Fertigladen
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
Else
'Verhalten, wenn kein IE geöffnet ist definieren
End If
End Sub |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Aufruf eines geöffneten Internet Explorers und Rückgabe als SHDocVw.InternetExplorer |
07.03.2019 08:51:48 |
David |
|
|
|
07.03.2019 09:48:45 |
Zwenn |
|
|