1 Тема от inseption86 (изменено: ypppu, 2018-05-30 18:17:16)

  • inseption86
  • Участник
  • Неактивен

Тема: AHK: Копирование из экселя в хром

Здравствуйте, подскажите пож-та возможно ли автоматизировать рутинную работу, например, имеется xls, в столбце А с некоторым количеством строк данные, необходимо копирование одной ячейки в хром в определенную координату и полученный результат скопировать обратно в xls в столбец Б и также  ко всеми остальными ячейками.

2 Ответ от Malcev

  • Malcev
  • Разработчик
  • Неактивен

Re: AHK: Копирование из экселя в хром

Можно автоматизировать excel через com, также хром можно автоматизировать через selenium либо через Chrome DevTools Protocol.
Пользуйтесь поиском.

3 Ответ от inseption86 (изменено: ypppu, 2018-05-30 18:17:56)

  • inseption86
  • Участник
  • Неактивен

Re: AHK: Копирование из экселя в хром


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

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

4 Ответ от Malcev

  • Malcev
  • Разработчик
  • Неактивен

Re: AHK: Копирование из экселя в хром

Автоматизирование хрома через send+click ненадежно.