#Include <excel.au3>
;Ошибки нигде не обрабатываю )
;Переменные нигде не объявляю )
;Имя и путь (папка запуска) первого/второго файла
$file1 = @ScriptDir & "\Test1.xls"
$file2 = @ScriptDir & "\Test2.xls"
;Открываем его. Невидимка. Берем данные с АКТИВНОГО листа
$oExcel1 = _ExcelBookOpen($file1 , 0 , True)
$oExcel2 = _ExcelBookOpen($file2 , 0 , True)
;Третий файл будет результатом
$oExcel = _ExcelBookNew(0)
;Только заголовок первого файла
$aArray = _ExcelReadSheetToArray($oExcel1, 1, 1, 1)
;Все данные с листа в массив без первой строки
$aArray1 = _ExcelReadSheetToArray($oExcel1, 2)
$aArray2 = _ExcelReadSheetToArray($oExcel2, 2)
;Пишем заголовок
_ExcelWriteSheetFromArray($oExcel, $aArray, 1, 1, 1, 1)
;Пишем первый/второй файлы
_ExcelWriteSheetFromArray($oExcel, $aArray1, 2, 1, 1, 1)
_ExcelWriteSheetFromArray($oExcel, $aArray2, 1+UBound($aArray1), 1, 1, 1)
;Сохраняем (перезаписываем) результат
_ExcelBookSaveAs($oExcel, @ScriptDir & "\Test.xls", "xls", 0, 1)
;Закрываем без сохранения первый/второй/третий файл
_ExcelBookClose($oExcel1, 0, 0)
_ExcelBookClose($oExcel2, 0, 0)
_ExcelBookClose($oExcel, 0, 0)
MsgBox (0,0,"Закончили работу!")