#include <Array.au3>
#include <File.au3>
#include <Excel.au3>


Local $Dir = "C:\Users\John\Desktop\test\"

    $aArray = _FileListToArrayRec($Dir, "*.xls", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT, $FLTAR_RELPATH)
	Local $oExcel = _Excel_Open(True)
	For $i = 1 To UBound($aArray, $UBOUND_ROWS) -1 Step +1
	   Local $sWorkbook = $Dir & $aArray[$i]
	   Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)

	   Local $sResult = _Excel_RangeRead($oWorkbook, Default, "A11") ; Get the cell's bellow value where the random string is located
		 If @error Then MsgBox(0, "Range Read Error 1", "@error = " & @error & ", @extended = " & @extended)
		 FileWriteLine(@ScriptDir & "\log.txt", $sResult)


	Next
    _ArrayDisplay($aArray, "No 'Include' folder")