Excel To WRQ Reflection For IBM

[McJasty]

Is there a way i could program a macro to grab fields out of excel and paste the in a reflection screen? and how do i incorporate the timing?

Thanks,
Nick

[DavidJ_John]

do u need it now?

[xcruc1at3r]

well i need it
am using the WRQ Reflection for IBM 3270 i need to Run a Macro In Reflection to copy data from Excel and paste it into Reflection
i dont know how to do that!!... i have created a example of vba for you to understand a create a vba macro from it
i have data in excel Column A and B
1st I need to Copy data from A1 and paste it into Reflection Position .WaitForEvent rcEnterPos, "30", "0", 3, 11 & after that it will move to next screen and have to copy data from B1 and paste it in position .WaitForEvent rcEnterPos, "30", "0", 4, 11
.WaitForDisplayString "SEALS..:", "30", 4, 2 and enter and this process should continue till the last cell with data
i can email a Excel file with screen shots of the IBM reflection if required
Sub macro3()

With Session

Dim excelwb As Object
Dim z As Integer
Set excelwb = GetObject(, "Excel.Application")
Set excelwb = GetObject("C:\Documents and Settings\mintezar\Desktop\Book1.xls")
z = excelwb.Worksheets("Load").Range("A 1").Value
Selection.Copy
.WaitForEvent rcEnterPos, "30", "0", 3, 11
.WaitForDisplayString "NBR:", "30", 3, 6
.Paste
.TransmitTerminalKey rcIBMEnterKey
End With
End Sub