#include <Date.au3>
#include <Excel.au3>
;#include <_Excel_amj.au3>

$time = TimerInit()
$FileName= "C:\TestKSC.xls"

$oExcel = _ExcelbookNew()
_ExcelSheetAddNew($oExcel, "dlhacker")

$x = 2 ; Zeile
$y = 2
$z = 2
$l = 2 ; Spalte
$m = 3
$n = 4

For $i = 1 To 10
	$dif = TimerDiff ($time)
	_ExcelWriteCell($oExcel, _NowDate(), $x, $l)
	_ExcelWriteCell($oExcel, _NowTime(), $y, $m)
	_ExcelWriteCell($oExcel, "'"&StringFormat ("%.2f", $dif / 1000), $z,$n)
	$x = $x + 1
	$y = $y + 1
	$z = $z + 1
Next


Sleep(2000)

_ExcelBookSaveAs($oExcel, "C:\TestKSC.xls", "xls")
_ExcelBookClose($oExcel)