Excel Send Keys

Cauld

Hey, so I'm looking through a telnet like interface at some data and I have the following lines of code:


Sess_Scrn.Putstring Acct_Prefix, 24, 12 Sess_Scrn.SendKeys ("<Enter>") Sess_Scrn.WaitHostQuiet (DT) Sess_Scrn.SendKeys ("<F2>") Sess_Scrn.WaitHostQuiet (DT)[/CODE] the DT is just a constant to wait for the mainframe to respond. My problem is that while it correctly sends the enter key, it simply puts <F2> in the command line when that line comes up. I tried changing the formatting of that line to [CODE]Sess_Scrn.SendKeys ("{F2}")[/CODE] as suggested in the excel vba help, and have tried many combinations of those things. So... help?[CODE] Sess_Scrn.Putstring Acct_Prefix, 24, 12
Sess_Scrn.SendKeys ("<Enter>")
Sess_Scrn.WaitHostQuiet (DT)
Sess_Scrn.SendKeys ("<F2>")
Sess_Scrn.WaitHostQuiet (DT)[/CODE]


the DT is just a constant to wait for the mainframe to respond. My problem is that while it correctly sends the enter key, it simply puts <F2> in the command line when that line comes up. I tried changing the formatting of that line to

Sess_Scrn.SendKeys ("{F2}")[/CODE] as suggested in the excel vba help, and have tried many combinations of those things. So... help?[CODE]Sess_Scrn.SendKeys ("{F2}")[/CODE]

as suggested in the excel vba help, and have tried many combinations of those things.

So... help?

AtomBomb

That's odd. The second one looks right to me. I don't know shit about this stuff really, but I made this code and it worked:

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "excel.exe"
Do Until Success = True
Success = objShell.AppActivate("Excel")
Wscript.Sleep 1000
Loop
objShell.SendKeys "{F1}"

Well, it didn't send the F1 to the correct application, but it did send it. Maybe try without the ()? Hopefully someone that knows better will chime in.

Daenris

Well, looking around at SendKeys examples it looks like a lot of samples have a caret (^) or percent (%) or both (%^) before the key code for function keys/etc. So try maybe any of these:

Sess_Scrn.SendKeys ("^{F2}")
Sess_Scrn.SendKeys ("%{F2}")
Sess_Scrn.SendKeys ("%^{F2}")

Edit: d'oh... nevermind... those are just the characters for ctrl/alt being added to the key.

Cauld

AtomBomb wrote: »

That's odd. The second one looks right to me. I don't know shit about this stuff really, but I made this code and it worked:

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "excel.exe"
Do Until Success = True
Success = objShell.AppActivate("Excel")
Wscript.Sleep 1000
Loop
objShell.SendKeys "{F1}"

Well, it didn't send the F1 to the correct application, but it did send it. Maybe try without the ()? Hopefully someone that knows better will chime in.

I tried "{F2}" and the same thing happened, it just enters {F2} onto the command line, like before. I tried with and without parenthasis and the same thing happens either way.