Copy and Append Loop Macro
Copy and Append Loop Macro
(OP)
Hi guys I am trying to get a simple Copy and Append Loop going from the Attachmate Extra! screen. Basically there is a report I want to get to txt or excel format. The report is usually around 50000 lines or more.
I recorded the below keystrokes but not sure how to make it loop to the end of the report.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sub Main()
'--------------------------------------------------------------------------------
' Get the main system object
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 = 3000 ' 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
Sess0.Screen.CopyAppend
Sess0.Screen.Sendkeys("<Pf8>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
System.TimeoutValue = OldSystemTimeout
End Sub
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Any help would be greatly appreciated!
I recorded the below keystrokes but not sure how to make it loop to the end of the report.
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sub Main()
'--------------------------------------------------------------------------------
' Get the main system object
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 = 3000 ' 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
Sess0.Screen.CopyAppend
Sess0.Screen.Sendkeys("<Pf8>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
System.TimeoutValue = OldSystemTimeout
End Sub
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Any help would be greatly appreciated!
Talk To Other Members
RE: Copy and Append Loop Macro
hi,
Put this code in a loop
CODE
Sess0.Screen.CopyAppend
Sess0.Screen.Sendkeys("<Pf8>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
CODE
do while Trim(Sess0.Screen.GetString(24,1,80)) = "CONTINUE"
Sess0.Screen.CopyAppend'don't see this method in AttachmateSess0.Screen.Copy
'BTW, I almost NEVER use Extra BASIC -- YUK!
'I use Excel VBA, much more versatile!!!
with xl.YourWorkbookObject.YourSheetObject
.cells(.[A1].currentregion.rows.count+1,1).paste
end with
Sess0.Screen.Sendkeys("<Pf8>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)Do Until Sess0.Screen.WaitForCursor(1, 1) 'or wherever your cursor rests after <PF8>
DoEvents
Loop
loop
Skip,
Just traded in my old subtlety...
for a NUANCE!