Open Extra Attachmate from excel vba

[Alpacino]

Hi all,

Has anyone got a macro to open Extra Attachmate from excel ??

Thanks Al

 

[Alpacino]

Any ideas??

 

[Leith Ross]

Hello Al,

Are you looking for a macro to open additional attachments to email using Outlook?

 

[Alpacino]

Hi there,
No it's an application called Extra Attachmate

 

[Leith Ross]

Hello Al,

Do you want to run this program from Excel?

 

[Leith Ross]

Hello Al,

Copy and paste this code into a new VBA Module in your workbook's VBA project. The second macro is an example of how to call the function run that will automatically open or run the file.

'Written: May 12, 2010
'Author:  Leith Ross
'Summary: Run any registered program or open a web site using the Windows API

 Private Declare Function ShellExecute _
    Lib "Shell32.dll" Alias "ShellExecuteA" _
        (ByVal hWnd As Long, _
         ByVal lpOperation As String, _
         ByVal lpFile As String, _
         ByVal lpParameters As String, _
         ByVal lpDirectory As String, _
         ByVal nShowCmd As Long) _
    As Long


Sub RunTest()

    Dim FilePath As String
    Dim RetVal As Long
  
      ' Change the path to the file you want to open
        FilePath = "C:\Extra Attachmate.exe"
        RetVal = ShellExecute(0&, "open", FilePath, "", "", 1)
    
End Sub

 

[Alpacino]

Thank u very much !!

 

[Leith Ross]

Hello Al,

You're welcome. I take it no problems then adding the code in. That's good news.

 

[sock]

hi Leith,

Am trying the above code but it is not working, any ideas, am trying to connect"Attachmate EXTRA! X-treme" using macro... Am new to VBA....

Any ideas

Thanks

Sock R

 

[ChrisOswald]

Are you trying to create some sort of screen scrape macro?

Try:

Sub ConnectToAttachmateStuff()
    Dim oSys                            As Object
    Dim oSess                           As Object
    Dim oScreen                         As Object
    Dim attSys                          As ExtraSystem
    Dim attSess                         As ExtraSession
    Dim attScreen                       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 = sys.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