Speicher überlauf
27.11.2006 20:59:57
BOSSE
habe folgendes VBA für meine Anwendung nutzen können, nur wenn ich eine längere Schleife starte oder mehrmals den Makro startr hängt sich es auf bzw. der rechner reagiert fast garnicht mehr.
Ich habe es mit "appIE.Visible = True" versucht und habe bemerkt das der Makro jedesmal einen neuen browser öffnet, diese dann auch nicht mehr schließt.
Ich meine hier liegt das Problem.
Wie kann mann das makro so ändern das diese problematik behoben wird ?
Sub WebSuche()
Dim i As Byte
For i = 2 To 20
Cells(i, 2) = URL_Load(Cells(i, 1), Range("A1"))
Next i
End Sub
Private Function URL_Load(ByVal sURL As String, sSuche As String) As Boolean
Dim appIE As Object
Dim sTxt As String
Set appIE = CreateObject("InternetExplorer.Application")
'appIE.Visible = True
appIE.navigate sURL
Do: Loop Until appIE.busy = False
Do: Loop Until appIE.busy = False
sTxt = appIE.document.documentElement.outerHTML
Set appIE = Nothing
If InStr(sTxt, sSuche) > 0 Then URL_Load = True
End Function