Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/"Сохранить рабочую область" в Excel-2013 - Страница 3 - Мир MS Excel

Старая форма входа
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » "Сохранить рабочую область" в Excel-2013 (Иное/Other)
"Сохранить рабочую область" в Excel-2013
iam_alex Дата: Вторник, 31.01.2017, 14:43 | Сообщение № 41
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
если открыта хотя бы одна книга рабочей области, то при открытии XLW-файла ничего не происходит...
 
Ответить
Сообщениеесли открыта хотя бы одна книга рабочей области, то при открытии XLW-файла ничего не происходит...

Автор - iam_alex
Дата добавления - 31.01.2017 в 14:43
iam_alex Дата: Вторник, 31.01.2017, 14:45 | Сообщение № 42
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
это по результатам "тестирования")) чуть позже посмотрю подробней сами процедуры, сравню с тем что было - может что-нибудь пойму...
 
Ответить
Сообщениеэто по результатам "тестирования")) чуть позже посмотрю подробней сами процедуры, сравню с тем что было - может что-нибудь пойму...

Автор - iam_alex
Дата добавления - 31.01.2017 в 14:45
Alex_ST Дата: Вторник, 31.01.2017, 15:31 | Сообщение № 43
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3198
Репутация: 606 ±
Замечаний: 0% ±

2003
макрос из поста 36 создает файл с путями, но теперь не предлагает сохранить - выбираю место, имя и тип файла вручную. так и задумано?
ДА. Я уже писАл:
Можно бы доделать, но и без этого работает:
- добавить предложение сохранить все открытые файлы
- добавить диалог сохранения файла
Да и к тому же
абсолютно нет желания возиться с доведением до блеска макроса, который лично мне не пригодится никогда.
Поэтому, раз не получается почему-то корректно вывести диалог сохранения файла и обработать результат, просто убрал это. А если Вам нужно сохранить, то и сохраняйте стандартными средствами (кнопками) там и так как Вам нужно.
Процедуру из поста 37 в Ваш файл копировать не надо. Такая процедура будет автоматически прописана в модуль ЭтаКнига создаваемой книги рабочей области.
жму кнопку "включить макросы", открывается файл с путями и более ничего не происходит...

Выполнение макросов должно быть разрешено в системе ДО открытия файла. Если это сделать после открытия, то событие Workbook_Open обработано не будет и, соответственно не выполнятся процедуры открытия файлов



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
Сообщение
макрос из поста 36 создает файл с путями, но теперь не предлагает сохранить - выбираю место, имя и тип файла вручную. так и задумано?
ДА. Я уже писАл:
Можно бы доделать, но и без этого работает:
- добавить предложение сохранить все открытые файлы
- добавить диалог сохранения файла
Да и к тому же
абсолютно нет желания возиться с доведением до блеска макроса, который лично мне не пригодится никогда.
Поэтому, раз не получается почему-то корректно вывести диалог сохранения файла и обработать результат, просто убрал это. А если Вам нужно сохранить, то и сохраняйте стандартными средствами (кнопками) там и так как Вам нужно.
Процедуру из поста 37 в Ваш файл копировать не надо. Такая процедура будет автоматически прописана в модуль ЭтаКнига создаваемой книги рабочей области.
жму кнопку "включить макросы", открывается файл с путями и более ничего не происходит...

Выполнение макросов должно быть разрешено в системе ДО открытия файла. Если это сделать после открытия, то событие Workbook_Open обработано не будет и, соответственно не выполнятся процедуры открытия файлов

Автор - Alex_ST
Дата добавления - 31.01.2017 в 15:31
Alex_ST Дата: Среда, 01.02.2017, 11:39 | Сообщение № 44
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3198
Репутация: 606 ±
Замечаний: 0% ±

2003
На досуге добавил в процедуру комментарии



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеНа досуге добавил в процедуру комментарии

Автор - Alex_ST
Дата добавления - 01.02.2017 в 11:39
iam_alex Дата: Четверг, 27.07.2017, 08:20 | Сообщение № 45
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
На досуге добавил в процедуру комментарии

Доброго дня. Пользуюсь Вашим макросом и счастлив))) Еще раз спасибо за работу "на досуге"))
Сегодня, видимо первый раз, столкнулся с тем, что открываю с помощью файла, созданного макросом, уже предварительно открытые те же самые файлы, и получается, что как только "встречается" первый файл в списке, который уже открыт в данный момент, макрос останавливается и дальше файлы не открываются. Это можно поправить без несоразмерных затрат времени и сил?))
 
Ответить
Сообщение
На досуге добавил в процедуру комментарии

Доброго дня. Пользуюсь Вашим макросом и счастлив))) Еще раз спасибо за работу "на досуге"))
Сегодня, видимо первый раз, столкнулся с тем, что открываю с помощью файла, созданного макросом, уже предварительно открытые те же самые файлы, и получается, что как только "встречается" первый файл в списке, который уже открыт в данный момент, макрос останавливается и дальше файлы не открываются. Это можно поправить без несоразмерных затрат времени и сил?))

Автор - iam_alex
Дата добавления - 27.07.2017 в 08:20
Alex_ST Дата: Понедельник, 25.01.2021, 13:11 | Сообщение № 46
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3198
Репутация: 606 ±
Замечаний: 0% ±

2003
Почему-то съехала подписка на вопросы в теме...
Через 4 года ( :shy: ) отвечаю.
В цикле заменить [vba]
Код
                    "         If WorkbookIsOpen(stxt) Then Exit For   ' если книга с таким именем уже открыта" & vbCrLf & _
[/vba]
на [vba]
Код
                    "         If WorkbookIsOpen(stxt) Then Next rCell   ' если книга с таким именем уже открыта" & vbCrLf & _
[/vba]



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеПочему-то съехала подписка на вопросы в теме...
Через 4 года ( :shy: ) отвечаю.
В цикле заменить [vba]
Код
                    "         If WorkbookIsOpen(stxt) Then Exit For   ' если книга с таким именем уже открыта" & vbCrLf & _
[/vba]
на [vba]
Код
                    "         If WorkbookIsOpen(stxt) Then Next rCell   ' если книга с таким именем уже открыта" & vbCrLf & _
[/vba]

Автор - Alex_ST
Дата добавления - 25.01.2021 в 13:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » "Сохранить рабочую область" в Excel-2013 (Иное/Other)
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!