Долго закрывается файл с сводными таблицами.

[Dima_com]

Здравствуйте форумчане.
vbs скриптом заполняю лист анализа сводных таблиц

PHP код:

Dim objApl: Set objApl = WScript.CreateObject("Excel.Application")
 Dim objDocs: Set objDocs= objApl.Workbooks.Open("с:\1.xls") 
objApl.Visible = False 


- передергиваю кэш

PHP код:

objApl.ActiveWorkbook.Sheets(8).PivotTables("СводнаяТаблица1").PivotCache.Refresh 


Останавливаю процессы excel .

PHP код:

    objApl.Visible = True
    Set objApl = Nothing
    Set objDocs= Nothing 


Затем когда вручную закрываю файл заметно некоторое подтормаживание.
Кэш таблицы отключен. После сохранения и повторного открытия закрывается быстро.
тестирую на excel 2003

Что еще может так долго выгружаться из оперативки и как это можно ускорить (устранить)?
Заранее большое спасибо!