Office: (Office 2016) Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen

Helfe beim Thema Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo, ich spreche mittels vba eine html seite an. Alles funktionierte bis ich gemerkt hatte, dass ich wenn nötig ist runterscrollen muss. Hier... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von savas_31, 22. Februar 2020.

Seite 1 von 2

SAVAS_31

savas_31

Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen

Hallo,

ich spreche mittels vba eine html seite an. Alles funktionierte bis ich gemerkt hatte, dass ich wenn nötig ist runterscrollen muss. Hier beginnt auch mein Problem. Nach der Änderung für das runterscrollen beomme ich beim Laden der html Seite nun folgende Fehlermeldung: "Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen."

Mein Code sieht wie folgt aus :
Code:

ansicht
Set objShell = CreateObject("Shell.Application")
Set objWindow = objShell.Windows()
For Each objItem In objWindow
If LCase(objItem.FullName Like "*iexplore*") Then
Set objIEApp = objItem
End If
Next objItem
If objIEApp Is Nothing Then
Set objIEApp = CreateObject("InternetExplorer.Application")
objIEApp.Visible = True
End If
objIEApp.Navigate2 "C:temptest.html"
objIEApp.Document.parentWindow.scrollBy 0, 780
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe Leider im Internet auch nichts gefunden was mir weiterhelfen konnte.

:)

savas_31, 22. Februar 2020

#1
STEFFEN0815

Steffen0815

Hallo,
du kannst erst scrollen, wen die Seite (fertig) geladen ist.

Code:

With objIEApp
.Navigate2 "....."
Do While Not .ReadyState = 4 Or .Busy = True
DoEvents
Loop
objIEApp.Document.parentWindow.scrollBy 0, 780
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Steffen0815, 24. Februar 2020

#2
SAVAS_31

savas_31

Danke für dein Tipp hab deine Funktion nun so eingebaut:
Code:

Set objShell = CreateObject("Shell.Application")
Set objWindow = objShell.Windows()
For Each objItem In objWindow
If LCase(objItem.FullName Like "*iexplore*") Then
Set objIEApp = objItem
End If
Next objItem
If objIEApp Is Nothing Then
Set objIEApp = CreateObject("InternetExplorer.Application")
objIEApp.Visible = True
End If
With objIEApp
.Navigate2 "C:temptest.html"
Do While Not .ReadyState = 4 Or .Busy = True
DoEvents
Loop
objIEApp.Document.parentWindow.scrollBy 0, 780
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun kommt eine Fehlermeldung bei Code:

Do While Not .ReadyState = 4 Or .Busy = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Schnittstelle sei Unbekannt

savas_31, 24. Februar 2020

#3
STEFFEN0815

Steffen0815

Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen

Hallo,
ich kann dein Problem nicht nachvollziehen.

Teste mal bitte folgendes: Code:

Sub tester()
Dim objShell As Object, objWindow As Object, objItem As Object, objIEApp As Object
Set objShell = CreateObject("Shell.Application")
Set objWindow = objShell.Windows()
For Each objItem In objWindow
If LCase(objItem.FullName Like "*iexplore*") Then
Set objIEApp = objItem
End If
Next objItem
If objIEApp Is Nothing Then
Set objIEApp = CreateObject("InternetExplorer.Application")
objIEApp.Visible = True
End If
With objIEApp
.Navigate2 "MS-Office-Forum - Powered by vBulletin"
Do While Not .ReadyState = 4 Or .Busy = True
DoEvents
Loop
.Document.parentWindow.scrollBy 0, 780
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Steffen0815, 24. Februar 2020

#4
SAVAS_31

savas_31

Wenn ich bei Navigate dein Pfad lasse kommt keine Fehlermeldung aber wenn ich mein Pfad dort eintrage bekomme ich die Fehlermeldung: der Remote-Server-Computer exisitert nicht oder ist nicht verfügbar. Also liegt es an meinem Pfad? Weist du aber was das Problem ist? Denn ohne die Scroll Funktion ging es ja, nur paar mal kam die gleiche Fehlermeldung die hatte ich aber unterdrückt(ich weis war keine gute Lösung)

savas_31, 24. Februar 2020

#5
STEFFEN0815

