Excel считывание ячейки и запись

[Unnamed_Wolf]

Здравствуйте! С Наступающим! :beer:
Понадобилось считать ячейки из таблицы excel и впоследствии запись в эту таблицу но в другую ячейку.
У меня так и не получилось прочесть.

#include <Excel.au3>
#include <MsgBoxConstants.au3>
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox(16, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $sWorkbook = "C:\temp\book.xls"
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpen Example 1", "Error opening '" & $sWorkbook & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpen Example 1", "Workbook '" & $sWorkbook & "' has been opened successfully." & @CRLF & @CRLF & "Creation Date: " & $oWorkbook.BuiltinDocumentProperties("Creation Date").Value)

Но выкидывает ошибку extendend -2147221005.
В чем ошибка? :(

 

[mr.Gbabak]

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

Local $sWorkbook = @ScriptDir & "\temp.xls"
Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
$oWorkbook = _Excel_BookAttach($sWorkbook)
$read=_Excel_RangeRead($oWorkbook, 'лист1', 'E7:E7')
_Excel_RangeWrite($oWorkbook, 'лист1',$read ,'A1')

_Excel_Close ($oExcel)

Кстати, ваш пример, у меня работает корректно. Без ошибок. У вас библиотека Excel обновлена?

 

[Unnamed_Wolf]

Хмм, последняя портативная с сайта.
Скиньте свой excel udf, но и ваш вариант не работает у меня. Видимо действительно проблема в либе, но найти отдельно её мне не удалось.

 

[Alofa]

Хмм, последняя портативная с сайта...

То есть Эта? Много воды утекло со времен версии AutoIt3_v3.3.8.
Пользуйте только те UDF которые есть в комплекте, иначе никто вас не застрахует от проблем совместимости.

А чего в аватаре-то другая?

 

[Unnamed_Wolf]

Тама - autoitscriptдотcom, там версия v3.3.14.2.
Ошибся, инстал, не портативка. Почему-то казалось портативка.
Но, суть дела не меняет.

А это .. нужна EXCEL программа получается в оригинале?! :(

UPD2. Нужна.