vba中如何加入进度条功能，最好是显示时间百分比，在线等

现在我的vba程序实现的功能是读一个excel文件，逐行读取，2万条左右的数据量，读完后插入数据库。问题是，现在的程序执行速度太慢，所以要求能做一个进度条显示百分比。
  之前看了用progressbar的方法，是以条数来作为进度条增加的计数。问题是我要读的这个excel的条数是未知的，有没有根据时间来显示百分比的。因为如果在读之前先检索一遍取得条数，再根据条数计算百分比，程序会更慢。
  等待解决方法。