Steffen0815

Hallo,
ich kann das Probleme für lokale Seiten nachvollziehen.
Das Objekt "objIEApp" wird nach dem Navigate "zerstört".

Warum und weshalb - keine Ahnung *rolleyes.gif*.

Vermutlich Sicherheitseinstellungen.

Steffen0815, 24. Februar 2020

#6
SAVAS_31

savas_31

Danke für deine Hilfe aber einen anderem Umweg kennst du keine oder? Müsste des irgendwie hinbekommen :/

savas_31, 24. Februar 2020

#7
STEFFEN0815

Steffen0815

Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen

......

Steffen0815, 25. Februar 2020

#8
SAVAS_31

savas_31

Weil on error = true ist springt der zu holeIE und führt dann die scroll Funktion nicht aus

savas_31, 25. Februar 2020

#9
STEFFEN0815

Steffen0815

Hallo,
einen habe ich noch *Smilie : Code:

Sub tester()
Dim objShell As Object, objWindow As Object, objItem As Object, objIEApp As Object
Set objShell = CreateObject("Shell.Application")
Set objWindow = objShell.Windows()
For Each objItem In objWindow
If LCase(objItem.FullName Like "*iexplore*") Then
Set objIEApp = objItem
End If
Next objItem
If objIEApp Is Nothing Then
Set objIEApp = CreateObject("InternetExplorer.Application")
objIEApp.Visible = True
End If
objIEApp.Navigate "C:\temptest.html"
On Error GoTo holeIE
Do While Not objIEApp.ReadyState = 4 Or objIEApp.Busy = True
DoEvents
Loop
objIEApp.Document.parentWindow.scrollBy 0, 780
On Error Resume Next
Exit Sub

holeIE:
For Each objItem In objWindow
If LCase(objItem.FullName Like "*iexplore*") Then
Set objIEApp = objItem
End If
Next objItem
Resume Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Steffen0815, 25. Februar 2020

#10
SAVAS_31

savas_31

Hat Funktioniert *Smilie)
Wirklich vielen Dank Steffen, hast mir geholfen ! *Smilie

Weist du aber woran es liegen kann das ich manchmal beim starten der Funktion, die Fehlermeldung das Remote Server nicht exisitert bekomme

savas_31, 25. Februar 2020

#11
STEFFEN0815

Steffen0815

Hallo,

beim starten der Funktion, die Fehlermeldung das Remote Server nicht exisitert bekomme
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In welcher Zeile?

Btw:

If LCase(objItem.FullName Like "*iexplore*") Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist ein bisschen "heiß", da dieser Code jedes beliebige IE-Fenster an sich reißt. Hier sollte z.B. über den Seitennamen oder die Adresse das richtige Fenster gesucht werden.

Steffen0815, 25. Februar 2020

#12
SAVAS_31

savas_31

Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen

von Steffen0815

Hallo,In welcher Zeile?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hab die Zeile mit einem Pfeil markiert
Code:

Set objShell = CreateObject("Shell.Application")
Set objWindow = objShell.Windows()

For Each objItem In objWindow
If LCase(objItem.FullName Like "*iexplore*") Then
Set objIEApp = objItem
End If
Next objItem
If objIEApp Is Nothing Then
Set objIEApp = CreateObject("InternetExplorer.Application")
objIEApp.Visible = True
End If
objIEApp.Navigate "C:temptest.html"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

savas_31, 25. Februar 2020

#13
SAVAS_31

savas_31

Grad beim Debuggen habe ich bemerkt der Fehler dort kommt auch nur wenn beim übersetzen hier
Code:

If objIEApp Is Nothing Then
Set objIEApp = CreateObject("InternetExplorer.Application")
objIEApp.Visible = True
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

"False" kommt also der garnicht Set objIEApp ausführt. Immer wenn ich mein Formular schließe und erneut öffne macht es dann richtug

savas_31, 25. Februar 2020

#14
STEFFEN0815

Steffen0815

Hallo, Code:

If objIEApp Is Nothing Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist hier kein ausreichender Test.
Falls das IE-Fenster geschlossen wurde, ist "objIEApp" nicht auf "nothing" gesetzt.

Versuche es so: Code:

