Виснет процесс Excel

[metall_2000]

Пишу прогу для записи в Excel данных из текстовых файлов. Вот ее "проблемная" часть:

Dim xl As Excel.Application
Dim strListName As String
Set xl = CreateObject("Excel.Application")
xl.SheetsInNewWorkbook = 1 'Количествр листов 1
xl.Workbooks.Add
xl.Visible = False
strListName = xl.ActiveWorkbook.Sheets(1).Name 'Получаю текущее имя листа
xl.ActiveWorkbook.Worksheets(strListName).Select
xl.ActiveWorkbook.Worksheets(strListName).Name = ExcelMake.FormType 'Новое имя листа

' Далее идет код записи данных в ячейки Excel

xl.ActiveWorkbook.SaveAs ExcelMake.FileName 'Сохраняю книгу
xl.ActiveWorkbook.Close
xl.ActiveWindow.Close
xl.Quit
Set xl = Nothing

Если записываю в Excel примерно 500-600 строк, процесс завершается. Если же строк больше, Excel остается висеть в процессах. Размер такого файла xls примерно 1 Mb. Проблема имеет место только, если запускать прогу под Win98/Me . Под NT/2000/XP - все нормально.
В чем дело и как это преодолеть???

[GSerg]

Ну, попробуй убрать xl.ActiveWindow.Close, к примеру...

[metall_2000]

Ну, попробуй убрать xl.ActiveWindow.Close, к примеру...

Не помогло...
Знаю, что метод Close замедляет обработку, но чтобы вообще зависало

[alibek]

Макросы/вирусы в xla?

[metall_2000]

Нет - все чисто:) Ни макросов полезных, ни макросов вредных

[alibek]

FleX_2004, в коде именно так и написано.

[Костя]

Попробуй вместо
Set xl = CreateObject("Excel.Application")

set xl = new excel.application

В этом случае можно обойтись без строки xl.quit, сразу написать set xl = nothing

[codemaster]

. Если же строк больше, Excel остается висеть в процессах. Размер такого файла xls примерно 1 Mb. Проблема имеет место только, если запускать прогу под Win98/Me . Под NT/2000/XP - все нормально.
В чем дело и как это преодолеть???

Была подобная проблем.

Заказчик формировал "розу ветров" с эл. ветряков
в Excele предварительно "набив" его данными

Сколько времени Excel остается висеть в процессах?
или ты это не замерял ?

+ cм. http://www.rsdn.ru/article/com/excelcache.xml

P.S. Кстати а Excel какой ( версия)?

[codemaster]

+ в догонку

Application.DisplayAlerts = False

ты уверен что Еxcel не выдает тебе "диалог"

[Tanya]

Может быть стоит сделать Excel видимым и посмотреть, что он там делает. Возможно он сваливается где-нибудь до закрытия книг и самого приложения.
Опять же, какой-нибудь запрос при закрытии выдает...