Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.07.2009, 11:16   #1
Avorsa
Новичок
Джуниор
 
Регистрация: 21.07.2009
Сообщений: 2
По умолчанию Связка Прогрес-бар и куча запросов не работает. (

Есть замечательный прогресс-бар от EducatedFool http://www.programmersforum.ru/showthread.php?p=148631.

Пытаюсь связать работу прогресс-бара с выполнением 352 запросов к БД (которые выполняются около 10-12 секунд).

кусок кода вот такой
Код:
    Dim pi As New ProgressIndicator
    Dim cell As Range
    pi.Show "Получение данных из БД": pi.ShowPercents = True
    pi.StartNewAction 0, 50, "Ждите, идет обработка..."
    pi.CurActionCount = [c2:fv2].Cells.Count:
    
    For Each cell In [c2:fv2].Cells
        cell.Select: ActiveCell.QueryTable.Refresh BackgroundQuery:=True
    Next
    
    pi.StartNewAction 50, 100, "Ждите, идет обработка..."
    pi.CurActionCount = [c5:fv5].Cells.Count:
    
    For Each cell In [c5:fv5].Cells
        cell.Select: ActiveCell.QueryTable.Refresh BackgroundQuery:=True
    Next
    pi.Hide
сами запросы располагаются в ячейках С2:FV2 и C5:FV5

В данном виде макрос исправно пробегает по всем ячейкам, прогресс бар отрабатывает эту "пробежку", но ячейки с запросами не апдейтятся...
Где засада?
Avorsa вне форума Ответить с цитированием
Старый 22.07.2009, 18:21   #2
Avorsa
Новичок
Джуниор
 
Регистрация: 21.07.2009
Сообщений: 2
По умолчанию проблема решена

топик клоуз
Avorsa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
список и прогресс бар Temka Общие вопросы Delphi 1 02.06.2009 12:20
куча skymaster Общие вопросы Delphi 1 21.05.2009 11:38
Пропал Яндекс бар и т.д. в Int.Explorer nisoldatov Свободное общение 2 03.04.2009 22:49