Как сохранить данные в Excel при выходе

02.12.2010, 14:09. **Показов** 4169. **Ответов** 5

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

Доброго времени суток на циферблате!

Как сохраниться при выходе: Вот так закрываю все (нафиг)

Visual Basic
1
2
Application.DisplayAlerts = False
Application.Quit

Что посоветуете!

@palva · 02.12.2010, 14:47

Visual Basic
1
2
Application.DisplayAlerts = False ' чтобы не было вопросов
Application.ActiveWorkbook.SaveAs 'filename'

Возможно надо будет сохранить и другие книги, если имеются.

@pashulka · 03.12.2010, 17:54

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub SaveOpenFile()
 
'***********************************************
'  author [email]pashulka@newgen.ru[/email]
'***********************************************
 
If Application.Workbooks.Count = 1 Then
   ActiveWorkbook.Save
   Application.Quit
Else
   For Each iBook In Application.Workbooks
       iBook.Save
   Next
   Application.Quit
End If
 
'  выберите второй вариант, если :
'  нужно закрыть и сохранить только активную книгу
'  без закрытия приложения MS Excel
'  DisplayAlert - нафиг не нужен
 
ActiveWorkbook.Close saveChanges:=True
 
End Sub

Вопрос для palva !
Зачем было сохранять файл под другим именем, разве подобная просьба
было в вопросе ?

@palva · 03.12.2010, 21:58

> Зачем было сохранять файл под другим именем,

Ну я посчитал, что в случае, если файл создавался с нуля, то при сохранении он всё равно спросит про имя и тормознет программу.

Может быть, был неправ.

@palva · 03.12.2010, 22:02

Имя можно взять из ActiveWorkBook.Name а DisplayAlert = False требуется, чтобы Excel не спрашивал разрешения при перезаписи файла.

@pashulka · 04.12.2010, 01:48

Хорошая программа должна предусматривать все варианты, так что следите за ходом моих мыслей :
Инструкция ActiveWorkbook.Save не требует определения имени, но при отсутствии Application.DisplayAlerts = False и наличии в папке автосохранения файла с именем Книга1 и т.д. (в русской версии новые файлы носят именно такие имена) возникнет вопрос о замене файла.
С другой стороны при отключении запросов 'старый' файл будет автоматически заменен на 'новый', а если это принципиально разные файлы, да ещё с очень важной информацией !!!
При таком раскладе лучше мы очень рискуем и лучше получить запрос на замещение файла(ов), чем потерять данные !!!

Так что моя программка почти полностью отвечает запросам пользователя , но если Вас раздражают стандартные диалоговые окна, то
можно использовать перехват ошибки и вывести в Msgbox всю информацию о 'старом' файле и возможность пользователю выбрать вариант замены.
Если подобный код интересен, то пишите сразу на e-mail : urllink_doggie_yandex.ru

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,930 Записей в блоге: 5
	03.12.2010, 21:58
	> Зачем было сохранять файл под другим именем, Ну я посчитал, что в случае, если файл создавался с нуля, то при сохранении он всё равно спросит про имя и тормознет программу. Может быть, был неправ. 0

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,930 Записей в блоге: 5
	03.12.2010, 22:02
	Имя можно взять из ActiveWorkBook.Name а DisplayAlert = False требуется, чтобы Excel не спрашивал разрешения при перезаписи файла. 0

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	04.12.2010, 01:48
	Хорошая программа должна предусматривать все варианты, так что следите за ходом моих мыслей : Инструкция ActiveWorkbook.Save не требует определения имени, но при отсутствии Application.DisplayAlerts = False и наличии в папке автосохранения файла с именем Книга1 и т.д. (в русской версии новые файлы носят именно такие имена) возникнет вопрос о замене файла. С другой стороны при отключении запросов 'старый' файл будет автоматически заменен на 'новый', а если это принципиально разные файлы, да ещё с очень важной информацией !!! При таком раскладе лучше мы очень рискуем и лучше получить запрос на замещение файла(ов), чем потерять данные !!! Так что моя программка почти полностью отвечает запросам пользователя , но если Вас раздражают стандартные диалоговые окна, то можно использовать перехват ошибки и вывести в Msgbox всю информацию о 'старом' файле и возможность пользователю выбрать вариант замены. Если подобный код интересен, то пишите сразу на e-mail : urllink_doggie_yandex.ru 0

Как сохранить данные в Excel при выходе

Решение