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