Копирование из экселя в хром и обратно
Posted: 19 Apr 2018, 04:37
Здравствуйте, подскажите пож-та возможно ли автоматизировать рутинную работу, например, имеется xls, в столбце А с некоторым количеством строк данные, их необходимо копировать по одной ячейки в хром в определенную координату и полученный результат скопировать обратно в xls в столбец Б и также ко всеми остальными ячейками.
Чтобы ячейка экселя копировалась в хром сделал, после выделил найденную инфу, а как скопировать эту инфу назад в эксель и так до конца заданных строк
Чтобы ячейка экселя копировалась в хром сделал, после выделил найденную инфу, а как скопировать эту инфу назад в эксель и так до конца заданных строк
Code: Select all
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
IF_Integer(check_this)
{
if check_this is not integer
return false
else
return true
}
return
F12::
Pause
return
$Esc::ExitApp ;EMERGENCY EXIT HOTKEY