After the form opens, enter any text in the User name and Password fields and click Log In.MsgBox 'You need to log in' Exit Sub End Sub 'Exit to avoid running the error handler when there is no error

RCode = screen.PutText2( 'autoexec', 2, 15) 'put in the command to enter the data and go to the next screen Remove this code if you use this sample for your projects 'This demo waits 2 seconds so you can see the data after it is entered. RCode = screen.PutText2(projectType, 7, 18) ProjectType = 'Funded' End If 'Put the text for each value into the appropriate field Set app = GetObject( 'Reflection Workspace') 'If Reflection isn't open, exit and display a message to log in. RCode = screen.WaitForHostSettle(3000, 2000)ĭim project, projectType, group, member As String Dim rCode As ReturnCode RCode = screen.SendControlKey(ControlKe圜ode_Transmit) 'navigate to the screen you want to screen scrape

RCode = screen.PutText2(txtPassword.Value, 21, 16) RCode = screen.PutText2(txtUserName.Value, 20, 16) Terminal.HostAddress = 'demo:ibm3270.sim' Set view = frame.CreateView(terminal)įrame.Visible = True Set screen = terminal.screen Loop 'Create controls to open and display the session document. Set app = New Attachmate_Reflection_Objects_Framework.ApplicationObject The following code creates an instance of Reflection: 'Assign the Application object to the object variable. 'Declare additional Reflection objects, such as frame, terminal, and view:ĭim frame As Attachmate_Reflection_ameĭim terminal As Attachmate_Reflection_Objects_Emulation_IbmHosts.IbmTerminalĭim view As Attachmate_Reflection_Objects.viewĭim path As String Dim rCode As ReturnCode 'Declare an object variable for the Reflection object:ĭim app As Attachmate_Reflection_Objects_Framework.ApplicationObject OptType.Value = 'True' End Sub Private Sub cmdLogin_Click() TxtProject.Value = '' 'Empty MemberTextBox TxtPassword.Value = '' 'Empty ProjectTextBox TxtUserName.Value = '' 'Empty TypeRadioButtons Dim screen As Attachmate_Reflection_Objects_Emulation_IbmHosts.ibmScreen

Excel vba examples data management