Excel 2010 not responding when making connection to myExtra Enterprise

[ArdenJ01]

Dear all,

I have been looking for a solution for weeks, but really cant seem to find one. I hope you guys can help.

The place where I work currently uses Windows XP with Exel 2003/2007.(I know its old, but the company takes its time).
Now there is a migration proces to go to Windows 7 with Excel 2010.

There is a test environment where we tested the file to make sure it works, but it doesn't. We also tested on a laptop that has been migrated to Windows 7 with Excel 2010, but also here it failed.

I have tested different versions of the code and also with the library on, but it keeps running into the same problem. No error or whatever, but Excel says (not responding). After a while it askes to shut down and reboot.

Here is the code of the function we use to test if there is a connection between Excel and myExtra Enterprice AttachMate.

Function test()

Dim System ' Attachmate System
Dim Session ' Current Host Session
Dim Screen ' Current Screen
Dim milliseconds ' milliseconds to wait
Dim Rows ' Rows in Current Screen
Dim Cols ' Cols in one Row
Dim Row ' Row Counter
Dim Buffer ' Buffer to hold Screen Image
Dim Line ' One Line
Dim Lines ' All Lines belimited by vbCrLf
milliseconds = 100 ' 1000=1 second
Set System = CreateObject("Extra.System")
If System Is Nothing Then
    MsgBox "Could not create the System Object", _
                     vbOKOnly + vbCritical, "Get Screen"
    Exit Function
End If

Set Session = System.ActiveSession
If Session Is Nothing Then
    MsgBox "Could not create the Session Object", _
                    vbOKOnly + vbCritical, "Get Screen"
    Exit Function
End If

End Function

I have also done the step by step thing and then it stops add different lines. I can see it makes a connection because the variable System changes from 0 to "myExtra" or something like that.

When I push F8 quickly it will go further then when I take pauses after each line.

I think this is all I can think of for now as information.

If you have any ideas/ suggestions, please let me know.

 

[SkipVought]

Hi,

I'm confused! I don't see ANYTHING in your code example regarding Excel???

Does your code run from Excel VBA?

I don't know what you're asking???

 

[Tommeck37]

Hello,

Maybe try with this one

Sub RapidBalances()
Dim Sys As Object, Sess As Object, Screen As Object
Dim i As Integer
    Set Sys = CreateObject("EXTRA.System")
If sys Is Nothing Then
        MsgBox ("Could not create Extra.System...is it installed on this machine?")
        Exit Sub
    End If



' Assumes an open session
    Set Sess = Sys.ActiveSession
        Set Screen = Sess.Screen

Set Sess = Nothing
Set Sys = Nothing
Set Sess = Nothing

End Sub

 

[ArdenJ01]

Thanks for the replies.

@SkipVought Yes this code is run from Excel VBA

@Tommeck37 I will try in the next couple of days. Thanks.

 

[SkipVought]

Do you have a session open in Extra when you run this code in Excel VBA?

 

[ArdenJ01]

@SkipVought Yes the session is open when I run the code.

 

[SkipVought]

give this a try for your declarations

    Dim System As Object ' Attachmate System
    Dim Session  As Object ' Current Host Session
    Dim Screen As Object ' Current Screen