|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
12.12.2008, 17:05 | #1 |
Форумчанин
Регистрация: 17.10.2008
Сообщений: 239
|
Закрытие Excel (не знаю что ей не нравиться) из VBA
Уважаемые господа!
В программе написанной в VBA последнии в последних строчках кода я хотел сделать чтобы автоматически информация сохранялась на диске, стерался код и закрывался Excel. nload UserForm1 ActiveWorkbook.SaveAs Filename:= _ "T:\MIHKPD\tb " + Trim(Str(Month(nat_den))) + " " + Trim(Str(Year(nat_den))) + ".xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False For Each iVBComponent In ThisWorkbook.VBProject.VBComponents With iVBComponent Select Case .Type Case 1 To 3: .Collection.Remove iVBComponent Case 100: .Codemodule.deletelines 1, .Codemodule.countoflines End Select End With Next ActiveWorkbook.Save Application.Quit все работает ОК. Однако при выполнении последней строчки Excel выводит предупреждающую надпись о необходимости сохранения таблицы. После клика мыши подтверждения сохранения Excel успешно завершает работу. Вопрос как завершить работу Excel безусловно (т.е. , без предупреждающей надписи)? Заранее благодарен. |
12.12.2008, 17:47 | #2 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата из справки по VBA:
Цитата:
1) пример, приведённый в справке: Код:
Код:
Код:
|
|
15.12.2008, 07:48 | #3 |
Форумчанин
Регистрация: 17.10.2008
Сообщений: 239
|
Благодарю!
Последнее время из-за пониженной скорости Internet вызов справки на работе у меня стал очень проблематичным (порой она просто не выводиться). Рассмотрю все варианты но скорее всего просто воспользуюсь третьим способом. Книгу из-за некоторых проблем сети приходиться сохраять в двух местах. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не знаю что за ошибка | Droid | Общие вопросы Delphi | 9 | 24.05.2008 22:18 |
сайт в FireFox выглядит на 5+ , а вот в Explorer как не знаю что | Мышь в полоску | HTML и CSS | 4 | 24.10.2007 18:43 |