Trying to open Excel file.

[Most]

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

; Create application object and open an example workbook
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\trans.xlsx")
If @error Then
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error opening workbook '" & @ScriptDir & "\trans.xlsx'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf

; *****************************************************************************
; Read data from a single cell on the active sheet of the specified workbook
; *****************************************************************************
Local $sResult = _Excel_RangeRead($oWorkbook, Default, "A1")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Data successfully read." & @CRLF & "Value of cell A1: " & $sResult)

Hi, all.

Ok, here is the deal. I have simple excel file called trans.xlsx. It's located in the directory of script. In general i don't care where to store it. 
What i do need is to open excel file and copy one by one numbers from cells. I've tried different ways, examples. But i only get error, says: error = 3, extended = 1. I saw different posts from different years. I even tried to use simple example from manual file. But always get error.

In general my goal get numbers one by one and post it to let's say search filed in my PC one by one. Or to notepad (but one by one, in kind of loop). 
I've learned how to copy or show in message box some info from other apps. But with excel i'm stuck. 

I'm able to open needed window based on "title" of excel. But i don't succeed of copying info from cells. 

Would be appreciate for any help. 

So, in this code i'm trying at least to read from cell A1. Doesn't matter what Sheet. 

I use Windows 10, Excel for Office 365. 

Thank you in advance. 

[Subz]

What happens if you use Example 1 of the _Excel_RangeRead function within the help file?

[water]

What's the value of @extended returned by _Excel_BookOpen?

[Most]

14 hours ago, water said:

What's the value of @extended returned by _Excel_BookOpen?

error = 3, extended = 1 as i mentioned. 

 

15 hours ago, Subz said:

What happens if you use Example 1 of the _Excel_RangeRead function within the help file?

Nothing. Or error, or it says "0". Depends of example. 

 

 

My general question - is there any other tag or reason that it doesn't work? i mean code should be fine. I've putted file into the folder with script (also tried other folders..)

Edited November 11, 2019 by Most

[water]

It's not a problem with the directory or filename (file not found etc.). In this case you would get @error = 2.
Is there anything special with this workbook (passwort set, invalid external references ...)?
Do you get any messages when you open the file by hand?

[Most]

Just now, water said:

It's not a problem with the directory or filename (file not found etc.). In this case you would get @error = 2.
Is there anything special with this workbook (passwort set, invalid external references ...)?
Do you get any messages when you open the file by hand?

Nothing special. Regular xlsx file. Empty book. i've just filled some sheets with a few numbers. Just for test. 

By hand it opens regularly

[water]

Which version of Excel do you run?
Which version of AutoIt?

[Most]

1 minute ago, water said:

Which version of Excel do you run?
Which version of AutoIt?

SciTE-Lite  
Version 3.5.4 

Autoit v3

Excel Office 365 (Microsoft Office 365 ProPlus)

 

 

 

 

[water]

SciTE is the editor. We need the AutoIt version:

MsgBox(0, "", @AutoItVersion)

 

[Most]

2 minutes ago, water said:

SciTE is the editor. We need the AutoIt version:

MsgBox(0, "", @AutoItVersion)

 

Sorry. It's 3.3.14.2

[water]

Could you please use the version of _Excel_BookOpen as posted here and try again?
Copy the function to your script and rename to _Excel_BookOpenEX, then call _Excel_BookOpenEX to open the workbook.

[Most]

30 minutes ago, water said:

Could you please use the version of _Excel_BookOpen as posted here and try again?
Copy the function to your script and rename to _Excel_BookOpenEX, then call _Excel_BookOpenEX to open the workbook.

It gives me "Value = 0" (but yes it opens excel window, but not specific file).

 

#include <Excel.au3>


Func _Excel_BookOpenEX($oExcel, $sFilePath, $bReadOnly = Default, $bVisible = Default, $sPassword = Default, $sWritePassword = Default, $bUpdateLinks = Default)
    ; Error handler, automatic cleanup at end of function
    Local $oError = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc")
    #forceref $oError
    If Not IsObj($oExcel) Or ObjName($oExcel, 1) <> "_Application" Then Return SetError(1, @error, 0)
    If Not FileExists($sFilePath) Then Return SetError(2, 0, 0)
    If $bReadOnly = Default Then $bReadOnly = False
    If $bVisible = Default Then $bVisible = True
    Local $oWorkbook = $oExcel.Workbooks.Open($sFilePath, $bUpdateLinks, $bReadOnly, Default, $sPassword, $sWritePassword)
    If @error Then Return SetError(3, @error, 0)
    Local $oWindow = $oExcel.Windows($oWorkbook.Name) ; <== Modified
    If IsObj($oWindow) Then $oWindow.Visible = $bVisible ; <== Modified
    ; If a read-write workbook was opened read-only then set @extended = 1
    If $bReadOnly = False And $oWorkbook.Readonly = True Then Return SetError(0, 1, $oWorkbook)
    Return $oWorkbook
 EndFunc   ;==>_Excel_BookOpen
Local $bOpenWorkBook = False, $oExcel = _Excel_Open()
Local $oWorkbook
Local $sFilePath = @ScriptDir & "trans.xlsx"

$oWorkbook = _Excel_BookAttach($sFilePath)
If @error Then
    $oWorkbook = _Excel_BookOpenEX($oExcel, $sFilePath)
    $bOpenWorkBook = True
 EndIf

If $bOpenWorkBook Then
    $sCell = _Excel_RangeRead($oWorkbook, Default, "A2") ;~ Workbook was opened so read cell A2
Else
    $sCell = _Excel_RangeRead($oWorkbook, Default, $oExcel.ActiveCell.Address) ;~ Workbook was already open, read the active cell.
EndIf
MsgBox(4096, "Excel Cell Value", "Value = " & $sCell)

 

Edited November 11, 2019 by Most

[water]

Your path is wrong

Local $sFilePath = @ScriptDir & "trans.xlsx"

should be

Local $sFilePath = @ScriptDir & "\trans.xlsx"

 

[Most]

16 minutes ago, water said:

Your path is wrong

Local $sFilePath = @ScriptDir & "trans.xlsx"

should be

Local $sFilePath = @ScriptDir & "\trans.xlsx"

 

It works!!! thx!