Help with reading an Excel Sheet to an Array

[andomatic 0]

Hello.

I am trying to accomplish a (looks like) simple task. I need to read a column from an excel sheet into an array and then loop through the values to test against them. My workbook has multiple sheets. When I run my code:

expandcollapse popup

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

Const $sKeyWordPath = "p:\autoitsrc\code\keywords.xls"; Excel file with search terms
Const $sTextFilePath = "p:\autoitsrc\bystate\AL"; State pdf to text conversions

Dim $sTextFileContents
Dim $sPaymentAmt
Dim $aFileList

; Open up the keywords and populate and array
$oExcel =_ExcelBookOpen($sKeyWordPath,0,"True")
_ExcelSheetActivate($oExcel, "duration")

$aArray = _ExcelReadSheetToArray($oExcel)
_ArrayDisplay($aArray, "Array using Default Parameters")

; Read in each text file and then loop the array until we get a hit
$aFileList = _FileListToArray($sTextFilePath, "*.txt")
If @error=1 Then
    MsgBox (0, "", "No Files\Folders Found.")
    Exit
EndIf

Global $aFileStrings[$aFileList[0] + 1][2] = [[$aFileList[0]]]

For $i = 1 To $aFileList[0]
    $sFile = FileRead($sTextFilePath & "\" & $aFileList[$i])
    ; Check for the keywords...
        For $kw = 1 to $aArray[0]
            msgbox(0,"Keywords...",$kw)
        Next
    ;msgbox(0,"File Results",$sFile)
Next

_ExcelBookClose($oExcel)

I get an error as below:

P:\AutoItSrc\code\GOLD\exceltest.au3 (33) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

For $kw = 1 to $aArray[0]

For $kw = 1 to ^ ERROR

->14:32:14 AutoIT3.exe ended.rc:1

>Exit code: 1 Time: 8.243

when I run the code. A kick in the correct direction is appreciated.

Thanks,

Andy

[water 1,847]

_ExcelReadSheetToArray creates a two-dimensional array so you have to use $aArray[0][0] not just $aArray[0].

[andomatic 0]

Thanks, perfect. some times you overlook things 2 inches away.

Thanks Again,

Andy