Как корректно завершить вывод отчета в Excel?

@VBMike · Регистрация: 26.10.2010

Студворк — интернет-сервис помощи студентам

Подскажите, как корректно завершить вывод отчета в Excel? Я объявляю новый объект, открываю лист, формирую отчет, он выводится на экран - все хорошо. Примерно так:

Visual Basic

Set Object = CreateObject('Excel.Application')
With Object
    .Workbooks.Add
    .Visible = True
    .ActiveSheet.Name = ''
End With

Но если выхожу из отчета и пытаюсь запустить Excel из другой формы, то ругается. Необходимо как то корректно закрывать эти листы и объекты. Спасибо.

@PMSSpy · 30.03.2011, 13:58

Код

Set Object = Nothing

?

@VBMike · 30.03.2011, 17:08 **[ТС]**

Не пошло. Примерно так я и пробовал. Все равно ругается. Говорит Object-defined error. Хотя он у меня описан как паблик (объект) и передается параметром в модули. Думаю еще что-то надо прописать. Может листы поименно закрывать?

30.03.2011, 17:10

Правильно сказали выше,как тока открыл Шит, и с ним нет ни каких действий из VB. Нулите все ссылки..
Set *** = Nothing
тока помните. что, обнулив ссылку на Word/ excel и т.д. Вы не закрываете приложение. Оно так и остается открытым, даже если вы его не Visible=True. Если убить ссылку на Прилоджение. к примеру Word(оно короче пишется), то в памяти останется открытое приложение - невидимое(Экземпляр . так сказать).
Если Вам необходимо закрыть само приложение а не убить просто ссылку...

dim WB as Word...
Set WB=***
*** тут все операции с Вордом
WB.Quit
set WB=Nothing
При этом закрывается Ворд и ССылка нулиться.

@VBMike · 30.03.2011, 17:46 **[ТС]**

Теперь по-другому

Сейчас она закрывает приложение, в новой форме опять открывает, но ругается на первый же встретившийся оператор Range().

30.03.2011, 17:58

Еще раз...
Просто Range-это глобальный обьект Excel, чтоб им оперировать,Нужно указать (присвоить) конкретный обьект.

Visual Basic

dim R as range
set R=Activesheet.ActiveCells'( Selection)
r.interior.color=qbColor(8)
set r=nothing

если set R=Range.Cells(1,1) - то выдаст ошибку, т.к. он не знает откуда этот Range брать.

@PMSSpy 0 / 0 / 0 Регистрация: 01.03.2010 Сообщений: 223
	30.03.2011, 13:58	2
	Код Set Object = Nothing ? 0

@VBMike 0 / 0 / 0 Регистрация: 26.10.2010 Сообщений: 37
	30.03.2011, 17:08 [ТС]	3
	Не пошло. Примерно так я и пробовал. Все равно ругается. Говорит Object-defined error. Хотя он у меня описан как паблик (объект) и передается параметром в модули. Думаю еще что-то надо прописать. Может листы поименно закрывать? 0

Сумрак
	30.03.2011, 17:10	4
	Правильно сказали выше,как тока открыл Шит, и с ним нет ни каких действий из VB. Нулите все ссылки.. Set * = Nothing тока помните. что, обнулив ссылку на Word/ excel и т.д. Вы не закрываете приложение. Оно так и остается открытым, даже если вы его не Visible=True. Если убить ссылку на Прилоджение. к примеру Word(оно короче пишется), то в памяти останется открытое приложение - невидимое(Экземпляр . так сказать). Если Вам необходимо закрыть само приложение а не убить просто ссылку... dim WB as Word... Set WB=* *** тут все операции с Вордом WB.Quit set WB=Nothing При этом закрывается Ворд и ССылка нулиться.

@VBMike 0 / 0 / 0 Регистрация: 26.10.2010 Сообщений: 37
	30.03.2011, 17:46 [ТС]	5
	Теперь по-другому Сейчас она закрывает приложение, в новой форме опять открывает, но ругается на первый же встретившийся оператор Range(). 0

	30.03.2011, 17:58

Опции темы