vb计算excel文件某行个数