SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

$^1::
Setkeydelay, 35

FileSelectFile, Path, 3, , Open Excel File, Excel File (*.xls; *.xlsx)
if Path =
	ExitApp
Xl := ComObjCreate("Excel.Application")
Xl.Workbooks.Open(Path) ;open an existing file
Xl.Visible := True
if Errorlevel
{
	MsgBox, % "Error opening excel file! Exiting..."
	ExitApp
}

Sheet_Titles =
global Sheet_To_Calculate := 0 
loop, % xl.Sheets.Count
	Sheet_Titles .= A_Index . ": " . xl.Sheets(A_Index).Name . "`n"
While Sheet_To_Calculate < 1 || Sheet_To_Calculate > xl.Sheets.Count || !IF_Integer(Sheet_To_Calculate)
	inputbox, Sheet_To_Calculate, % Xl.ActiveWorkbook.Name, %Sheet_Titles%, , , , , , , , 1
if ErrorLevel
	ExitApp

global Current_Row := -1
While Current_Row < 1 || !IF_Integer(Current_Row)
	inputbox, Current_Row, % Xl.ActiveWorkbook.Name, % "Enter the row to start on.", , , , , , , , 2
if ErrorLevel
	ExitApp


while Xl.Sheets(Sheet_To_Calculate).Range("B" . Current_Row).Value != ""
{
	
B_stored := Xl.Sheets(Sheet_To_Calculate).Range("B" . Current_Row).Value
	
	
	
ControlFocus,, ahk_class Chrome_WidgetWin_1
Sleep 550
	
	
Click, 242, 318, 2
Sleep 150
Send %B_stored%
send {enter}
Sleep 2000
Click, 225, 432, 2
send {vk43}
	
	
; Move to the next row
	Current_Row++
}

MsgBox, % "Done! :)"
ExitApp

Чтобы ячейка экселя копировалась в хром сделал, выделил найденную инфу, а как скопировать её назад в эксель и так до конца заданных строк?