Code below extracts the data for the first account # that is in column A but does not continue the loop to goto next account #. Column A has the accounts numbers and column D would be the data that is extracted from mainframe into excel
CODE -->
Sub Extract()
Dim Sessions, System As Object, Sess0 As Object
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Set Sess0 = System.ActiveSession
With Worksheets("Template")
Row = 2
Do
Pull = .Cells(Row, "A").Value
Sess0.Screen.putstring Pull, 12, 43
Sess0.Screen.SendKeys ("<Enter>")
Sess0.Screen.WaitHostQuiet (100)
.Range("D1").Offset(1).Value = Trim(Sess0.Screen.GetString(7, 2, 25))
Sess0.Screen.SendKeys ("<Clear>")
Exit Do
Row = Row + 1
Loop Until .Cells(Row, "A").Value <> ""
End With
End Sub
start loop
Assign value from Excel column A
Put that value in screen
SendKeys
Wait 100 ms regardless if the mainframe has processed the entry (which is good)
or NOT (which is bad, cuz you'll never get a valid value to put in Excel column D)
Put a screen value in Excel column D
Clear
EXIT THE LOOP!!!!!!!!
crap thats right...got it working now but one problem. The value that is extracted from Mainframe to column D keeps getting overwritten and does not move to next row
CODE -->
Sub Extract()
Dim Sessions, System As Object, Sess0 As Object
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Set Sess0 = System.ActiveSession
With Worksheets("Template")
Do
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
Pull = .Cells(i, "A").Value
Sess0.Screen.putstring Pull, 12, 43
Sess0.Screen.SendKeys ("<Enter>")
Sess0.Screen.WaitHostQuiet (100)
.Range("D1").Offset(1).Value = Trim(Sess0.Screen.GetString(7, 2, 25))
Sess0.Screen.SendKeys ("<Clear>")
Next i
Exit Do
Row = Row + 1
Loop Until .Cells(Row, "A").Value <> ""
End With
End Sub
Talk To Other Members
RE: Loop not working!
Well here's what you're doing:
You only process the FIRST row!!!
RE: Loop not working!
CODE -->
Sub Extract() Dim Sessions, System As Object, Sess0 As Object Set System = CreateObject("EXTRA.System") Set Sessions = System.Sessions Set Sess0 = System.ActiveSession With Worksheets("Template") Do For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row Pull = .Cells(i, "A").Value Sess0.Screen.putstring Pull, 12, 43 Sess0.Screen.SendKeys ("<Enter>") Sess0.Screen.WaitHostQuiet (100) .Range("D1").Offset(1).Value = Trim(Sess0.Screen.GetString(7, 2, 25)) Sess0.Screen.SendKeys ("<Clear>") Next i Exit Do Row = Row + 1 Loop Until .Cells(Row, "A").Value <> "" End With End SubRE: Loop not working!
CODE -->
.Range("D1").Offset(1).Value = Trim(Sess0.Screen.GetString(7, 2, 25))to
CODE -->
.Range("D" & Rows.Count).End(xlUp).Offset(1, 0) = Trim(Sess0.Screen.GetString(7, 2, 25))