InfoConnect VBA Guide
HowTos / Get Screen Data With an Excel Macro
In This Topic
    Get Screen Data With an Excel Macro
    In This Topic

    You can use an Excel Macro to get data from a terminal screen and put it into a spreadsheet.

    If you prefer to run macros in pre-configured sessions instead of creating your own sessions, you can download the VBA Sample Sessions and open the get-ibm-screen-data-with-an-excel-macro.xlsm (IBM) and the get-os-screen-data-with-an-excel-macro.xlsm (Open Systems) files. The download package contains everything you need to run the macros in these files. See Download the VBA Sample Sessions.

    This sample uses the GetText method to get data from a session.

    This article contains tabbed content that is specific to each terminal type. Be sure the tab for your Which Terminal Type are you Using? is selected.

    This Excel macro gets data from a terminal screen and copies it to an Excel spreadsheet. After the macro runs,  the spreadsheet contains the following data:

    Note: This example macro uses the NewScreenReady event to wait until the screen is ready for input while navigating screens. To get the best performance for macros that navigate screens, consider using a SmartWait method as shown in Navigating Through IBM Screens.

     

    To run this sample

    1. On the Excel VBA Editor Tools menu, select References and then select the following InfoConnect Libraries:
    • Attachmate_Reflection_Objects
    • Attachmate_Reflection_Objects_Emulation_IbmHosts
    • Attachmate_Reflection_Objects_Framework
    1. Copy the following code into an Excel Sheet object code window and then press F5 to run the macro.
    Get screen data with an Excel macro
    Copy Code 
    Public WithEvents screen As Attachmate_Reflection_Objects_Emulation_IbmHosts.ibmScreen
Public Sub GetDataFromIBMScreen()
    'Declare an object variable for the InfoConnect object
    Dim app As Attachmate_Reflection_Objects_Framework.ApplicationObject
   
    'Declare additional InfoConnect objects, such as frame, terminal, and view
    Dim frame As Attachmate_Reflection_Objects.frame
    Dim terminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmTerminal
    Dim view As Attachmate_Reflection_Objects.view
   
    'Create a new instance of InfoConnect
    Set app = New Attachmate_Reflection_Objects_Framework.ApplicationObject
 
    'wait until InfoConnect initializes
    Do While app.IsInitialized = False
        app.Wait (200)
    Loop
 
    'Create controls to open and display the session document.
    Set frame = app.GetObject("Frame")
    frame.Visible = True
   
    Set terminal = app.CreateControl2("09E5A1B4-0BA6-4546-A27D-FE4762B7ACE1")
                          
    terminal.HostAddress = "demo:ibm3270.sim"
    Set view = frame.CreateView(terminal)
    Set screen = terminal.screen
End Sub
Private Sub screen_NewScreenReady(ByVal sender As Variant)
    'In this IbmScreen
 
    Dim screenID1 As String, screenID2 As String, screenID3 As String
    Dim rCode As ReturnCode
    Dim rowText As String
    Dim rowFromHost() As String
    Dim col As Integer, row As Integer
 
    screenID1 = screen.GetText(1, 2, 6) 'ATM VM ispf
    screenID2 = screen.GetText(1, 7, 4) 'option 2
    screenID3 = screen.GetText(1, 25, 13) 'option 2
    
    If screenID1 = "ATM VM" Then
        rCode = screen.SendControlKey(ControlKeyCode_Transmit)
    End If
 
    If screenID2 = "ATM5" Then
        rCode = screen.PutText2("kayak", 23, 1)
        rCode = screen.SendControlKey(ControlKeyCode_Transmit)
    End If
 
    If screenID3 = "INTERNATIONAL" Then
     
        'Start on row 7 and get the first row of text from the screen
        row = 7
        rowText = screen.GetText(row, 9, 65)
        'Gather data until an empty row is encountered
        Do
            'Replace spaces between compound words in first column and remove extra spaces
            rowText = Replace(rowText, " ", "_", 1, 1)
            rowText = Application.WorksheetFunction.Trim(rowText)
         
            'Place each column into an array
            rowFromHost = Split(rowText, " ")
         
            For col = LBound(rowFromHost) To UBound(rowFromHost)
                'Replace delimiter that was added for compound words
                rowFromHost(col) = Replace(rowFromHost(col), "_", " ", 1, 1)
                'Write each column in the row to the spreadsheet
                Cells(row, (col + 5)).Value = rowFromHost(col)
            Next col
         
            row = row + 1
         
            'Get the new row of text from the screen
            rowText = screen.GetText(row, 9, 65)
          
            Debug.Print row
      
        'Check string length after removing all extra spaces
        Loop While Len(Application.WorksheetFunction.Trim(rowText)) > 0
     
    End If
     
