Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

not picking up last page

Status
Not open for further replies.
indswamy

indswamy

Programmer
Jan 7, 2009
16
US
i have 6 pages. each page has 6 to 23 rows
picking correctly. but last page not picking up before picking it come out from the loop.
could you help me what is wrong in the below code.
Do

For i = 6 To 23
a = Trim(Sess.Screen.GetString(i, 11, 6))
b = Trim(Sess.Screen.GetString(i, 22, 10))
c = Trim(Sess.Screen.GetString(i, 35, 20))
d = Trim(Sess.Screen.GetString(i, 59, 10))

if Logonid <> "MVPRB" then
j = j + 1

xl_sheet_1.Cells(j, "A").Value = a
xl_sheet_1.Cells(j, "B").Value = b
xl_sheet_1.Cells(j, "C").Value = c
xl_sheet_1.Cells(j, "D").Value = d


Else
End If

Next

Sess.Screen.SendKeys ("<PF8>")
Call Wait(Sess)
Loop Until Ucase(Sess.Screen.GetString(24, 8, 11)) = "END OF LIST
 
Sort by date Sort by votes
try something like this

Code: 
Do
         
      For i = 6 To 23
        a   = Trim(Sess.Screen.GetString(i, 11, 6))
        b   = Trim(Sess.Screen.GetString(i, 22, 10))
        c = Trim(Sess.Screen.GetString(i, 35, 20))
        d  = Trim(Sess.Screen.GetString(i, 59, 10))
            
        if Logonid <> "MVPRB" then
             j = j + 1 
          
            xl_sheet_1.Cells(j, "A").Value = a
            xl_sheet_1.Cells(j, "B").Value = b
            xl_sheet_1.Cells(j, "C").Value = c
            xl_sheet_1.Cells(j, "D").Value = d
        

         Else
         End If
      
      Next
if Ucase(Sess.Screen.GetString(24, 8, 11)) = "END OF LIST" then
exit sub
else
      Sess.Screen.SendKeys ("<PF8>")
end if
       Call Wait(Sess)
   Loop
 
Upvote 0 Downvote
after End of List i need to go to next screen and do something
how do i do that?
in if statment instead of exit sub how do i insert call funciton here


if Ucase(Sess.Screen.GetString(24, 8, 11)) = "END OF LIST" then
exit sub
else
Sess.Screen.SendKeys ("<PF8>")
end if
Call Wait(Sess)
Loop
 
Upvote 0 Downvote



Just create another procedure and call it BEFORE the Exit Sub

Skip,
[glasses]Don't let the Diatribe...
talk you to death![tongue]
[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
Upvote 0 Downvote
vzchin
exit do will do the same page repeat. it wont end
 
Upvote 0 Downvote
indswamy ,

exit do should exit the Do/Loop ; then you would add additional coding after the Loop

Skip's coding will work as well

glad you can work it out

zach
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

S
  • Locked
  • Question
Reflection Workspace extract all screen/pages
Replies
0
Views
728
SSS27
S
Suresh02
  • Locked
  • Question
Automation error 'Specified module could not be found&quot;
Replies
0
Views
252
Suresh02
Suresh02
dhsd
  • Locked
  • Question
VBA code works fine in debug mode but not when I run it
Replies
5
Views
605
SkipVought
S
AlbertShenko
  • Locked
  • Question
Excel VBA Not Sending F keys to Attachmate 1
Replies
15
Views
1K
SkipVought
S
2009luca
  • Locked
  • Question
GET number of page printed....
Replies
4
Views
314
SkipVought
S

Part and Inventory Search

Sponsor

Back
Top