Что нового

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

Heler

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

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
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)
 
Верх