; Nine version of Spreadsheet Reader

#include <Constants.au3>
#include <Excel.au3>

Opt ("MustDeclareVars", 1)

HotKeySet ("!{HOME}", _SelectRow)
HotKeySet ("{ESC}", _Exit)

Global $oExcel = _Excel_Open()
Global $sWorkbook = @ScriptDir & "\Test.xlsx"
Global $oWorkbook = _Excel_BookAttach($oExcel, $sWorkbook)

While True
  Sleep (100)
WEnd

Func _SelectRow()
  Local $sActiveCell = $oExcel.ActiveCell.Address
  ConsoleWrite ($sActiveCell & @CRLF)
  Local $oRange = $oWorkBook.Activesheet.UsedRange.Rows($oExcel.ActiveCell.row)
  Local $aArray = _Excel_RangeRead ($oWorkbook, $oWorkBook.Activesheet, $oRange, 1)
  _ArrayDisplay ($aArray)
EndFunc

Func _Exit ()
  _Excel_Close ($oExcel)
  Exit
EndFunc