Как выгрузить из памяти Excel приложение?

[Divinich]

Ну, в общем, дело обстоит так, я открываю эксель забрасываю туда информацию, сохраняю файл, потом все как надо закрываю Workbooks обнуляю excel.application, а он все равно в памяти остается. в общем, подскажите как его выгрузить, а то когда хочешь сохранить второй раз программа вылетает именно из-за этого, может какие Апишные функции которые прекращают процесс???

[GSerg]

xl.quit?

[Divinich]

quit не катит, прога все равно остается в памяти.

[Igor_123]

Код: Выделить всё

Dim xApp as Excel.Application
Dim xWb as Workbook
Dim xSh as Worksheet
Set xApp = CreateObject("Excel.Application")
Set xWb = xApp.Workbooks.Add
Set xSh = xWb.Sheets(1)
'Работаем с листом и книгой
Set xSh = Nothing
xWb.Close
Set xWb = Nothing
xApp.Quit
Set xApp = Nothing

[Александр80]

Igor_123 правильно написал...

Код: Выделить всё

'выгружаем...
Set xSh = Nothing
Set xApp = Nothing
Set xWb = Nothing

[OMEGUS]

А вот так тоже покатит

Dim ExcExcel as Excel.Application

ExcExcel.Save 'сохраняем если надо

ExcExcel.Close 'закрываем

[Divinich]

просто у меня такая фигня, я делаю через одну переменную excel.application, и все манипуляции через эту перменную перевожу. В конце пишу:

exc.workbooks.close
exc.quit ' ну это приложение excel
set exc = nothing

и все равно не выгружается.

[alibek]

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

[Divinich]

Сделал видимым, все нормально делается, окно закрывается, сохраняется все путем, но эксель все равно в памяти остается.

[Igor_123]

Ну ведь чудес не бывает

[Divinich]

Спасибо всем, ошибку нашел, забыл поставить точку

with exc
range("A3").value="aaaa"
end with

надо было точку ставить перед каждым обращением к методу, блин, а так он их глобальными воспринимает, поэтому при повторной попытке записать что-то в эксель выскакивает ошибка. Блин столько мудохался, из-за такой херни.

Все равно всем спасибо.