Связка Прогрес-бар и куча запросов не работает. (

[Avorsa]

Есть замечательный прогресс-бар от 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]

топик клоуз