Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 23
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата 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) ;отметить в экселе что ячейка прочтена и обработана

Отправлено: 16:38, 05-11-2009 | #7