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!

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

I know it's not attachmate but... 1

Status
Not open for further replies.

carpetbelly

Technical User
Jun 12, 2003
202
GB
What I am trying to do is use access to screenscrap from rumba to pick up data, manipulate it and send it back to rumba.

I've looked all through the attachmate forum and access forum and just having no luck at trying to transpose code (and adjust it) from what I've read at how access can do this with attachmate.

Anyone got any ideas?
 

Code:
Option Compare Database

Private Sub Scrape_and_Paste()
   Dim System As Object, Sessions As Object, Sess As Object
   Dim iRows As Long, iCols As Long, curr_line As String
   
   Set System = CreateObject("EXTRA.System")
   Set Sessions = System.Sessions
   Set Sess = System.ActiveSession

   If System Is Nothing Then
      MsgBox ("Could not create Extra.System...is E!PC installed on this machine?")
      Exit Sub
   End If

   If Sess Is Nothing Then
      MsgBox ("No session available...stopping macro playback.")
      Exit Sub
   End If
   
   iRows = Sess.Screen.Rows
   iCols = Sess.Screen.Cols
 
   ' Row 2
   curr_line = Sess.Screen.GetString(2, 1, iCols)
   
   ' Paste row 2 to row 10
   Sess.Screen.putstring curr_line, 10, 1
   
   Set Sess = Nothing
   Set Sessions = Nothing
   Set System = Nothing
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top