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

Вход

Регистрация

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

 

= Мир MS Excel/Обновление данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Обновление данных
evgenyforever Дата: Понедельник, 11.12.2023, 10:24 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго времени суток, прошу помощи, при обновлении внешних данных возникает ошибка, (насколько я понимаю при разрыве соединения с источником возникает такая ошибка), т.е обновляет, но потом может выскочить данная ошибка и обновление приостанавливается, соответственно приостанавливается вся работа, приходится запускать вручную:



Просьба помочь изменить код, который отвечает за обновление этого источника данных или при появлении ошибки просто перезапустить макрос сначала.
[vba]
Код
Private Sub ОбновлениеПодключений()

    ' Макрос "Обновить подключения".

    Dim i As Long    
    
    Обновление подключений.
    Worksheets("ЕВРО").Range("A500").QueryTable.Refresh BackgroundQuery:=False
    Установка таймера.
    Application.OnTime Now + TimeValue("00:00:05"), "ОбновлениеПодключений"

    End Sub
[/vba]
К сообщению приложен файл: makros_obnovlenija_dannykh.xlsb (49.3 Kb)


Сообщение отредактировал evgenyforever - Понедельник, 11.12.2023, 10:26
 
Ответить
СообщениеДоброго времени суток, прошу помощи, при обновлении внешних данных возникает ошибка, (насколько я понимаю при разрыве соединения с источником возникает такая ошибка), т.е обновляет, но потом может выскочить данная ошибка и обновление приостанавливается, соответственно приостанавливается вся работа, приходится запускать вручную:



Просьба помочь изменить код, который отвечает за обновление этого источника данных или при появлении ошибки просто перезапустить макрос сначала.
[vba]
Код
Private Sub ОбновлениеПодключений()

    ' Макрос "Обновить подключения".

    Dim i As Long    
    
    Обновление подключений.
    Worksheets("ЕВРО").Range("A500").QueryTable.Refresh BackgroundQuery:=False
    Установка таймера.
    Application.OnTime Now + TimeValue("00:00:05"), "ОбновлениеПодключений"

    End Sub
[/vba]

Автор - evgenyforever
Дата добавления - 11.12.2023 в 10:24
evgenyforever Дата: Понедельник, 11.12.2023, 10:26 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Также приложил файл-источник, с которого получаю внешние данные.
К сообщению приложен файл: fajl_istochnik.csv (23.5 Kb)
 
Ответить
СообщениеТакже приложил файл-источник, с которого получаю внешние данные.

Автор - evgenyforever
Дата добавления - 11.12.2023 в 10:26
evgenyforever Дата: Воскресенье, 17.12.2023, 12:49 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Не актуально, решено.
 
Ответить
СообщениеНе актуально, решено.

Автор - evgenyforever
Дата добавления - 17.12.2023 в 12:49
  • Страница 1 из 1
  • 1
Поиск:

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