Connecting MS Excel with Attachmate Extra X-treame

[dinesh_ltjd]

I am trying to create a session between Excel and Attachmate Extra Xtreame to fetch info from various screens of Extra and paste it on to excel.
Everytime I am trying to create a session between Excel and Extra Its giving me error "MS Excel is waiting for another application to complete OLE action"
I have seleted the Attachment Object Library (Tools --> Referance). Do I need to make any changes to Attachmate Extra Xtrme?

please suggest what should i do

[Bradbb]

Hi dinesh_ltjd,

I have some recent experience using Excel VBA to send to and receive data from Attachmate Extra! X-Treme v9.0. If you could paste your VBA code I might be able to help.

bradbb

[dinesh_ltjd]

Thanks Bradbb for reply :-)
I am using Attachmate Extra! X-treme 8.0SP1
Below is the code i am using to create a session between Excel and Attachmate

Sub ConnectToAttachmat()
    Dim oSys                            As ExtraSystem
    Dim oSess                           As ExtraSession
    Dim oScreen                         As ExtraScreen
    Set oSys = CreateObject("Extra.System")
    If oSys Is Nothing Then
        MsgBox ("Could not create Extra.System...is E!PC installed on this machine?")
        Exit Sub
    End If
    'GET ACCESS TO THE CURRENTLY ACTIVE SESSION...
    Set oSess = oSys.ActiveSession
    If oSess Is Nothing Then
        MsgBox ("No session available...stopping macro playback.")
        Exit Sub
    End If
    Set oScreen = oSess.screen
    'display the first 40 characters on line 1 after character 19 in a message box
    MsgBox (oScreen.getstring(1, 20, 40))
End Sub

[Bradbb]

Hi dinesh_ltjd,

It looks like you're combining both early and late binding, which isn't working. The most common method i've seen used for this is late binding, which I've modified your code to use:

Sub ConnectToAttachmat()

Dim oSys As Object
Dim oSess As Object
Dim oActive As Object
Dim oScreen As Object

Set oSys = CreateObject("Extra.System")
If oSys Is Nothing Then
    MsgBox ("Could not create the Extra.System object...is E!PC installed on this machine?")
    Exit Sub
End If

'GET ACCESS TO THE CURRENTLY ACTIVE SESSION...
Set oSess = oSys.Sessions
If oSess Is Nothing Then
    MsgBox ("Could not create the Sessions collection object...stopping macro playback.")
    Exit Sub
End If

Set oActive = oSys.ActiveSession
If oActive Is Nothing Then
    MsgBox ("Could not create the session object...stopping macro playback.")
    Exit Sub
End If

Set oScreen = oActive.Screen

'display the first 40 characters on line 1 after character 19 in a message box
MsgBox (oScreen.GetString(1, 20, 40))

End Sub

Edit: I thought I'd also show you early binding, as it is easier to develop code using early binding as it exposes the object library, which allows the use of "intellisense" and syntax checking. However, it is recommended that you change it to late binding when releasing your code, especially if you're unsure of the software versions being used on other users' PCs.

Sub ConnectToAttachmatTwo()

Dim oSys As EXTRA.ExtraSystem
Dim oSess As EXTRA.ExtraSessions
Dim oActive As Object
Dim oScreen As EXTRA.ExtraScreen

Set oSys = New EXTRA.ExtraSystem
If oSys Is Nothing Then
    MsgBox ("Could not create the Extra.System object...is E!PC installed on this machine?")
    Exit Sub
End If

Set oSess = oSys.Sessions
If oSess Is Nothing Then
    MsgBox ("Could not create the Sessions collection object...stopping macro playback.")
    Exit Sub
End If

Set oActive = oSys.ActiveSession
If oActive Is Nothing Then
    MsgBox ("Could not create the session object...stopping macro playback.")
    Exit Sub
End If

Set oScreen = oActive.Screen

'display the first 40 characters on line 1 after character 19 in a message box
MsgBox (oScreen.GetString(1, 20, 40))

End Sub

Enjoy!

Bradbb

[dinesh_ltjd]

Hi Bradbb,

i have tried your code with late binding concept

But its still giving same error as Excel wating for another application to complete the OLE Action

I have run the code statement wise and its getting stuck at following part

Set oActive = oSys.ActiveSession
If oActive Is Nothing Then

[Bradbb]

Hi dinesh_ltjd,

You probably already searched, but if not you might want to review the KB article from Microsoft: http://support.microsoft.com/kb/2663513. Is EXTRA! somehow still active (running a macro or something?) when you try to execute the VBA code?


If you want to try slightly different code to see if it's just "ActiveSession" that is giving you a problem, you could use:

Set oActive = oSess.Item("C:\PATH")

Where PATH is the directory and filename of your current Extra! session .edp file (eg: C:\Documents and Settings\All Users\Shared Documents\Attachmate\EXTRA!\sessions\filename.edp).

HTH

Bradbb

[dinesh_ltjd]

Hi Team,

I am starting this project again. I have Attachmich I am getting while running my code m trying to send and receive data from Attachmate Extra Xtreame to Excel 2010
But unable to do the same.Error which I am getting while running my code is 'MS Excel is waiting for another application to complete OLE action'
Any help will be appreciated,