Topics

1

Общие вопросы / Вывод в эксель

« on: August 24, 2018, 03:31:45 PM »

Пытаюсь перенести инфу из .txt в эксель. Это в принципе возможно?
А то у меня никак не получается.
Пыталась разными способами.
Например так:

Code: (clickermann) [Select]

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 и не привязывать, а просто запустить на странице экселя, то тоже - на ячейку тыкает и все на этом.

Через массив аналогично:

Code: (clickermann) [Select]

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

Попробовала вставлять через "правая кнопка мыши-спускаемся вниз-жмем "Вставить":

Code: (clickermann) [Select]

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. сори, задержки конские, но это чтобы наблюдать