Dim objIEApp As Object
Const DeineURL = "file:///c:/deinedatei.html"

Private Sub Befehl0_Click()
Set objIEApp = fncHoleIE()
objIEApp.Navigate DeineURL
On Error GoTo HoleIE
Do While Not objIEApp.ReadyState = 4 Or objIEApp.Busy = True
DoEvents
Loop
objIEApp.Document.parentWindow.scrollBy 0, 780
On Error Resume Next
Exit Sub

HoleIE:
Set objIEApp = fncHoleIE()
Resume Next
End Sub

Private Function fncHoleIE() As Object
Dim objWindow As Object, objIEApp As Object, objShell As Object, objItem As Object
Set objShell = CreateObject("Shell.Application")
Set objWindow = objShell.Windows()
For Each objItem In objWindow
If LCase(objItem.FullName) Like "*iexplore*" And LCase(objItem.LocationURL) = LCase(DeineURL) Then
Set objIEApp = objItem
Exit For
End If
Next objItem
If objIEApp Is Nothing Then Set objIEApp = CreateObject("InternetExplorer.Application")
Set fncHoleIE = objIEApp

Set objWindow = Nothing: Set objShell = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier wird dann auch abgeprüft, ob das IE-Fenster die richtige Adresse hat.
Die Adresse ist dann in der Form: "file:///c:/deinedatei.html" anzugeben.

Steffen0815, 25. Februar 2020

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen

Die Seite wird geladen...

Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen - Similar Threads - Methode Document dasObjekt
Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".
in Microsoft Excel Hilfe
Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".: Hallo Leute,*:)* nachdem ich in die "addIn 1.2.4" ein Sheet RKL eine Dropdownliste und ein Togglebutton hinzugefügt habe bekomme ich beim aufruf der UF die Fehlermeldung "Laufzeitfehler 1004 "Die...
Die zehn besten Methoden zum Bereinigen von Daten
in Microsoft Excel Tutorials
Die zehn besten Methoden zum Bereinigen von Daten: Die zehn besten Methoden zum Bereinigen von Daten Excel für Microsoft 365 Excel 2019 Excel 2016 Excel 2013 Excel 2010 Excel 2007 Mehr......
Bewährte Methoden zum Einrichten und Ausführen einer Teams-Besprechung oder eines ...
in Microsoft Teams Tutorials
Bewährte Methoden zum Einrichten und Ausführen einer Teams-Besprechung oder eines ...: Bewährte Methoden zum Einrichten und Ausführen einer Teams-Besprechung oder eines Live-Ereignisses für Gehörlose und schwerhörige Beim Einrichten und ausführen Microsoft Teams Besprechungen und...
Bewährte Methoden zum Erstellen eines Microsoft Teams-Liveereignisses
in Microsoft Teams Tutorials
Bewährte Methoden zum Erstellen eines Microsoft Teams-Liveereignisses: Bewährte Methoden zum Erstellen eines Microsoft Teams-Liveereignisses Microsoft Teams Mehr... Weniger Um ein tolles...
Bewährte Methoden für Outlook: Schreiben von tollen e-Mails
in Microsoft Outlook Tutorials
Bewährte Methoden für Outlook: Schreiben von tollen e-Mails: Bewährte Methoden für Outlook: Schreiben von tollen e-Mails Outlook für Microsoft 365 Outlook 2019 Outlook 2016 Outlook 2013 Outlook 2010 Outlook 2007...
Laufzeitfehler '-2147221040(800401d0)' Die Methode 'Copy'...
in Microsoft Excel Hilfe
Laufzeitfehler '-2147221040(800401d0)' Die Methode 'Copy'...: Hallo Leute, ich habe schon länger ein Problem in einem sehr großen VBA-Makro beim kopieren von Diagrammen. In der Zeile "objDia.Copy" kommt sporadisch die Fehlermeldung: Laufzeitfehler...
Methoden zum Hinzufügen, Bearbeiten und Löschen von Datensätzen
in Microsoft Access Tutorials
Methoden zum Hinzufügen, Bearbeiten und Löschen von Datensätzen: Methoden zum Hinzufügen, Bearbeiten und Löschen von Datensätzen Access für Microsoft 365 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden