Send keystrokes based of Excel data

[jc0r]

Hi all,

I seem to be going around in circles and wondered if anyone could help.

I am trying to send keystrokes to an application when values in an Excel spreadsheet are true.

For example:



The script will be on a loop every 30 seconds, and if a value in column B = TRUE, i then want to activate my app and enter the keystrokes based of columns A and C.

So using the above example, the following would be sent

Code: Select all

Send, 1 {ENTER} 78
Send, 4 {ENTER} 17

Any help would be appreciated.

Many thanks

[braunbaer]

It is possible to access excel via COM, but I have not done it yet, as I use Openoffice. There must be threads about this in the forum.

Maybe an easier way would be to export the excel sheet in csv format and read the exported file.

With openoffice, when I select an area of the spreadsheet and copy it to the clipboard, in ahk the variable clipboard contains the data in tab-delimited format. Maybe something similar is possible with excel.

[mikeyww]

Code: Select all

#Persistent
XL := ComObjActive("Excel.application"), used := XL.ActiveSheet.UsedRange
SetTimer, Check, 30000
Check:
Loop, % used.Rows.Count {
 row := used.Rows(A_Index)
 If (row.Cells(2).Text != "TRUE")
  Continue
 WinActivate, ahk_exe notepad.exe
 Send, % row.Cells(1).Text "`n" row.Cells(3).Text
}
Return

[jc0r]

Thanyou so much Mikey

[flyingDman]

Rather than using a loop, you can check on whether any of the cells is True using:

Code: Select all

xl := ComObjActive("excel.application")
if (xl.worksheetfunction.countif(xl.range("b:b"),"True"))
	msgbox Hello