IE As Object. Set IE = Nothing
|
|
Четверг, 21 Июля 2016 г. 21:10
+ в цитатник
Добрый день.
ВинХР, Акц2000, 32-бит, .mdb, IE8.
А акцессе есть состаящая из большого количества записей таблица в которой хранятся url-адреса. Цикл по таблице открывает процедуру.
Часть кода этой процедуры:
Private Sub subТруляля(url As String)
Dim IE As Object
Dim oDoc As New MSHTML.HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
With IE
.navigate url
Do
If IE.readyState = READYSTATE_COMPLETE Then
Exit Do
End If
Loop
Set oDoc = .Document
Do
DoEvents
Loop Until oDoc.readyState = "complete"
..............................
End With 'IE
Set oDoc = Nothing: Set IE = Nothing
End Sub
Все работает. Но существует проблема.
При завершение процедуры Set IE = Nothing должен разрушить объект IE и удалить его из памяти. Но этого почему то не происходит. Соответственно он висит в памяти. При цикличности процедуры в ней накапливается до критических масштабов.
Как можно удалить из памяти этот отработанный объект?
Спасибо
http://www.sql.ru/forum/1223594/ie-as-object-set-ie-nothing
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-