Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Не разгру...

Тема: Не разгружается полностью Excel

15.06.2007 21:03:09

beks

21 сообщения

Тема: Не разгружается полностью Excel

Не выгружается полностью EXCEL. т. е. всем переменным присваиваю Nothing и закрываю само приложение,EXCEL а в резидентной памяти EXCEL остается.
Если нажать ALT+CTRL+DEL в Windows 2000 и посмотреть task manager, там в Process все равно будет Excel, хотя я его закрыл.
В чем дело?

P.S. Связанные таблицы Excel
Автор: BS от 26.09.2002 6:54:46 Источник ...

15.06.2007 21:03:09

All

4316 сообщения

RE: Не разгружается полностью Excel

Для выхода из офисных приложений используется метод Quit, а потом только переменным присваивается Nothing.

P.S. Связанные таблицы Excel
Автор: Виктор Конюков от 0:00:00 Источник ...

15.06.2007 21:03:09

All

4316 сообщения

RE: Не разгружается полностью Excel

' Функция открывает Excel файл
Public Function funExcelImportPrice(strXLS As String) As Boolean
Dim app As Excel.Application 'Приложение программы
Set app = New Excel.Application 'Новое приложение
app.Workbooks.Open strXLS 'Открываем файл
app.WindowState = xlMinimized
app.Visible = True 'Отображаем документ
app.Quit
Set app = Nothing
' Выгружаем Excel (Источник Ken Snell, comp.databases.ms-access)
' Корректировка: Admin (leadersoft.ru)
Call funQuitApplication("Excel.exe")
End Function

'Функция ГАРАНТИРОВАННО выгружает приложение Excel, Explorer и т.п.
Function funQuitApplication(procName As String)
On Error GoTo 0
Dim objProcList As Object
Dim objWMI As Object
Dim objProc As Object
Set objWMI = GetObject("winmgmts:")
''' Debug.Print "Выгрузка процесса: " & procName
If Not IsNull(objWMI) Then
Set objProcList = objWMI.InstancesOf("win32_process")
For Each objProc In objProcList
If UCase(objProc.Name) = UCase(procName) Then
objProc.Terminate (0)
''' Debug.Print "Процесс " & procName & " был выгружен!"
End If
Next
End If
Set objProcList = Nothing
Set objWMI = Nothing
End Function

P.S. Связанные таблицы Excel
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:03:09

All

4316 сообщения

RE: Не разгружается полностью Excel

Когда в Диспетчере задач в закладке Приложения нет задачи Excel, в Процессах он засел, можно использовать и такой вариант обхода возникновения в связи с этим ошибок:
Set objExcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.add
Set objWorksheet = objExcel.ActiveSheet
Else
If TypeName(objExcel.ActiveWorkbook) = "Nothing" Then
Set objWorkbook = objExcel.Workbooks.add
Set objWorksheet = objExcel.ActiveSheet
objWorksheet.Name = Mid(sOpenArg, 1, 31)
Else
...
End If
...
End If

P.S. Связанные таблицы Excel
Автор: YEP от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Не разгру...

Поиск

Список форумов

Начало | Forums