Цитата Frost_Imp:
|
брать из Excel данные, вносить их в программу, нажимать на определенные батоны в программе, »
|
писала я такую
#include <Date.au3>
#include <GUIConstants.au3>
#include <ExcelCOM_UDF.au3>
Global $Paused
HotKeySet("{ESC}", "Terminate")
Func Terminate()
Exit 0
EndFunc
$oExcel = ObjGet("C:\П.xls", "Excel.Application") ; "схватить" существующий объект Excel
For $i= 1 To 665 ;пробег по солбцу
$sReadCell = _ExcelReadCell($oExcel, "A" & $i)
WinActivate("Группы в") ;заход в окно програмы
Opt("MouseCoordMode",0)
MouseClick("left" ,604,618)
Send("{Delete 8}") ;сперва стереть то что было
Send($sReadCell,1) ;вставить прочтенное из эксель
Opt("MouseCoordMode",0)
MouseClick("left" ,749,619) ; нажать кнопку
;Sleep(50)
Do
Sleep(10) ;ждать пока курсор нестанет стрелкой
Until MouseGetCursor( ) = 2
_ExcelWriteCell($oExcel, "1", "B"&$i) ;отметить в экселе что ячейка прочтена и обработана
