#include <StringConstants.au3>
HotKeySet("{SPACE}",close)
HotKeySet("{F12}",close);
Sleep(4000) ; //time out
Local $rept = ;nujno zadat zhanchenie pri starte programy "kol-vo povtorenii"
While $rept = 200
Sleep(1500)
MouseClick("left",679, 392,2);//focus main window excel #1window
Sleep(200)
Send("{DOWN}") ; next yacheika excel
Sleep(4000)
ClipPut("0") ;clear buf
Sleep(50)
Send("{CTRLDOWN}c{CTRLUP}") ;ctrl+c
Send("{CTRLDOWN}c{CTRLUP}") ;?if need double ctrl+c
$string=ClipGet() ;get buffer
$arnum=$string ; ima
Sleep(3000)
;// find
;//vstavka ima
MouseClick("left",649, 619,3) ;// filter
MouseClick("left",649, 619,3) ;// ima pole
MouseClick("right",649, 619,3) ;// ima pole
Send("{CTRLDOWN}v{CTRLUP}") ;// ctrl+v
MouseClick("left",649, 619,3) ;// search
;//export? and save it
MouseClick("right",649, 619,3) ;// export icon
;Global $exportName=$n+1
;Send("$exportName") ;// exporn file name
MouseClick("right",649, 619,3) ;// export button
;`ne ponyal kak vospolzovatsa ;;;$asResult = StringRegExp($string, '\d{1,4}',1) ; \d{1,4} -
;If UBound($asResult) <>0 Then ;if find go massive
;For $i=0 To UBound($ign)-1 step +1 ;find massive
;If $asResult[0]=$ign[$i] Then $resultstring = 1 ;sravnenie privsaivanie peremennoi
;Next
;For $i=0 To UBound($dem)-1 step +1
;If $asResult[0]=$dem[$i] Then $resultstring = 2
;Next
;EndIf
If $resultstring=0 Then ; if not find
MouseClick("left",272,954) ;coloose
Sleep(300)
Else
MouseClick("left",649, 619,3) ;// videlenie 4 copy
MouseClick("right",649, 619,3) ;// copy v buffer stolb
MouseClick("left",649, 619,3) ;// copy v buffer
$target=ClipGet()
MouseClick("left",677,501) ;4 exporn excel
Sleep(100)
;\\ export
If StringLen($target) >4 Then ; free buffer
;// nado TYT export u
;// BbiIIoJIHEHuE ycJIoBu9i
;// pol=muj ; detei=1 ; dateB>01.10.1933 ; dateD<01.01.2015
Else ;if buffer empty `pustoi
ToolTip("NOT FIND")
Sleep(1000)
EndIf
EndIf
$resultstring=0 ;search off
WEnd
Func close()
Exit ; exit script
EndFunc