attached a video of script doing its thing
is there any other way of doing this to significantly increase speed
table has 20000+ rows which will roughly take ~18hrs to complete the process
code:
#include <excel.au3>
Local $sFilePath1 = @ScriptDir & "\Test.xlsx"
Local $oExcel = _ExcelBookOpen($sFilePath1,1)
WinWaitActive("Microsoft Excel - test")
WinActivate("Materijalno knjigovodstvo - [Odabir artikla 1]")
Send("^{HOME}") ;goes to first row of entire table
Send("{HOME}") ;goes to begining of row
$brojredova = StringRight(ControlGetText("Materijalno knjigovodstvo - [Odabir artikla 1]", "", 66446), 5) ;reads the number of rows
$hTimer = TimerInit()
For $i = 0 To 5 ;row by row (5 will be replaced with $brojredova)
For $j = 0 To 4 ;column by column (without the last one)
WinActivate("Materijalno knjigovodstvo - [Odabir artikla 1]")
Send("^c") ;copies selected field value
_ExcelWriteCell($oExcel, ClipGet(), $i + 1, $j + 1)
Send("{RIGHT}") ;select next right vaule
Next
Send("{DOWN}") ;goes to next row
Send("{HOME}") ;goes to beginning of row
Next
$iDiff = TimerDiff($hTimer)
MsgBox(0, "Time Difference", $iDiff/1000)
;~ WinActivate("Microsoft Excel - test")
;~ Sleep(100)
_ExcelBookSave($oExcel)
_ExcelBookClose($oExcel)
cannot select entire row
taking questions and suggestions.
C41686700260.rar