Progress bar while reading array?

#include <Excel.au3>

$begin = TimerInit()

$Log= @ScriptDir & "\data.xlsx"
$oExcel = _ExcelBookOpen($Log, 0)

$aArray = _ExcelReadSheetToArray($oExcel, 1, 1, 0, 1)
$Max = $aArray[0][0]

$dif = Round((TimerDiff($begin)),0)/1000
MsgBox(0, "Time of Reading", $dif & " sec" & " for " & $Max & " rows")

_ExcelBookClose($oExcel, 1, 0)
$oExcel.Application.Quit

Exit