'--------------------------------------------------------------------------------
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System") ' Gets the system object
If (System Is Nothing) Then
MsgBox "Could not create the EXTRA System object. Stopping macro playback."
Stop
End If
Set Sessions = System.Sessions
If (Sessions Is Nothing) Then
MsgBox "Could not create the Sessions collection object. Stopping macro playback."
Stop
End If
' Set the default wait timeout value
g_HostSettleTime = 10 ' time is in milliseconds
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If
' Get the necessary Session Object
Dim Sess0 As Object
Set Sess0 = System.ActiveSession
If (Sess0 Is Nothing) Then
MsgBox "Could not create the Session object. Stopping macro playback."
Stop
End If
If Not Sess0.Visible Then Sess0.Visible = True
Sess0.Screen.WaitHostQuiet (g_HostSettleTime)
' This section of code contains the recorded events
System.TimeoutValue = OldSystemTimeout
'Extra Object
Dim Sys_Obj As Object, Sess_Obj As Object, SPOKScreen_Obj As Object
Set SPOKScreen_Obj = Sess0.Screen
'Excel Object
Dim Excel_Obj As Object, Excel_Sheet As Object
Set Excel_Obj = GetObject(, "excel.application")
Set Excel_Sheet = Excel_Obj.Workbooks("financetest.xls").Worksheets(1)
'Change ("xxxxxx.xls") part according to which ever worksheet your working from
Dim Extra_Col As Integer
Dim Extra_Row As Integer
Dim Extra_Page As Integer
Dim Excel_Row As Integer
Dim Excel_Col As Integer
Dim result As String
LastExcelRow = Excel_Sheet.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1).Row
For Excel_Row = InputBox("Input Starting Row") To LastExcelRow
SPOKScreen_Obj.SendKeys ("")
SPOKScreen_Obj.SendKeys ("")
SPOKScreen_Obj.MoveTo 0, 0
SPOKScreen_Obj.PutString Excel_Sheet.Cells(Excel_Row, 1).Value
SPOKScreen_Obj.SendKeys ("")
result = SPOKScreen_Obj.GetString()
'You should be on Extra Screen for column one of start row of Excel.
Excel_Sheet.Cells(Excel_Row, 2).Value = result
SPOKScreen_Obj.WaitHostQuiet (g_HostSettleTime)
result = SPOKScreen_Obj.GetString()
'You should be on Extra Screen for column one of start row of Excel.
Excel_Sheet.Cells(Excel_Row, 3).Value = result
System.TimeoutValue = OldSystemTimeout
Next Excel_Row
End Sub