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

Вход

Регистрация

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

 

= Мир MS Excel/Обновление и сохранение файла, макрос не успевает обновиться - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Обновление и сохранение файла, макрос не успевает обновиться
ex Дата: Среда, 20.03.2024, 13:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Добрый день!

В файле сводные таблицы и запрос к внешнему источнику данных в Power Query. Хочу использовать макрос для обновления и сохранения файла, вот код:

[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
End Sub
[/vba]
Проблема в том, что файл не успевает обновиться полностью, а макрос уже пытается его сохранить. Выпадает ошибка: "Это приведет к отмене команды обновления данных. Продолжить?". Нужно, чтобы сначала полностью отработала команда RefreshAll и только после этого запустилась команда Save. Подскажите, пожалуйста, как это сделать?


Сообщение отредактировал Serge_007 - Среда, 20.03.2024, 13:26
 
Ответить
СообщениеДобрый день!

В файле сводные таблицы и запрос к внешнему источнику данных в Power Query. Хочу использовать макрос для обновления и сохранения файла, вот код:

[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
End Sub
[/vba]
Проблема в том, что файл не успевает обновиться полностью, а макрос уже пытается его сохранить. Выпадает ошибка: "Это приведет к отмене команды обновления данных. Продолжить?". Нужно, чтобы сначала полностью отработала команда RefreshAll и только после этого запустилась команда Save. Подскажите, пожалуйста, как это сделать?

Автор - ex
Дата добавления - 20.03.2024 в 13:19
_Boroda_ Дата: Среда, 20.03.2024, 13:53 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16728
Репутация: 6525 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А если DoEvents после обновления засунуть? Иногда работает, иногда нет. Попробуйте


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА если DoEvents после обновления засунуть? Иногда работает, иногда нет. Попробуйте

Автор - _Boroda_
Дата добавления - 20.03.2024 в 13:53
mrovr55 Дата: Воскресенье, 21.07.2024, 22:09 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2010,2016
воспользуйтесь событием Application.SheetCalculate
Оно возникает после полного пересчета листа


Валерий
 
Ответить
Сообщениевоспользуйтесь событием Application.SheetCalculate
Оно возникает после полного пересчета листа

Автор - mrovr55
Дата добавления - 21.07.2024 в 22:09
  • Страница 1 из 1
  • 1
Поиск:

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