Составил макрос для Excel для получения информации из папки с документами Word (поздняя привязка) и помещением данных в таблицу Excel и последующей обработки (MSO 2010 SP2).
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
...
Dim WDApp As Object
Dim wdDoc As Object
On Error Resume Next
Set WDApp = CreateObject("Word.Application")
WDApp.Visible = False
...
Do While Len(sName) > 0
i = i + 1
wdFileName = sPath & sName
Set wdDoc = WDApp.Documents.Open _
(FileName:=wdFileName, _
ReadOnly:=True, _
Visible:=False, _
AddToRecentFiles:=False)
With wdDoc
...
' получение данных из каждого док-та
...
End With
wdDoc.Close SaveChanges:=False
Set wdDoc = Nothing
sName = Dir
Loop
' закрытие процесса Word
WDApp.Quit SaveChanges:=0
WDApp.Close
' освобождение переменной
Set WDApp = Nothing ' ТУТ Задержка!
...
Процесс непосредственного извлечения и последующей обработки данных из документов работает корректно и достаточно быстро, однако замечено, что на завершающем этапе возникает ощутимая задержка. Отключение всех (немногих) надстроек Word результата не дало. Последовательный анализ выявил, что причиной является строчка кода Set WDApp = Nothing. Причем время задержки прямо пропорционально количеству обработанных макросом файлов Word (может доходить до нескольких сотен) - похоже на медленное освобождения их из кэша в памяти(?)
Поискал по этой теме - нашел
аналогичный вопрос и статью
"When Are You Required To Set Objects To Nothing?"
Продолжая эксперименты, закомментировал эту строчку кода и задержка завершения макроса сразу пропала. В диспетчере задач Windows правда видно, что после завершения макроса процесс winword.exe в нём пока еще "висит", но через несколько секунд он сам пропадает, а главное, уже не тормозит весь макрос. Если до исчезновения процесса открыть новый документ Word, то он запускается нормально, как новый процесс winword, и конфликта с пока еще оставшимся не возникает.
Хотелось бы посоветоваться с опытными разработчиками по замеченной особенности
Насколько корректен и в дальнейшем беспроблемен такой вариант без Set WDApp = Nothing?
Есть ли решения по форсированному освобождению переменной из памяти?
