Sorry thats my object. Here is my complete code for this macro
Option Explicit
Public MySystem As Object, MySessions As Object, MySession As Object, MyScreen As Object, sessionname As String
Public HostSettleTime As Integer, RetValue As Boolean, Wait1st As Integer, WaitTime As Integer
Public RTN As String, txtENDcol As Integer, txtSTARTcol As Integer, otext As Variant
Public waitString As String
Private Sub Set_Objects()
Set MySystem = CreateObject("Passport.System")
If (MySystem Is Nothing) Then
MsgBox "Could not create the Passport System object. Ending program.", vbOKOnly + vbCritical, "Passport Error"
Application.Visible = True
End
End If
Set MySessions = MySystem.Sessions
If (MySessions Is Nothing) Then
MsgBox "Could not create the Passport collection object. Ending program.", vbOKOnly + vbCritical, "Passport Error"
Application.Visible = True
End
End If
Set MySession = MySystem.ActiveSession
If (MySession Is Nothing) Then
MsgBox "Could not create the Passport object. Ending program", vbOKOnly + vbCritical, "Passport Error"
End
End If
If Not MySession.Visible Then MySession.Visible = True
Set MyScreen = MySession.Screen
If (MyScreen Is Nothing) Then
MsgBox "Could not create the Screen object. Ending program", vbOKOnly + vbCritical, "Passport Error"
End
End If
sessionname = MySession.Name
End Sub
Private Function txt(txtRow As Integer, txtSTARTcol As Integer, txtENDcol As Integer)
txt = MyScreen.Area(txtRow, txtSTARTcol, txtRow, txtENDcol, , otext)
End Function
Private Sub SendKey(key As String)
waitString = MyScreen.Area(1, 1, 24, 80)
MyScreen.SendKeys key
Dim waiter As Long
Do Until waitString <> MyScreen.Area(1, 1, 24, 80)
waiter = waiter + 1
If waiter = 50000 Then
Exit Sub
End If
Loop
End Sub
Private Sub Canc_Find()
'Written by Chris Banks for Kevin Dill
Dim row As Integer
Dim row2 As Integer
Dim answer As Integer
answer = MsgBox("Make sure that you have SPAS open to the Welcome Screen" & vbCrLf & "Then click OK.", vbOKCancel, "Open Passport")
If answer = 2 Then Exit Sub
row2 = 2
row = 2
Set_Objects
If Trim(txt(1, 20, 26) <> "WELCOME") Then
MsgBox ("Please set SPAS to Welcome Screen and Press OK")
End If
MyScreen.PutString "G", 20, 10
SendKey "<Enter>"
MyScreen.PutString "1", 20, 10
SendKey "<Enter>"
Do Until Workbooks("Pre Can Report.xls").Worksheets("Sales Office").Range("A" & row) = ""
MyScreen.PutString "PC", 12, 36
MyScreen.PutString Workbooks("Pre Can Report.xls").Worksheets("Sales Office").Range("A" & row), 14, 36
SendKey "<ENTER>"
Do Until MyScreen.Area(23, 2, 23, 5) = "NEXT"
If MyScreen.Area(24, 2, 24, 2) = "R" Then
row = row + 1
MyScreen.PutString Workbooks("Pre Can Report.xls").Worksheets("Sales Office").Range("A" & row), 14, 36
SendKey "<ENTER>"
End If
If MyScreen.Area(24, 2, 24, 2) = "O" Then
row = row + 1
MyScreen.PutString Workbooks("Pre Can Report.xls").Worksheets("Sales Office").Range("A" & row), 14, 36
SendKey "<ENTER>"
End If
If MyScreen.Area(24, 2, 24, 2) = "R" Then
row = row + 1
MyScreen.PutString Workbooks("Pre Can Report.xls").Worksheets("Sales Office").Range("A" & row), 14, 36
SendKey "<ENTER>"
End If
If MyScreen.Area(24, 2, 24, 2) = "O" Then
row = row + 1
MyScreen.PutString Workbooks("Pre Can Report.xls").Worksheets("Sales Office").Range("A" & row), 14, 36
SendKey "<ENTER>"
End If
If MyScreen.Area(24, 2, 24, 2) = "R" Then
row = row + 1
MyScreen.PutString Workbooks("Pre Can Report.xls").Worksheets("Sales Office").Range("A" & row), 14, 36
SendKey "<ENTER>"
End If
If MyScreen.Area(24, 2, 24, 2) = "O" Then
row = row + 1
MyScreen.PutString Workbooks("Pre Can Report.xls").Worksheets("Sales Office").Range("A" & row), 14, 36
SendKey "<ENTER>"
End If
If MyScreen.Area(5, 2, 5, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(5, 2, 5, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(5, 22, 5, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(5, 41, 5, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(5, 45, 5, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(5, 49, 5, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(5, 53, 5, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(5, 56, 5, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(5, 62, 5, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(5, 72, 5, 80)
row2 = row2 + 1
End If
If MyScreen.Area(6, 2, 6, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(6, 2, 6, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(6, 22, 6, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(6, 41, 6, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(6, 45, 6, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(6, 49, 6, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(6, 53, 6, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(6, 56, 6, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(6, 62, 6, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(6, 72, 6, 80)
row2 = row2 + 1
End If
If MyScreen.Area(7, 2, 7, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(7, 2, 7, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(7, 22, 7, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(7, 41, 7, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(7, 45, 7, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(7, 49, 7, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(7, 53, 7, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(7, 56, 7, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(7, 62, 7, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(7, 72, 7, 80)
row2 = row2 + 1
End If
If MyScreen.Area(8, 2, 8, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(8, 2, 8, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(8, 22, 8, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(8, 41, 8, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(8, 45, 8, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(8, 49, 8, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(8, 53, 8, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(8, 56, 8, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(8, 62, 8, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(8, 72, 8, 80)
row2 = row2 + 1
End If
If MyScreen.Area(9, 2, 9, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(9, 2, 9, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(9, 22, 9, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(9, 41, 9, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(9, 45, 9, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(9, 49, 9, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(9, 53, 9, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(9, 56, 9, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(9, 62, 9, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(9, 72, 9, 80)
row2 = row2 + 1
End If
If MyScreen.Area(10, 2, 10, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(10, 2, 10, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(10, 22, 10, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(10, 41, 10, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(10, 45, 10, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(10, 49, 10, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(10, 53, 10, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(10, 56, 10, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(10, 62, 10, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(10, 72, 10, 80)
row2 = row2 + 1
End If
If MyScreen.Area(11, 2, 11, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(11, 2, 11, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(11, 22, 11, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(11, 41, 11, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(11, 45, 11, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(11, 49, 11, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(11, 53, 11, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(11, 56, 11, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(11, 62, 11, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(11, 72, 11, 80)
row2 = row2 + 1
End If
If MyScreen.Area(12, 2, 12, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(12, 2, 12, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(12, 22, 12, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(12, 41, 12, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(12, 45, 12, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(12, 49, 12, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(12, 53, 12, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(12, 56, 12, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(12, 62, 12, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(12, 72, 12, 80)
row2 = row2 + 1
End If
If MyScreen.Area(13, 2, 13, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(13, 2, 13, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(13, 22, 13, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(13, 41, 13, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(13, 45, 13, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(13, 49, 13, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(13, 53, 13, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(13, 56, 13, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(13, 62, 13, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(13, 72, 13, 80)
row2 = row2 + 1
End If
If MyScreen.Area(14, 2, 14, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(14, 2, 14, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(14, 22, 14, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(14, 41, 14, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(14, 45, 14, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(14, 49, 14, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(14, 53, 14, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(14, 56, 14, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(14, 62, 14, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(14, 72, 14, 80)
row2 = row2 + 1
End If
If MyScreen.Area(15, 2, 15, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(15, 2, 15, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(15, 22, 15, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(15, 41, 15, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(15, 45, 15, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(15, 49, 15, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(15, 53, 15, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(15, 56, 15, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(15, 62, 15, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(15, 72, 15, 80)
row2 = row2 + 1
End If
If MyScreen.Area(16, 2, 16, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(16, 2, 16, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(16, 22, 16, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(16, 41, 16, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(16, 45, 16, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(16, 49, 16, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(16, 53, 16, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(16, 56, 16, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(16, 62, 16, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(16, 72, 16, 80)
row2 = row2 + 1
End If
If MyScreen.Area(17, 2, 17, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(17, 2, 17, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(17, 22, 17, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(17, 41, 17, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(17, 45, 17, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(17, 49, 17, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(17, 53, 17, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(17, 56, 17, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(17, 62, 17, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(17, 72, 17, 80)
row2 = row2 + 1
End If
If MyScreen.Area(18, 2, 18, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(18, 2, 18, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(18, 22, 18, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(18, 41, 18, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(18, 45, 18, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(18, 49, 18, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(18, 53, 18, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(18, 56, 18, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(18, 62, 18, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(18, 72, 18, 80)
row2 = row2 + 1
End If
If MyScreen.Area(19, 2, 19, 2) <> " " Then
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("A" & row2) = MyScreen.Area(2, 56, 2, 58)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("B" & row2) = MyScreen.Area(19, 2, 19, 19)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("C" & row2) = MyScreen.Area(19, 22, 19, 39)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("D" & row2) = MyScreen.Area(19, 41, 19, 41)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("E" & row2) = MyScreen.Area(19, 45, 19, 46)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("F" & row2) = MyScreen.Area(19, 49, 19, 50)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("G" & row2) = MyScreen.Area(19, 53, 19, 53)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("H" & row2) = MyScreen.Area(19, 56, 19, 59)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("I" & row2) = MyScreen.Area(19, 62, 19, 69)
Workbooks("Pre Can Report.xls").Worksheets("Results").Range("J" & row2) = MyScreen.Area(19, 72, 19, 80)
row2 = row2 + 1
End If
SendKey "<PF2>"
Loop
SendKey "<PF1>"
row = row + 1
DoEvents
Loop
MsgBox "Task Completed"
End Sub
Display More