$oExcel = _ExcelBookOpen stopped working suddenly

[DavidFromLafayette]

This morning I came in and a script i have been using for several years suddenly stopped working.  Windows 7 64 bit, a new laptop but the script did work on this laptop before today.  The script finds the most recent morning report in XLS format and then copies several columns to an array for usage later on.  I wrote this using the Excel.AU3 referenced below, when Excel.AU3 was updated, I renamed the older version and used it without issue.

; Title .........: Microsoft Excel COM UDF library for AutoIt v3
; AutoIt Version : 3.2.3++, Excel.au3 v 1.5 (07/18/2008 @ 8:25am PST)

When I open the AU3 file it crashes in the _ExcelBookOpen in this step If .ActiveWorkbook.Sheets($i).Visible = $xlSheetVisible Then.  I figured that out by inserting a bunch of consolewrite commands at each step.

When I retrieved the relevant lines of code from my script and insert into a new AU3 file shown below it runs flawlessly each time.

Any suggestions on where to go to troubleshoot this?

 

#include <ExcelOld.au3>
#include <array.au3>
$LFTServiceFileName = "c:\temp\riglocations\LFT20161218UserReport_BoucDavW_DailyUpdate.xls"
$oExcel = _ExcelBookOpen($LFTServiceFileName, 0)
$aDailyActivityList = _ExcelReadSheetToArray($oExcel, 9, 2, 0, 8)
_ArrayDisplay($aDailyActivityList)
 

ExcelOld.au3

[DavidFromLafayette]

Let me add this to the confusion, if i run the script by hitting F5 it seems to work.  If I compile and run it usually crashes.  

This is on a new Dell 7710 computer with eight cores, could the exe simply be running too fast for the Excel calls to keep up?

[JLogan3o13]

Perhaps it would be easier (to get assistance, I mean) if you just bite the bullet and convert your code to the current UDF rather than trying to resuscitate the old. Your code above would translate something like this (pseudo):

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

Local $oExcel, $oWorkbook, $oRange

$oExcel = _Excel_Open()
$oWorkbook = _Excel_BookOpen($oExcel, "c:\temp\riglocations\LFT20161218UserReport_BoucDavW_DailyUpdate.xls")
    If IsObj($oWorkbook) Then
        $oRange = _Excel_RangeRead($oWorkbook, Default, "I9:I20")
        _ArrayDisplay($oRange)
    EndIf

 

[DavidFromLafayette]

Thanks for the reply, I had thought about that but wasn't ready to commit the time to do that.  What is strange is it appears to be working now both compiled and as a script.  Only thing I did was comment parts from obsolete reports.