andomatic Posted March 31, 2011 Share Posted March 31, 2011 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 Link to comment Share on other sites More sharing options...
water Posted March 31, 2011 Share Posted March 31, 2011 _ExcelReadSheetToArray creates a two-dimensional array so you have to use $aArray[0][0] not just $aArray[0]. My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
andomatic Posted March 31, 2011 Author Share Posted March 31, 2011 Thanks, perfect. some times you overlook things 2 inches away. Thanks Again, Andy Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now