progressbar控件的导出用法疑问

Question

在从MSHFlexgrid中导出数据到excel中，因为数据太多。所以导出时间慢，我想用progressbar控件来显示进度。这样一定程度可以减轻用户的不耐烦。请问：怎么样才能控制Progressbar的value值？
有什么好的导出方法吗？

Answer 1

将progressbar的maxvalue设置为数据行数,每导出一行value加1,我是这样做的

Answer 2

谢谢，楼上的指点。恩，真的不错，刚开始我老是想着怎么用时间来表示maxvalue了。谢谢。

Answer 3

Progressbar1.max=rs.Recordcount
i=1
do until rs.eof
      '''把一条数据导入EXCEL
      Progressbar1.value=i
      i=i+1
      rs.movenext
loop