#include<excel.au3>

HotKeySet("{s}","start")
HotKeySet("{e}","end")


Local  $oExcel_1= _Excel_Open()
Local  $oworkbook = _Excel_BookOpen($oExcel_1,"C:\Users\SAHIL\Desktop\l2d\book1.xlsx")
Local $a = "a1"
While 1
   Sleep(1)
WEnd

Func start()
   While 1
	  Local $nc= "$a" +1
	  WinActivate("microsoft Excel", "book1")
	  Local $_name = _Excel_RangeRead($oworkbook,"sheet 1", "$nc")

	  MsgBox("$_name")
   WEnd
EndFunc

Func end()
   exit 0
   EndFunc