[Данные, строки] Копирование данных из Excel

[GitoKorol]

Привет всем, стоит такая задача:

Имеются файлы: 1.xls, 2.xls, result.xls.
Необходимо из файла 1 скопировать ячейку B3 в файл result в B8
Далее из файла 2 скопировать ячейку B7 в файл result в A5

Заранее большое спасибо!!!

 

[axlwor]

проще в ячейку вставить формулу на другую ячейку

 

[GitoKorol]

Как вариант, щас пока так и делаю, ну а вообще на будущее никто не покажет мелкий пример копирования одной ячейки одного листа в другой лист?

 

[madmasles]

GitoKorol,
Файл Excel в прикрепленном архиве, он должен лежать в одной папке со скриптом.

#include <Excel.au3>

$sFileExcel = @ScriptDir & '\Test.xls'
;Что копируем:
$iListCopy = 1 ;лист по номеру
$sAdressCopy = 'C4';адрес ячейки
;Куда копируем:
;1:
$sListPaste = 'Второй' ;лист по имени
$sAdressPaste = 'D6' ;адрес ячейки
;2:
$iListPaste = 3 ;лист по номеру
$iRowPaste = 2 ;номер строки
$iColumnPaste = 2 ;номер колонки

$o_Excel = _ExcelBookOpen($sFileExcel, 1) ;открываем файл, если 1 поменять на 0, то откроет в скрытом режиме
_ExcelSheetActivate($o_Excel, $iListCopy);активируем лист по номеру
$sCopy = _ExcelReadCell($o_Excel, $sAdressCopy) ;читаем значение ячейки

_ExcelSheetActivate($o_Excel, $sListPaste);активируем лист по имени
_ExcelWriteCell($o_Excel, $sCopy, $sAdressPaste);вставляем значения в ячейку по адресу

_ExcelSheetActivate($o_Excel, $iListPaste);активируем лист по номеру
_ExcelWriteCell($o_Excel, $sCopy, $iRowPaste, $iColumnPaste);вставляем значения в ячейку по номерам строки и колонки

;_ExcelBookClose($o_Excel);закрываем с сохранением изменений