Monitoring Changes in Variable Excel

[meral40]

#include <Excel.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>


; Create application object and open an example workbook
Local $var1= "D:\Documents\testbook.xls"
Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel, $var1)

Local $sRead = _Excel_RangeRead($oWorkbook, Default, "Q2")
Local $sRead2 = _Excel_RangeRead($oWorkbook, Default, "Q2")

$text1= "hello there"
$text2= "read me"

While 1=1
     If $sRead = $text1 Then
     ;MouseClick
     Consolewrite($sRead)
     Elseif $sRead2 = $text2 Then
     ;MouseClick
     Consolewrite($sRead2)
     EndIf
     sleep(30000);reads field every 30s
WEnd

Ok I am writing a script in excel that monitors a field that changes every so often then creates an action based on whether it is text1 or text2 I have problem here if I run script it will read the right text but if I go edit the text in excel it still displays the text before the change.

 

Thanks for your help.

[Subz]

Try:

#include <Excel.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>


; Create application object and open an example workbook
Local $var1= "D:\Documents\testbook.xls"
Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel, $var1)

Local $sRead

$text1= "hello there"
$text2= "read me"

While 1
    $sRead = _Excel_RangeRead($oWorkbook, Default, "Q2")
    If $sRead = $text1 Then
        ;MouseClick
        Consolewrite($sRead)
     Elseif $sRead = $text2 Then
        ;MouseClick
        Consolewrite($sRead)
     EndIf
     Sleep(30000);reads field every 30s
WEnd

 

Edited January 6, 2019 by Subz
No reason for $sRead2 so removed it.

[Subz]

If the Workbook needs to be closed and re-opened (if modified from another program) you may need to do something like:

#include <Excel.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>


; Create application object and open an example workbook
Global $sWorkbook= "D:\Documents\testbook.xls"
Global $oExcel = _Excel_Open()
Global $oWorkbook, $sRead

Global $sText1= "hello there"
Global $sText2= "read me"

While 1
    $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
        $sRead = _Excel_RangeRead($oWorkbook, Default, "Q2")
    _Excel_BookClose($oWorkbook, False)
    If $sRead = $sText1 Then
        ;MouseClick
        Consolewrite($sRead)
     Elseif $sRead = $sText2 Then
        ;MouseClick
        Consolewrite($sRead)
    EndIf
    Sleep(30000);reads field every 30s
WEnd

 

[meral40]

Thank you Subz the first one seems to work fine I see how that makes sense to put that inside the loop so it checks the $sRead each time.

[water]

Another approach: Use events which get triggered as soon as a cell gets changed. See Worksheet Change Events in the example scripts forum.