HowTo, for each request I make to attachmate save more than 1 line of information?
HowTo, for each request I make to attachmate save more than 1 line of information?
(OP)
Hello everyone,
I'm new to tek-tips, and VBA.
I hope to contribute in the future with some useful information. At this moment I need your precious help.
So far I have been able to extract information from attachMate based on column A (Excel) and save the result to column B(row). The method I have used assumes that for each request I get 1 back. But now I face another challenge and I do not know how to make 1 request and receive 2,3,4,5,.. information lines back to column B(row). And what I find more difficult is to detect if there is more than 1 line of results and copying them to the column B(row).
CODE -->
Sub fetchNP()
Set Sys = CreateObject("EXTRA.System") ' Utilizar a sessao activa Extra X-treme
Set sess = Sys.ActiveSession
Set sess = sess.screen
Dim LastRow As Long
Dim CellData As String
Dim WS1 As Worksheet
Set WS1 = Worksheets(1)
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
CellData = (WS1.Cells(i, 1).Value)
sess.SendKeys "<clear>"
sess.SendKeys "XI00"
sess.SendKeys "<ENTER>"
sess.WaitHostQuiet (0)
sess.putstring "DX.55.60.05", 23, 2, 11
sess.SendKeys "<ENTER>"
sess.SendKeys "<ENTER>"
sess.WaitHostQuiet (0)
sess.putstring CellData, 4, 20, 17
sess.putstring "12.06.2019", 4, 53, 10
sess.WaitHostQuiet (0)
sess.SendKeys "<ENTER>"
sess.WaitHostQuiet (0)
If Not sess.getstring(24, 14, 11) = "Seleccionar" Then
MsgBox "number plate error " & CellData
GoTo endM
End If
WS1.Cells(i, "B").Value = sess.getstring(9, 35, 17)
'Possible information in sess.getstring(10, 35, 17)
'Possible information in sess.getstring(11, 35, 17)
'Possible information in sess.getstring(12, 35, 17)
'And so on......
next i
endM:
End Sub 
Talk To Other Members
RE: HowTo, for each request I make to attachmate save more than 1 line of information?
If it is possible that your inquiry will yield a multi-line result, then your results should reside on separate sheet/table where your column A value will be repeated for each column B result.
Skip,
Just traded in my OLD subtlety...
for a NUance!
"The most incomprehensible thing about the universe is that it is comprehensible" A. Einstein