Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.02.2013, 15:19   #1
Decor
Пользователь
 
Регистрация: 04.02.2013
Сообщений: 11
По умолчанию Сохранение всех открытых книг

Не нашёл пока ответа на данный вопрос...

А возможно ли макросом сохранить разом все открытые книги не закрывая их? Насущная для меня дилемма пока...
Decor вне форума Ответить с цитированием
Старый 22.02.2013, 15:27   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

вместе нельзя, а по очереди можно
Код:
for each wb in workbooks
  wb.save
next
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 22.02.2013, 16:07   #3
Decor
Пользователь
 
Регистрация: 04.02.2013
Сообщений: 11
По умолчанию

Да, спасибо большое... То, что и надо было...
Decor вне форума Ответить с цитированием
Старый 22.02.2013, 18:54   #4
Decor
Пользователь
 
Регистрация: 04.02.2013
Сообщений: 11
По умолчанию

Всё отлично, но можно ли как-то убрать из общего сохранения personal.xls?
Его незачем всё время сохранять...
И тогда будет идеально...
Decor вне форума Ответить с цитированием
Старый 22.02.2013, 20:07   #5
Скрипт
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 776
По умолчанию

Decor, прежде, чем сохранить книгу, сравнивайте имя книги с именем "personal.xls". Если у книги имя не "personal.xls", то сохраняйте книгу, если у книги имя personal.xls, то не сохраняйте книгу.
Скрипт вне форума Ответить с цитированием
Старый 22.02.2013, 21:40   #6
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Код:
For Each wb In Workbooks
    If Not wb.Saved Then wb.Save
Next
Будут сохранены только те книги, в которых есть изменения.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 22.02.2013, 21:53   #7
Decor
Пользователь
 
Регистрация: 04.02.2013
Сообщений: 11
Хорошо

Цитата:
Сообщение от Казанский Посмотреть сообщение
Будут сохранены только те книги, в которых есть изменения.
Во..! Самое то... Спасибо огроменное..!

Последний раз редактировалось Decor; 22.02.2013 в 21:55.
Decor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование всех открытых документов в один sersh1 Microsoft Office Word 12 31.01.2012 19:18
Количество открытых книг Lubocka Microsoft Office Excel 4 29.11.2011 15:50
Обработка событий во всех открытых книгах agregator Microsoft Office Excel 17 18.02.2010 13:11
список всех открытых файлов и папок. Teleport Общие вопросы Delphi 4 22.06.2008 11:29