Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Закрыть все Эксэли / 5 сообщений из 5, страница 1 из 1
14.12.2007, 10:51
    #35009693
part_ok
part_ok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрыть все Эксэли
Подскажите, пожалуйста, как можно при нажатии Комманд1 закрыть все Эксель процессы.
Объясню: то ли это ошибки винды или чёта исчо, но в процессе работы я открываю и закрываю книги Эксель, работаю с ними. Вроде всё закрыто, а в процессах висят EXCEL.EXE, и не один, а бывает что и два, и три. Как вот мне их остановить? А то другие проги не хотят работать, пока не закрою процессы EXCEL.EXE.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2007, 11:02
    #35009746
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрыть все Эксэли
А почему они у тебя не закрываются когда ты работаешь с Excel?
Если эта работа програмная, то своевременно закрывай эти окна.

-----------
Андрей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2007, 11:07
    #35009761
part_ok
part_ok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрыть все Эксэли
Ну, не знаю, может, и из-за неправильной работы пользователя такое происходит? Но факт такой имеется. Его можна как-то разрешить? Просто консультацию получить хочу, есть ли методы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2007, 13:15
    #35010336
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрыть все Эксэли
а как ты книги открываешь???

может есть смысл после того как поработал сделать этому Экселю

Код: plaintext
Application.Quit

т.е. если в начале кода
Код: plaintext
Set xlApp = CreateObject("Excel.Application")

то в конце кода обработки книги
Код: plaintext
1.
2.
3.
4.
xlApp.Quit
 Set xlSheet = Nothing
 Set xlBook = Nothing
 Set xlApp = Nothing


С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2007, 16:43
    #35018239
V.Kim
V.Kim
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Закрыть все Эксэли
'закрыть все файлы и приложения Экселя
' V.Kim e2li@ yandex.ru
Public Function CloseAllXLapp()
Dim i As Long
Dim XLapp As Object
i = 0
FindNextExcel:

On Error Resume Next
Set XLapp = GetObject(, "Excel.Application")
'
If Err.Number <> 0 Then 'Если больше нет приложений Эксель - выходим
If i <> 0 Then MsgBox "Закрыто " & i & "экз. приложений Excel", vbInformation, "Закрыть все приложения Excel"
Exit Function
End If
i = i + 1
'XLapp.Visible = True
'без сохранения закрываем все файлы в приложении
XLapp.DisplayAlerts = False
XLapp.Workbooks.Close
XLapp.DisplayAlerts = True
'закрываем приложение
XLapp.Quit
Set XLapp = Nothing
GoTo FindNextExcel
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Закрыть все Эксэли / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 355ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162931]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 65ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 199ms
total:  355ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]