ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Это действие приведет к отмене команды обновления данных
4 сообщений из 4, страница 1 из 1
Это действие приведет к отмене команды обновления данных
    #37457430
SupremeB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SupremeB
Гость
Добрый день, всем.
У меня офис 2007 SP2
Суть проблемы: Есть макрос который открывает файл, в котором внешняя таблица (связанная) из access, обновляет эту связанную таблицу, сохраняет файл (пересчитывая его) и закрывает. Работало все отлично. Теперь вылетает такое сообщение "Это действие приведет к отмене команды обновления данных. Продолжить?". ВЫлетает оно после того как таблица обновленая и файл хочет сохранится. Что это и как с этим побороться?

Макрос простой:
Workbooks.Open Filename:= _
"S:\Groups\Монитор\Монитор ОП УТГ.xlsx"
Sheets("исходник").Select
Range("H6").Select
ActiveWorkbook.RefreshAll
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J17815")

ActiveSheet.Calculate
Sheets("ВСЕГО").Select
Range("Q1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close

Помогите, пожалуйста.
...
Рейтинг: 0 / 0
27.09.2011, 15:18
| Ответить | Цитировать | Написать  
Это действие приведет к отмене команды обновления данных
    #37457486
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
SupremeB,
Попробуйте заменить строки:
Код: plaintext
1.
ActiveWorkbook.Save
ActiveWorkbook.Close
строкой:
Код: plaintext
ActiveWorkbook.Close - 1
...
Рейтинг: 0 / 0
27.09.2011, 15:44
| Ответить | Цитировать | Написать  
Это действие приведет к отмене команды обновления данных
    #37457503
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
SupremeB, попробуйте еще так:
Код: plaintext
1.
2.
3.
4.
5.
6.
    With Workbooks.Open("S:\Groups\Монитор\Монитор ОП УТГ.xlsx")
        .RefreshAll
        With .Sheets("исходник")
            .[J2].AutoFill Destination:=.[J2:J17815]
            .Calculate
        End With: .Close - 1 
    End With
...
Рейтинг: 0 / 0
27.09.2011, 15:56
| Ответить | Цитировать | Написать  
Это действие приведет к отмене команды обновления данных
    #37457509
SupremeB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SupremeB
Гость
Спасибо, за внимание.
Ошибка закралось в другом месте. Есть в настройке Эксель опция сохранения и там указан путь для хранения файлов для восстановления. Так вот путь к этой папке закрыт( по техническим причинам) и из-за этого Эксель не хотел прорабатывать макрос. Соответственно изменил путь сохранения файлов для автовосстановления и все заработало как прежде.
...
Рейтинг: 0 / 0
27.09.2011, 15:58
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Это действие приведет к отмене команды обновления данных
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=120&tid=2176462]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 37ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 237ms
total:  341ms
созд. / загр.: 341ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]