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

Const VK_H = 72 
Const VK_E = 69 
Const VK_L = 76 
Const VK_O = 79 
Const KEYEVENTF_KEYUP = &H2 
Const INPUT_MOUSE = 0 
Const INPUT_KEYBOARD = 1 
Const INPUT_HARDWARE = 2 
Private Type MOUSEINPUT 
  dx As Long 
  dy As Long 
  mouseData As Long 
  dwFlags As Long 
  time As Long 
  dwExtraInfo As Long 
End Type 
Private Type KEYBDINPUT 
  wVk As Integer 
  wScan As Integer 
  dwFlags As Long 
  time As Long 
  dwExtraInfo As Long 
End Type 
Private Type HARDWAREINPUT 
  uMsg As Long 
  wParamL As Integer 
  wParamH As Integer 
End Type 
Private Type GENERALINPUT 
  dwType As Long 
  xi(0 To 23) As Byte 
End Type 
Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) 
Private Sub Form_KeyPress(KeyAscii As Integer) 
    'Print the key on the form 
    Me.Print Chr$(KeyAscii); 
End Sub 
Private Sub Form_Paint() 
    'KPD-Team 2000 
    'URL: http://www.allapi.net/ 
    'E-Mail: KPDTeam@Allapi.net 
    'Clear the form 
    Me.Cls 
    'call the SendKey-function 
    SendKey VK_H 
    SendKey VK_E 
    SendKey VK_L 
    SendKey VK_L 
    SendKey VK_O 
End Sub 
Private Sub SendKey(bKey As Byte) 
    Dim GInput(0 To 1) As GENERALINPUT 
    Dim KInput As KEYBDINPUT 
    KInput.wVk = bKey  'the key we're going to press 
    KInput.dwFlags = 0 'press the key 
    'copy the structure into the input array's buffer. 
    GInput(0).dwType = INPUT_KEYBOARD   ' keyboard input 
    CopyMemory GInput(0).xi(0), KInput, Len(KInput) 
    'do the same as above, but for releasing the key 
    KInput.wVk = bKey  ' the key we're going to realease 
    KInput.dwFlags = KEYEVENTF_KEYUP  ' release the key 
    GInput(1).dwType = INPUT_KEYBOARD  ' keyboard input 
    CopyMemory GInput(1).xi(0), KInput, Len(KInput) 
    'send the input now 
    Call SendInput(2, GInput(0), Len(GInput(0))) 
End Sub