Добавить индикатор процесса в код макроса

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста как в код ниже (excel 2003. Код срабатывает при открытии книги Excel и создает листы с именами таблиц из файла mdb) добавить progressBar (т.е. изменение, например, ширины Label-а на форме, которая открывается в начале и скрывается по окончании кода)?
Заранее спасибо!

For Each tb In Database.TableDefs
If Not tb.Name Like ("*Sys*") Then
Set MySheet = Worksheets.Add
MySheet.Name = tb.Name
End If
Next

[Hugo121]

Первоочередное - нужен цикл от 1 до количества этих TableDefs, ну или их счётчик (с известным максимальным числом), ну а далее уже можно приладить любой доступный прогресбар, а их много разных.
Но мне всегда хватает обычного статусбара.

[Aleksandr H.]

EducatedFool имеет статью по прогрессбаре. Смотрите у него на сайте

Сообщение от Hugo121

Первоочередное - нужен цикл от 1 до количества этих TableDefs, ну или их счётчик (с известным максимальным числом), ну а далее уже можно приладить любой доступный прогресбар, а их много разных.
Но мне всегда хватает обычного статусбара.

Цикл по всех TableDefs или только где есть *Sys*?

[Hugo121]

Думаю можно по всем - да и проще так. Ну будет рывками бежать... и пусть. И думаю не особо будет разница - сколько там времени занимает создание листа, практически ничего.

[ольгаг]

Спасибо за обсуждение.
Скажите пожалуйста, если допустим известно количество TableDefs, т.е. в начале кода их количество определяется. То как написать цикл (по всем TableDefs где нет в имени*Sys*) от 1 tb до последней tb менять например ширину Label-а на форме (как индикатора)?
Хотелось бы попробовать прогрессбар, т.к. после добавления листа идет еще код его наполнения, но думаю привязать цикл к количеству этих таблиц.

[IgorGO]

см. вложение

[Aleksandr H.]

можна в RecordSet загнать запрос который считает количество таблиц.
потом в цикле от 1 до recordset.recordcount делать что-то типа

frmProgressBar.lbl.width = i * recordcount/maxLblWidth

[Hugo121]

Цикл по всем таблицам ведь уже есть - просто внутри поставьте счётчик i=i+1, к нему и привязывайте прогресс. К счётчику и конечному известному значению.

[ольгаг]

Спасибо большое, попробую сделать.