Excel cell not copying,,,,,,,,Give the value 0

[vetold]

#include <Date.au3>
#include <GUIConstants.au3>
#include <Excel.au3>

Global $Paused

HotKeySet("{ESC}", "Terminate")

Func Terminate()
Exit 0
EndFunc

$oExcel = ObjGet("C:\Users\tvois\Desktop\Start\Start.xlsx\", "Excel.Application") 
WinActivate("Start.xlsx - Excel", "")

 
For $i= 1 To 120 
$sCellValue = _Excel_RangeRead($oExcel, "A" & $i)

Opt("MouseCoordMode",0)
MouseClick("left" ,154, 345)
MouseClick("left" ,101, 378)
MouseClick("left" ,250, 144)

_Excel_RangeWrite($oExcel, "1", "B"&$i) 

Next

 

[SkysLastChance]

#include <Date.au3>
#include <GUIConstants.au3>
#include <Excel.au3>

HotKeySet("{ESC}", "Terminate")

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Local $oExcel = _Excel_Open()
Local $sWorkbook = "C:\Users\tvois\Desktop\Start\Start.xlsx"
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)

WinWaitActive("Start.xlsx", "", 10)


For $i = 1 To 120
    Local $sCellValue = _Excel_RangeRead($oWorkbook, Default, "A" & $i)

    Opt("MouseCoordMode", 0)
    MouseClick("left", 154, 345)
    MouseClick("left", 101, 378)
    MouseClick("left", 250, 144)

    _Excel_RangeWrite($oWorkbook, Default, $sCellValue, "B" & $i)
Next

 

Edited September 16, 2022 by SkysLastChance

[water]

Check the value of @error and @extended after each _Excel_* function call.

[vetold]

On 17.09.2022 at 00:40, water said:

Проверяйте значение @error и @extended после каждого вызова функции _Excel_*.

 

On 16.09.2022 at 23:16, SkysLastChance said:

#include <Date.au3> 
#include <GUIConstants.au3> 
#include <Excel.au3>

HotKeySet ( "{ESC}" ,  "Завершить" )

Func Terminate ( ) 
    Exit  0 
EndFunc    ;==>Terminate

Локальный  $oExcel  =  _Excel_Open ( ) 
Локальный  $sWorkbook  =  "C:\Users\tvois\Desktop\Start\Start.xlsx" 
Локальный  $oWorkbook  =  _Excel_BookOpen ( $oExcel ,  $sWorkbook )

WinWaitActive ( "Start.xlsx" ,  "" ,  10 )


Для  $i  = от  1  до  120 
    Local  $sCellValue  =  _Excel_RangeRead ( $oWorkbook , по  умолчанию ,  "A"  и  $i )

    Opt ( "MouseCoordMode" ,  0 ) 
    MouseClick ( "влево" ,  154 ,  345 ) 
    MouseClick ( "влево" ,  101 ,  378 ) 
    MouseClick ( "влево" ,  250 ,  144 )

    _Excel_RangeWrite ( $oWorkbook , по  умолчанию ,  $sCellValue ,  "B"  и  $i ) 
Далее

 

_Excel_RangeWrite ( $oWorkbook , по  умолчанию ,  $sCellValue ,  "B"  и  $i ) 

How to make it paste data from the clipboard (copied) in a loop

[SkysLastChance]

ClipPut("Test")
$vClip = ClipGet ( )
Msgbox(0,"",$vClip)

 

[vetold]

expandcollapse popup

#include <Date.au3>
#include <GUIConstants.au3>
#include <Excel.au3>

Global $Paused

HotKeySet("{ESC}", "Terminate")

Func Terminate()
Exit 0
EndFunc

Local $oExcel = _Excel_Open()
Local $sWorkbook = "C:\Users\tvois\Desktop\Start\Start.xlsx"
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)

WinWaitActive("Start.xlsx", "", 10)


For $i = 1 To 120
    Local $sCellValue = _Excel_RangeRead($oWorkbook, Default, "A" & $i)

MsgBox(4096, "", "Значение ячейки " & "A" & $i & ":" & @CRLF & $sCellValue, 2)
Sleep(2000)

if ProcessExists("chrome.exe") > 0 then
    ;MsgBox(0,"Chrome","esiste")
    Opt("WinTitleMatchMode", -2)
    WinActivate("Google Chrome")
    Opt("WinTitleMatchMode", 1)
Else
    MsgBox(0,"Chrome","non esiste")
endif

Opt("MouseCoordMode",0)
MouseClick("left" , 103, 376) 
Sleep(1000)
MouseClick("left" , 196 , 148) 
Sleep(500)
Send("{Delete 10}") 
Send($sCellValue,1) 
Sleep(1000)
Opt("MouseCoordMode",0)
MouseClick("left" ,1328, 716) 
Sleep(500)
MouseClick("left" , 397, 267, 2, 100) 
Sleep(1000)
MouseClick("left" , 379, 301, 1, 50) 
Sleep(2000)
MouseClick("left" , 462, 427, 2, 500) 
Sleep(1000)
MouseClick("left" , 192, 237, 2, 500) 
Sleep(1000)


Send("^{INSERT}")

Sleep(500)
MouseClick("left" , 1354, 117, 1, 500) 
Sleep(500)
MouseClick("left" , 497, 123, 1, 50)
Sleep(500)
MouseClick("left" , 365, 125, 1, 50)
Sleep(500)


Do
Sleep(10) ;ждать пока курсор нестанет стрелкой
Until MouseGetCursor( ) = 2
_Excel_RangeWrite($oWorkbook, Default, $sCellValue, "B" & $i = (ClipGet ( ))

Next

HERE is the whole code

It's in a loop

Edited September 28, 2022 by vetold

[vetold]

21 hours ago, SkysLastChance said:

ClipPut ( "Тест" ) 
$vClip  =  ClipGet  (  ) 
Msgbox ( 0 , "" , $vClip )

 

Maybe write a loop to paste values from the clipboard?

[SkysLastChance]

Ill leave that up to you. You have everything you need in this thread to do that yourself. 

Edited September 30, 2022 by SkysLastChance

[vetold]

I did it through inserts Send. It doesn’t work

[vetold]

Doesn't work in loop 

 

Edited September 30, 2022 by vetold

[vetold]

2 hours ago, SkysLastChance said:

Я оставлю это на ваше усмотрение. У вас есть все необходимое в этой теме, чтобы сделать это самостоятельно. 

Suggest where to go?