Loop insert Excel _Excel_RangeWrite($oWorkbook, Default, $sCellValue, "B" & Send('^v')) - (Moved)

[vetold 0]

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)         


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


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(   


      

      
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" & Send('^v'))        

Next

 

[Jos 2,766]

Moved to the appropriate AutoIt General Help and Support forum, as the AutoIt Example Scripts forum very clearly states:

Quote

Share your cool AutoIt scripts, UDFs and applications with others.

---

Do not post general support questions here, instead use the AutoIt Help and Support forums.

Moderation Team