Что нового

Не работает код ..... нет связи с Excel и Google ячейки не обрабатываются (окна не активны)

Vetold

Новичок
Сообщения
1
Репутация
0
Код:
#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) ;отметить в экселе что ячейка прочтена и обработана
 
Последнее редактирование модератором:

lettterssino

Знающий
Сообщения
109
Репутация
10
#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) ;отметить в экселе что ячейка прочтена и обработана
Вроде по правилам форума код должен быть скрыт, исправьте пожалуйста
Код:
что-то типо того

Сообщение автоматически объединено:

Данный параметр не обязательно писать перед каждым нажатие, а достаточно установить параметр после подключаемых библиотек.
Код:
AutoItSetOption ( "MouseCoordMode" , 0)


Замени нажатие лкм на более правильное:
Код:
MouseClick ("primary",604,618, 1, 0)

Опишите что именно происходит и что не получается, не особо понятно. Возможно вы не находите нужное окно из-за параметров.
 
Последнее редактирование:
Верх