WRQ Reflections - Pulling Data from excel

[Scherzzo]

Hi to all!,

New member here! Hope someone can help me or point me in the right direction. I'm trying to create a macro in reflections IBM that will automate a repetitive task. Basically the macro should copy a card number from the excel and paste it into reflections in a particular position and also copy and paste the card balance. Here is what I have so far:


Sub Swap()

' Generated by WRQ Reflection for IBM for Windows 12.0.185

dim xlApp as Object
Set xlApp = GetObject(, "ExcelApplication")
xlapp.Visible = True

With Session
.WaitForEvent rcEnterPos, "30", "0", 1, 11
.WaitForDisplayString "KEY", "30", 1, 7
.TransmitTerminalKey rcIBMHomeKey
.TransmitANSI "wcsa"
.TransmitTerminalKey rcIBMEnterKey
.WaitForEvent rcKbdEnabled, "30", "0", 1, 1
.WaitForEvent rcEnterPos, "30", "0", 8, 50
.WaitForDisplayString "DISPLAY", "30", 8, 42
.TransmitTerminalKey rcIBMTabKey
.TransmitANSI "az"
.TransmitTerminalKey rcIBMEnterKey
.WaitForEvent rcKbdEnabled, "30", "1", 1, 1
.WaitForEvent rcEnterPos, "30", "0", 5, 12
.WaitForDisplayString "DT", "30", 5, 8
.TransmitANSI xlApp.Range("1,2").paste
.TransmitTerminalKey rcIBMTabKey
.TransmitANSI "transfer"
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitANSI "0108"
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.Paste
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitANSI xlApp.Range("D1").paste
.TransmitTerminalKey rcIBMLeftKey
.TransmitANSI "09"
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitANSI "boi switch"
.TransmitTerminalKey rcIBMEnterKey
.WaitForEvent rcKbdEnabled, "30", "1", 1, 1
.WaitForEvent rcEnterPos, "30", "0", 8, 18
.WaitForDisplayString "FUNC", "30", 8, 13
.TransmitTerminalKey rcIBMBacktabKey
.TransmitTerminalKey rcIBMBacktabKey
.TransmitTerminalKey rcIBMBacktabKey
.TransmitANSI "0101"
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.Paste
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitANSI xlApp.Range("D1").paste
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitTerminalKey rcIBMTabKey
.TransmitANSI "boi switch"
.TransmitTerminalKey rcIBMEnterKey
End With
End Sub


Appreciate some help if possible!

Regards

Scherzzo

 

[alcalina]

I know this is not the help you want. But when I want to interact to other programs, I use AutoHotkey

 

[Scherzzo]

I know this is not the help you want. But when I want to interact to other programs, I use AutoHotkey

It may help me if you told me how it would!