#include <Excel.au3>
$oExcel = _ExcelBookNew(0)
_ExcelBookSaveAs($oExcel, @ScriptDir & '\test', 'xls', 0, 1)
For $i = 1 To $oExcel.ActiveWorkbook.Sheets.Count
For $j = 1 To 5
For $u = 1 To 3
$oExcel.ActiveWorkbook.Sheets($i).Cells($j, $u).Value = 'Sheet ' & $i
Next
Next
Next
_ExcelBookClose($oExcel)
$oExcel = 0