Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Attachmate Extra macro moving to Reflection

Status
Not open for further replies.

nyrtfleury14

Technical User
Apr 10, 2012
6
0
0
US
Hi all,

I have macros to pull up data on 4 screens that worked perfectly in Attachmate Extra and I am trying to get them to work in Reflection. The issue seems to be with the .edp extension changing to .rd3x. If I keep everything the same and change .edp to .rd3x then it gives me an error on the highlighted line. Any ideas? I have been running .edp sessions in Reflection, but will be forced to change to .rd3x next year.

Dim Sys As Object, Sess As Object, MyScreen As Object, Sess2 As Object, MyScreen2 As Object,Sess3 As Object, MyScreen3 As Object, Sess4 As Object, MyScreen4 As Object
Set Sys = CreateObject("EXTRA.System")
Set Sys2 = CreateObject("EXTRA.System")
Set Sys3 = CreateObject("EXTRA.System")
Set Sys4 = CreateObject("EXTRA.System")
Set sess = GetObject("C:\Users\Desktop\Session1.edp")
Set sess2 = GetObject("C:\Users\Desktop\Session2.edp")
Set sess3 = GetObject("C:\Users\Desktop\Session3.edp")
Set sess4 = GetObject("C:\Users\Desktop\Session4.edp")
[highlight #FCE94F]Set myscreen = Sess.Screen[/highlight]
Set myscreen2 = sess2.Screen
Set myscreen3 = sess3.Screen
Set myscreen4 = sess4.Screen
 
Hi,

You need to consult the Reflections Object Model and VB HELP.

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top