Array copy from active excel - (Moved)

[VinMe]

I am unable to execute the below script, my requirement is to copy the content from active excel sheet and to display the same.

Please let me know where i am missing!

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

Local $oExcel = _Excel_Open()
$LastRow2 = $oExcel.UsedRange.Rows.Count

$Tissue = _Excel_RangeRead($oExcel, Default, "E1:E" & $LastRow2)
$TshNr = _Excel_RangeRead($oExcel, Default, "F1:F" & $LastRow2)
_ArrayDisplay($Tissue)
_ArrayDisplay($TshNr)

[water]

What do you mean by: " I am unable to execute the below script"? Do you get an error? Do youget wrong results?
What is the value of $LastRow2?
What is the value of @error and @extended after calling _Excel_RangeRead?

Edited September 9, 2019 by water

[VinMe]

Do you get an error? No

Do youget wrong results? NO
What is the value of $LastRow2? range value

issue is i am not getting the result of array display...

 

[FrancescoDiMuro]

@VinMe
Before saying that you don't receive any error, you should check for a returning error with an If condition.

If @error Then
    ConsoleWrite("Error: " & @error & @CRLF)
Else
    ; Continue with your script
EndIf

In this way, you know if there is an error, and which error you are facing.
Then, you should check if the array returned from _Excel_RangeRead() is effectively an array; you can do this with the function IsArray

Edited September 9, 2019 by FrancescoDiMuro

[JLogan3o13]

Moved to the appropriate forum.

Moderation Team

[Subz]

How does the code posted work, you need to attach to a workbook first?

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

Local $oWorkbook = _Excel_BookAttach(@ScriptDir & "\Excelwb.xlsx")
Local $iLastRow = $oWorkbook.ActiveSheet.UsedRange.Rows.Count
Local $aTissue = _Excel_RangeRead($oWorkbook, Default, "E1:E" & $iLastRow)
Local $aTshNr = _Excel_RangeRead($oWorkbook, Default, "F1:F" & $iLastRow)
_ArrayDisplay($aTissue)
_ArrayDisplay($aTshNr)
;~ Or
Local $aArray = _Excel_RangeRead($oWorkbook, Default, $oWorkbook.ActiveSheet.Usedrange.Columns("E:F"))
_ArrayDisplay($aArray)