#include <Excel.au3>
Global Const $xlUp = -4162
$oError = ObjEvent('AutoIt.Error', '_Error')
If FileExists(@ScriptDir & '\Test.xls') Then
$oExcel = _ExcelBookOpen(@ScriptDir & '\Test.xls')
Else
$oExcel = _ExcelBookNew()
_ExcelBookSaveAs($oExcel, @ScriptDir & '\Test')
EndIf
$iMaxRowCnt = $oExcel.Rows.Count
For $i = 1 To 10
Sleep(3000)
$iLastRow = $oExcel.Cells($iMaxRowCnt, 'A' ).End($xlUp).Row
If $iLastRow > 1 Then $iLastRow += 1
$aTmp = __RandomArray(Random(10, 50, 1), 4)
If $iLastRow + UBound($aTmp) > $iMaxRowCnt Then ExitLoop;или создаем, если надо, новый лист и переходим на него
$aTmp[0][0] = StringFormat('%02d:%02d:%02d', @HOUR, @MIN, @SEC)
_ExcelWriteSheetFromArray($oExcel, $aTmp, $iLastRow, 1, 0, 0)
Next
$oExcel.Columns('A:D' ).EntireColumn.AutoFit
_ExcelBookClose($oExcel)
Func __RandomArray($i_RowCnt, $i_ColumnCnt)
Local $a_Ret[1]
ReDim $a_Ret[$i_RowCnt][$i_ColumnCnt]
For $i = 0 To $i_RowCnt - 1
For $j = 0 To $i_ColumnCnt - 1
$a_Ret[$i][$j] = Random(1000, 100000, 1)
Next
Next
Return $a_Ret
EndFunc ;==>__RandomArray
Func __Error()
ConsoleWrite('Error!!! ' & $oError.scriptline & @LF)
EndFunc ;==>__Error