IE Steuern
30.05.2016 10:13:49
Christoph
habe mal wieder ein Problem.
Konnte das Makro immer ohne Probleme ausführen.
Jetzt gibt es leider ein paar Probleme.
Sub auslesen()
Dim appIE As InternetExplorer
Set appIE = CreateObject("InternetExplorer.application")
With appIE
.Left = 975
.Width = 950
.Top = 0
.Height = 1200
End With
appIE.Visible = True
appIE.Navigate Workbooks("PreiseGebraucht.xlsm").Worksheets("Tabelle1").Range("A" & i)
Do While appIE.ReadyState 4
Loop
appIE.Quit 'Explorer wird geschlossen
End Sub
folgendes Problem ist mit mal endstanden.Wenn ich Visible auf True lasse läuft es halbwegs durch, der IE wird aber nicht geschlossen.
Setze ich visible auf falls, bleibt er im bei do while stehen und gibt mir den Fehler aus:"Automatisierungsfehler. Das aufgerufene Objekt wurde von den Clients getrennt."
Zwischen Loop und quit wird der Quellcode nur eingelesen und Daten gesammelt.
Vielleicht hat ja jemand einen Rat
Gruß
Christoph