Смотря как у тебя данные выгружаются в Excel, если в цикле перебираешь строки в таблице, то тут и думать не надо, просто progressbar.Position:=progressbar.Position+1 (если слишком быстро все происходит, можно после этой строчки добавить Application.ProcessMessages).А если через компонент какойнить,то тут отдельно нужно рассматривать компонент