Пытаюсь перенести инфу из .txt в эксель. Это в принципе возможно?
А то у меня никак не получается.
Пыталась разными способами.
Например так:
SUB(paste)
KEYDOWN(#CTRL)
WAIT(3)
KEYPRESS(#V)
WAIT(3)
KEYUP(#CTRL)
WAIT(3)
END_SUB
IF(TFCOUNT("words1.txt") > $num)
INC($num,1)
ELSE
HALT
END_IF
$str = TFREAD ("words1.txt", $num)
WNDSTATE(WNDFIND("Test"), 1)
LDOWN(574,622)
TOCLIP($str)
WAIT(3)
paste()
WAIT(3)
PRINT ($str)
Тут лог пишет, эксель открывает, на ячейку тыкает но ничего не вставляет.
Если убрать WNDSTATE и не привязывать, а просто запустить на странице экселя, то тоже - на ячейку тыкает и все на этом.
Через массив аналогично:
SUB(paste)
KEYDOWN(#CTRL)
WAIT(3)
KEYPRESS(#V)
WAIT(3)
KEYUP(#CTRL)
WAIT(3)
END_SUB
TFReadArr("words1.txt", $arr )
WAIT(3)
FOR($a, $a<ARRSIZE($arr))
WAIT(3)
WNDSTATE(WNDFIND("Test"), 1)
LDOWN(745,299)
TOCLIP($arr[$a])
WAIT(3)
paste()
WAIT(3)
PRINT ($arr[$a])
WAIT(3)
END_CYC
halt
Попробовала вставлять через "правая кнопка мыши-спускаемся вниз-жмем "Вставить":
SUB(paste1)
RDOWN(745,299)
WAIT(3)
LDOWN(783,366)
WAIT(3)
KEYPRESS(#ENTER)
END_SUB
TFReadArr("words1.txt", $arr )
WAIT(3)
FOR($a, $a<ARRSIZE($arr))
WAIT(3)
WNDSTATE(WNDFIND("Test"), 1)
LDOWN(745,299)
TOCLIP($arr[$a])
WAIT(3)
paste1()
WAIT(3)
PRINT ($arr[$a])
WAIT(3)
END_CYC
halt
Тоже не вставляет, но выделяет 4 клетки, как если бы мышь не кликала правой кнопкой, а зажималась. Добавила Rup, выделять 4 ячейки перестало, но все равно не вставляет буфер.
В общем, не получается. Помогите, знающие!
p.s. сори, задержки конские, но это чтобы наблюдать