ошибка при обновление данных

20.12.2012, 01:26. **Показов** 5138. **Ответов** 3

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

Здравствуйте!
Возникла следующая проблема: при обновлении внешних данных через web-запрос в excel 2007 иногда (возможно из-за проблем соединения, или времнной недоступности сервера) выходит сообщение вида: "не удается открыть www.blablabla.ru Не удается найти сервер Интернета или прокси-сервер" с кнопкой OK. Соответственно, пока на нее не нажмешь, дальнейшее обновление данных прекращается, а необходимо, чтобы оно происходило с постоянной периодичностью.
В Sub Auto_Open() написал Application.DisplayAlerts = False, при закрытии соответственно true, но проблема не решилась, эти сообщения возникают редко, но блокируют всю дальнейшую работу макросов по актуализации данных.
Подскажите плз, как можно отключить эти уведомления?

@Staniiislav · 20.12.2012, 13:17

попробуйте вставить в начале макроса

Код

On Error Resume Next

Скрипт · 20.12.2012, 14:03

Только нужно не забыть написать эту строку после проблемного участка кода:

Visual Basic

1	On Error GoTo 0

чтобы отменить действие

Visual Basic

1	On Error Resume Next

21.12.2012, 01:59

Эти данные обновляются не макросом, а средствами excel (вкладка "данные" - "Из Веба"). Макросы выполняют дальнейшую обработку данных, но ошибка возникает на этапе обновления диапазонов, а не при работе макросов.

Добавлено через 51 минуту
вроде бы решил проблему путем обновления данных через макрос, а не встроенными средствами:

On Error Resume Next
Sheets("Лист1").Range("B3").QueryTable.Refresh BackgroundQuery:=False
On Error GoTo 0

Спасибо за помощь!!!

Добавлено через 10 часов 46 минут
все-таки не работает...

Добавлено через 7 минут
BackgroundQuery:=False работает, а True выдает ошибку...

falseflags
		1
	ошибка при обновление данных 20.12.2012, 01:26. Показов 5138. Ответов 3 Метки нет (Все метки) Здравствуйте! Возникла следующая проблема: при обновлении внешних данных через web-запрос в excel 2007 иногда (возможно из-за проблем соединения, или времнной недоступности сервера) выходит сообщение вида: "не удается открыть www.blablabla.ru Не удается найти сервер Интернета или прокси-сервер" с кнопкой OK. Соответственно, пока на нее не нажмешь, дальнейшее обновление данных прекращается, а необходимо, чтобы оно происходило с постоянной периодичностью. В Sub Auto_Open() написал Application.DisplayAlerts = False, при закрытии соответственно true, но проблема не решилась, эти сообщения возникают редко, но блокируют всю дальнейшую работу макросов по актуализации данных. Подскажите плз, как можно отключить эти уведомления?

@Staniiislav 30 / 30 / 0 Регистрация: 07.07.2010 Сообщений: 50
	20.12.2012, 13:17	2
	попробуйте вставить в начале макроса Код On Error Resume Next 1

falseflags
	21.12.2012, 01:59	4
	Эти данные обновляются не макросом, а средствами excel (вкладка "данные" - "Из Веба"). Макросы выполняют дальнейшую обработку данных, но ошибка возникает на этапе обновления диапазонов, а не при работе макросов. Добавлено через 51 минуту вроде бы решил проблему путем обновления данных через макрос, а не встроенными средствами: On Error Resume Next Sheets("Лист1").Range("B3").QueryTable.Refresh BackgroundQuery:=False On Error GoTo 0 Спасибо за помощь!!! Добавлено через 10 часов 46 минут все-таки не работает... Добавлено через 7 минут BackgroundQuery:=False работает, а True выдает ошибку...