powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подключение к внешнему источнику через VBA
9 сообщений из 9, страница 1 из 1
Подключение к внешнему источнику через VBA
    #37996597
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для получения данных в Excel использую стандартную процедуру


данное подключение загружает данные на лист Платежи с 2 строки.
в качестве фильтра выступает ячейка на листе Excel
(пока писал увидел опечатку должно быть (STH.ID=?)).
при каждом обновлении лист должен очищатся.

В таком виде не видно, когда процес обновления закончен.
поэтому хочу переложить все на VBA, для улучшения информативности.

помогите пожалуста с макросом
...
Рейтинг: 0 / 0
Подключение к внешнему источнику через VBA
    #37996741
портер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA, воспользуйся макрорекордером для записи макроса обновления внешнего диапазона. Т.е. программно запускай его. И после обновления окошко сделай, что обновилось все. Как пример:
Код: vbnet
1.
2.
Worksheets("TWR").Range("A6").ListObject.QueryTable.Refresh BackgroundQuery:=False
MsgBox "Все дела сделаны.", vbInformation, "Обновление TWR"
...
Рейтинг: 0 / 0
Подключение к внешнему источнику через VBA
    #37996876
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
портер,

у меня сейчас сделанно подключение через ODBC
и чтобы каждый раз не лазить по меню
я сделал макрос

авторSub обновление()
'
' обновление Макрос
'

'
ActiveWorkbook.RefreshAll
End Sub


а что мне дальше делать
...
Рейтинг: 0 / 0
Подключение к внешнему источнику через VBA
    #37996905
портер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Chumakov_JA, впили в макрос строку
MsgBox "Все дела сделаны.", vbInformation, "Все обновлено, ура-ура".
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub обновление()
'
' обновление Макрос
'

'
ActiveWorkbook.RefreshAll
'После обновления всех внешних данных вылезет окошко с текстом  "Все дела сделаны."
MsgBox "Все дела сделаны.", vbInformation, "Все обновлено, ура-ура".
End Sub
...
Рейтинг: 0 / 0
Подключение к внешнему источнику через VBA
    #37997202
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
портер,

Спасибо
и вот ещё нашел на просторах интернета
вариант с ShowSplash
вообще то что нужно.
...
Рейтинг: 0 / 0
Подключение к внешнему источнику через VBA
    #37997981
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пример конечно хороший НО
запускается все в фоновом режиме
то есть макрос отрабатывает мгновенно
и тут начинается процесс обновления данных
а он идет от 10 секунд до 2 минут

а как отследить окончание процеса обновления ?
...
Рейтинг: 0 / 0
Подключение к внешнему источнику через VBA
    #37998013
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Chumakov_JA,

очевидно, что когда закончится цикл For lLoop = 1 To lIterations.
...
Рейтинг: 0 / 0
Подключение к внешнему источнику через VBA
    #37998165
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
big-dukeChumakov_JA,

очевидно, что когда закончится цикл For lLoop = 1 To lIterations.

простите за безграмотность
можно на примере

авторSub обновление()
'
' обновление Макрос
'

'
ActiveWorkbook.RefreshAll
'После обновления всех внешних данных вылезет окошко с текстом "Все дела сделаны."
MsgBox "Все дела сделаны.", vbInformation, "Все обновлено, ура-ура".
End Sub
...
Рейтинг: 0 / 0
Подключение к внешнему источнику через VBA
    #37998266
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Chumakov_JA,

Всем спасибо разрулил ситуацию отключив в опциях "обновлять в фоновом режиме"
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Подключение к внешнему источнику через VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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