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

savas_31 · 25. Februar 2020

Steffen vieeelen DANK, für deine wunderbare Hilfe. Jetzt kommt auch keine Fehlermeldung mehr *Smilie

savas_31 · 25. Februar 2020

Sorry das ich nochmal störe, Funktioniert doch nicht so ganz *biggrin.gif*
Programm hört nicht auf zu arbeiten weil es hier
Code:

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

nicht mehr raus kommt und beim Klicken öffnet sich jetzt immer ein neues Fenster

Steffen0815 · 25. Februar 2020

Hallo,
zeige mal bitte den kompletten Code.

savas_31 · 25. Februar 2020

Code bei Scroll=1 ist gerade unwichtig denn das Problem ist im else teil. Die Funktion startet mit Scroll=0 . Ich erkläre dir kurz was mein Code macht.

Ich öffne eine Html Datei, diese basiert auf die Datensätze meiner Datenbank, wenn ich im Formular irgendein Datensatz ändere und dann zum Nächsten Springe aktualisiert sich mein Browser in dem es überschrieben wird. Es wird kein neues Fenster geöffnet das Aktuelle wird überschrieben damit es wie eine Aktualisierung aussieht. Da alle Datensätze nicht auf eine Seite passen also im Browser, musste ich eine Scroll Funktion aufbauen. Meine Überlegung war so, wenn ich 4 Datensätze springe (weil 4 auf eine seite im Browser zu sehen sind) soll es runterscrollen. Also immer nach jedem 4. Datenstz Runterscrollen. Ich habe ein counter eingebaut, wenn ich jetzt 4 Datensätze gesprungen bin wird "Scroll" auf eins gesetzt damit es im Browser Runterscrollt und dann anscließlich wird die counter variable auf 0gesetzt damit es wieder bis 4 zählen kann.
Nach dem Aktualisieren springt der browser zum ersten Datensatz deshalb wollte ich beim Scroll=0 teil auch die Funktion einbauen damit wenn sich der Browser Aktualisiert auch nicht nach oben gesprungen wird.
Hoffe konnte dir erklären was ich vorhabe, vielen Dank dir nochmal.

Code:

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

Function tab_aktualisieren()

If scroll = 1 Then
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, scroll_w
scroll_w = scroll_w + 600
scroll = 0
Else
ansicht
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 Function
HoleIE:
Set objIEApp = fncHoleIE()
Resume Next

End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

savas_31 · 25. Februar 2020

in ansicht wird die html Datei erzeugt

Steffen0815 · 25. Februar 2020

Hallo,
also bei mir funktioniert der Code.

Ansonsten schein mir das alles ziemlich "um die Ecke".
Wie ensteht die HTML-Datei? Kann man dort keine Anker definieren, welche man anspringt?

savas_31 · 25. Februar 2020

Hatte einen kleinen Fehler in meinem Code, funktioniert jetzt. Also Steffen ich möchte mich nochmal bei dir für deine Hilfe bedanken *Smilie

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

Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen

Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen

Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen

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".

Die zehn besten Methoden zum Bereinigen von Daten

Bewährte Methoden zum Einrichten und Ausführen einer Teams-Besprechung oder eines ...

Bewährte Methoden zum Erstellen eines Microsoft Teams-Liveereignisses

Bewährte Methoden für Outlook: Schreiben von tollen e-Mails

Laufzeitfehler '-2147221040(800401d0)' Die Methode 'Copy'...

Methoden zum Hinzufügen, Bearbeiten und Löschen von Datensätzen