End Sub
                                   
                   

     

    This Excel macro gets data from a terminal screen and copies it to an Excel spreadsheet. After the macro runs,  the spreadsheet contains the following data:

    To run this sample

    1. In InfoConnect, create a new VT terminal session and in the Host Name /IP address box, enter "Demo:UNIX".
    2. Save the new session in your "My Documents\Micro Focus\Reflection" folder as GetData.rdox.
    3. Open Microsoft Excel and on the Excel VBA Editor Tools menu, select References and then select the following InfoConnect Libraries:
    • Attachmate_Reflection_Objects
    • Attachmate_Reflection_Objects_Emulation_OpenSystems
    • Attachmate_Reflection_Objects_Framework
    1. Copy the following code into an Excel Sheet object code window and then run the GetDataFromInfoConnect macro.
    Get screen data with an Excel macro
    Copy Code 
    Sub GetDataFromOSScreen()
    'Declare an object variable for the InfoConnect object:
    Dim app As Attachmate_Reflection_Objects_Framework.ApplicationObject
  
    'Declare additional InfoConnect objects required to create and display a session
    Dim frame As Attachmate_Reflection_Objects.frame
    Dim screen As Attachmate_Reflection_Objects_Emulation_OpenSystems.screen
    Dim terminal As Attachmate_Reflection_Objects_Emulation_OpenSystems.terminal
    Dim view As Attachmate_Reflection_Objects.view
  
    Dim rCode As Integer
    Dim path As String
    Dim rowText As String
    Dim row As Integer, col As Integer
    Dim rowFromHost() As String
  
    Const NEVER_TIME_OUT = 0
    'Create an instance of InfoConnect
    Set app = New Attachmate_Reflection_Objects_Framework.ApplicationObject
 
    'Wait until InfoConnect initializes
    Do While app.IsInitialized = False
        app.Wait (200)
    Loop
 
    'Create controls to open and display the session document.
    Set frame = app.GetObject("Frame")
   
    Set terminal = app.CreateControl(Environ$("USERPROFILE") & "\Documents\Micro Focus\InfoConnect\" & "GetData.rdox")
                       
   
    Set view = frame.CreateView(terminal)
    frame.Visible = True
  
    'Send keys to navigate to screen that contains data
    'wait after keys are sent to make sure host screen is ready before sending more keys
    Set screen = terminal.screen
         
    screen.SendKeys "userID"
    screen.SendControlKey ControlKeyCode_Return
    rCode = screen.WaitForHostSettle(3000)
  
    screen.SendKeys "DemoPassWord"
    screen.SendControlKey ControlKeyCode_Return
    rCode = screen.WaitForHostSettle(3000)
 
    screen.SendKeys "demodata"
    screen.SendControlKey ControlKeyCode_Return
    rCode = screen.WaitForHostSettle(3000)
 
    'Start on row 5 and get the first row of text using the row,
    'column, and length values from a recorded macro
    row = 5
    rowText = screen.GetText(row, 24, 32)
 
    'Get data as long as the row on the screen is not empty
    Do
 
        'Remove lines between columns and remove extra spaces
        rowText = Replace(rowText, "|", "")
        rowText = WorksheetFunction.Trim(rowText)
                    
        'Place each column into an array
        rowFromHost = Split(rowText, " ")
                    
        'Write row to spreadsheet
        For col = LBound(rowFromHost) To UBound(rowFromHost)
            Cells(row, (col + 5)).Value = rowFromHost(col)
        Next col
   
        row = row + 1
      
        'Get a row of text from the screen
        'Using the row, column, and length values from a recorded macro
        rowText = screen.GetText(row, 24, 32)
      
    'Remove spaces and check for an empty row
    Loop While Len(WorksheetFunction.Trim(rowText)) > 0
                    
End Sub

    Concepts

    First, the sample creates an InfoConnect session. The IBM sample does this by creating a new session and then assigning it the demo Host/IP address. The Open System sample opens an existing session. For details about concepts related to this part of the sample, see Create a Session From a Microsoft Excel Macro and Open a Session From a Microsoft Excel Macro.

    Then it navigates through the session to get to the screen data we want to copy.

    This sample uses the NewScreenReady event to navigate to the host screen that contains the data. Declaring a global IbmScreen object variable using the WithEvents keyword allows us to access the InfoConnect screen events from the Excel macro. 

    The ScreenID variables hold text from specific locations on each screen. The text in each variable is compared with known text to determine which screen the program is on and then keys are sent to navigate to the next screen until the program is on the screen with the INTERNATIONAL text. (This is the screen that has the data we need to copy to Excel.)

    Navigate to the screen that has the data
    Copy Code 
    Public WithEvents screen As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmScreen

Private Sub screen_NewScreenReady(ByVal sender As Variant)
    'In this IbmScreen
  
    Dim screenID1 As String, screenID2 As String, screenID3 As String
    Dim rCode As ReturnCode
    Dim rowText As String
    Dim rowFromHost() As String
    Dim col As Integer, row As Integer
  
    screenID1 = screen.GetText(1, 2, 6) 'ATM VM ispf
    screenID2 = screen.GetText(1, 7, 4) 'option 2
    screenID3 = screen.GetText(1, 25, 13) 'option 2
     
    If screenID1 = "ATM VM" Then
        rCode = screen.SendControlKey(ControlKeyCode_Transmit)
    End If
  
    If screenID2 = "ATM5" Then
        rCode = screen.PutText2("kayak", 23, 1)
        rCode = screen.SendControlKey(ControlKeyCode_Transmit)
    End If
  
    If screenID3 = "INTERNATIONAL" Then

...

    This sample enters commands to navigate to the screen that contains the data. After sending each command, it waits until the screen is ready before entering the next command.

    Navigate to the screen that has the data
    Copy Code 
        Set screen = terminal.screen
          
    screen.SendKeys "userID"
    screen.SendControlKey ControlKeyCode_Return
    rCode = screen.WaitForHostSettle(3000)
   
    screen.SendKeys "DemoPassWord"
    screen.SendControlKey ControlKeyCode_Return
    rCode = screen.WaitForHostSettle(3000)
 
    screen.SendKeys "demodata"
    screen.SendControlKey ControlKeyCode_Return
    rCode = screen.WaitForHostSettle(3000)

    When the program is on the screen with the data, the GetText method is used to get a row or data as a string. The Replace function is used to handle compound words and to remove unwanted characters and the Excel Trim function is used to remove all extra leading and trailing spaces and spaces between words. Then the string is converted to an array. 

    If you are copying structured data (as in our IBM sample), you can use the screen row coordinates for your starting point. For unstructured data (Open Systems), you'll need to get the starting point coordinates by recording a macro or by searching for unique text on the screen as shown in Navigating Through Open Systems Sessions.

     

    Finally, the sample loops through the array and assigns the value of each element to a cell in the spreadsheet.

    This process is repeated until the macro encounters an empty row.

     

    See Also

    Quickstart

    Navigating Through Open Systems Sessions