VBA MoveTo Help

[kashford]

I am trying to port this sub routine over to Excel VBA from Extra basic

Sub Move(ByVal value$, ByVal field$, ByVal enter As Boolean)

Dim x As Integer, y As Integer

x = Left(field, InStr(field, ",") - 1)
y = Mid(field, InStr(field, ",") + 1, (Len(field) - InStr(field, ",") + 1))

mySess.Screen.MoveTo x, y
System.ActiveSession.Screen.SendKeys (value$)

If enter Then
System.ActiveSession.Screen.SendKeys ("<Enter>")
End If

Do

'Wait Until The Attachmate Screen Has Updated
Loop Until System.ActiveSession.Screen.Updated = True
System.ActiveSession.Screen.WaitHostQuiet (150)

End Sub

I keep getting the error: Object variable or With block variable not set.

What am I doing wrong?

 

[SkipVought]

Hi,

You have not set objects for the Extra objects.

    Set oSystem = CreateObject("Extra.System")
    
    Set oSess = oSystem.Sessions.Open("C:\Program Files\E!PC\Sessions\Mainframe.edp")

    With oSess
        .Visible = True
        .WindowState = xNORMAL
    End With

    Set oScrn = oSess.SCREEN
'....

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[kashford]

I have a public sub routine that is called on startup that sets them as follows:

Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Set mySess = System.ActiveSession
Set MyScreen = mySess.Screen

I have tried the code as System.ActiveSession.Screen.MoveTo as well, but I get the same results.

 

[kashford]

Got it to work.

Thanks for the help Skip.