Запись/чтение значения активной ячейки Excel

[Heler]

Всем привет! Понадобилось производить манипуляции с активной ячейкой в Excel.
Хотелось бы узнать, есть решение кроме как посылать нажатия кнопок?

 

[Garrett]

Heler [?]

есть решение кроме как посылать нажатия кнопок?

Excel.au3.

 

[madmasles]

Heler,
Попробуйте так:

#include <Excel.au3>

$sFilePath = @ScriptDir & '\test.xls'
$oExcel = _ExcelBookOpen($sFilePath)

MsgBox(64, 'Адрес 1', 'Адрес активной ячейки: ' & $oExcel.ActiveCell.Address)
MsgBox(64, 'Адрес 2', 'Адрес активной ячейки: ' & $oExcel.ActiveCell.Column & ' - ' & $oExcel.ActiveCell.Row)

$sCellValue = _ExcelReadCell($oExcel, $oExcel.ActiveCell.Row, $oExcel.ActiveCell.Column)
;или
$sCellValue_1 = _ExcelReadCell($oExcel, $oExcel.ActiveCell.Address)
MsgBox(64, 'Значение 1', 'Значение активной ячейки: ' & $sCellValue & @LF & $sCellValue_1)

_ExcelWriteCell($oExcel, 'New test', $oExcel.ActiveCell.Row, $oExcel.ActiveCell.Column)
;или
Sleep(1000)
_ExcelWriteCell($oExcel, 'Super New test', $oExcel.ActiveCell.Address)
$sCellValue = _ExcelReadCell($oExcel, $oExcel.ActiveCell.Row, $oExcel.ActiveCell.Column)
;или
$sCellValue_1 = _ExcelReadCell($oExcel, $oExcel.ActiveCell.Address)
MsgBox(64, 'Значение 2', 'Новое значение активной ячейки: ' & $sCellValue & @LF & $sCellValue_1)