在Excel Vba程序中自制进度条，显示实时进度信息

工作中常常使用Excel + Vba进行一些数据的操作，在读取成千上万行数据时就非常需要一个进度显示。虽然vba自带有Active控件的进度条，但使用后发现效果并不理想。

于是自制了一个，在状态栏显示，效果如图：



代码：

调用方式示例：

rs.Open sql,  connXls, 1
Dim p As Integer: p = 0
Do While Not rs.EOF
p = p + 1
'在状态栏显示
Application.StatusBar = GetProgress(p, rs.RecordCount)
……

非常地实用吧，呵呵。