Sub DEBTORNOTEAGEDDEBTTEST()
' Generated by the Reflection Macro Recorder on 03-10-2015 13:20:00.19.
' Generated by Reflection for UNIX and OpenVMS 14.0.6.
On Error GoTo ErrorHandler
Const NEVER_TIME_OUT = 0
Dim LF As String ' Chr(rcLF) = Chr(10) = Control-J
Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M
Dim ESC As String ' Chr(rcESC) = Chr(27) = Control-[
Dim excelAPP As Object
Dim z As Integer
z = 2
Set excelAPP = GetObject(, "excel.Application")
Set excelAPP = GetObject("D:\Users\vhacpwdrakek\Desktop\AGED DEBT TEMPLATE TEST.xlsx")
LF = Chr(Reflection2.ControlCodes.rcLF)
CR = Chr(Reflection2.ControlCodes.rcCR)
ESC = Chr(Reflection2.ControlCodes.rcESC)
With Session
.Transmit "^DEBTOR COMMENT LOG" & CR
.StatusBar = "Waiting for Prompt: Select AR DEBTOR:"
.WaitForString LF & "Select AR DEBTOR: ", NEVER_TIME_OUT, rcAllowKeystrokes
Do
z = z + 1
A = excelAPP.ACTIVESHEET.Range("B" & z)
B = excelAPP.ACTIVESHEET.Range("Q" & 3)
C = excelAPP.ACTIVESHEET.Range("P" & 5)
.Transmit A
'.StatusBar = "Waiting for Prompt: Enter <RETURN> to continue."
'.WaitForString LF & "Enter <RETURN> to continue.", NEVER_TIME_OUT, rcAllowKeystrokes
'.StatusBar = ""
' Press VtEnter (Simulate pressing the Enter key).
'.TransmitTerminalKey rcVtEnterKey
'.StatusBar = "Waiting for Prompt: Do you want to continue processing this patient record? No//"
'.WaitForString LF & "Do you want to continue processing this patient record? No// ", NEVER_TIME_OUT, rcAllowKeystrokes
'.StatusBar = ""
'.Transmit "Y"
'.StatusBar = "Waiting for Prompt: Do you want to continue processing this patient record? No// Y"
'.WaitForString "Y", NEVER_TIME_OUT, rcAllowKeystrokes
'.StatusBar = ""
' Press VtEnter (Simulate pressing the Enter key).
'.TransmitTerminalKey rcVtEnterKey
'.StatusBar = "Waiting for Prompt: Enter <RETURN> to continue."
'.WaitForString LF & "Enter <RETURN> to continue.", NEVER_TIME_OUT, rcAllowKeystrokes
'.StatusBar = ""
' Press VtEnter (Simulate pressing the Enter key).
'.TransmitTerminalKey rcVtEnterKey
' .StatusBar = "Waiting for Prompt: DO NOT TREAT OR SCHEDULE - MT REQUIRED! CALL X6769!"
' .WaitForString LF & " DO NOT TREAT OR SCHEDULE - MT REQUIRED! CALL X", NEVER_TIME_OUT, rcAllowKeystrokes
' .StatusBar = ""
' String omitted because it might change:
' .WaitForString "6769", NEVER_TIME_OUT, rcAllowKeystrokes
' .StatusBar = "Waiting for Prompt: DO NOT TREAT OR SCHEDULE - MT REQUIRED! CALL X6769!"
' .WaitForString "!", NEVER_TIME_OUT, rcAllowKeystrokes
' .StatusBar = ""
' Press VtEnter (Simulate pressing the Enter key).
'.TransmitTerminalKey rcVtEnterKey
.StatusBar = "Waiting for Prompt: ...OK? Yes//"
.WaitForString LF & " ...OK? Yes// ", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtEnter (Simulate pressing the Enter key).
.TransmitTerminalKey rcVtEnterKey
.StatusBar = "Waiting for Prompt: Date of Contact: MAR 10,2015//"
.WaitForString LF & "Date of Contact: ", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' String omitted because it might change:
' .WaitForString "MAR 10,2015", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = "Waiting for Prompt: Date of Contact: MAR 10,2015//"
.WaitForString "// ", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtEnter (Simulate pressing the Enter key).
.TransmitTerminalKey rcVtEnterKey
.StatusBar = "Waiting for Prompt: Brief Comment:"
.WaitForString LF & "Brief Comment: ", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press EditPaste (Insert the Clipboard contents at the cursor position).
' Reflection has recorded the record-time contents of the clipboard.
' If you want to use the playback-time contents of the clipboard,
' Uncomment the following line and delete the appropriate record-time data.
' .Paste
.Transmit "AGED DEBT RPT/FIS TERM"
.StatusBar = "Waiting for Prompt: Brief Comment: AGED DEBT RPT/FIS TERM"
.WaitForString "AGED DEBT RPT/FIS TERM", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtEnter (Simulate pressing the Enter key).
.TransmitTerminalKey rcVtEnterKey
.StatusBar = "Waiting for Prompt: Edit? NO//"
.WaitForString LF & " Edit? NO// ", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
.Transmit "Y"
.StatusBar = "Waiting for Prompt: Edit? NO// Y"
.WaitForString "Y", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtEnter (Simulate pressing the Enter key).
.TransmitTerminalKey rcVtEnterKey
.WaitForString ESC & "[3;1H", NEVER_TIME_OUT, rcAllowKeystrokes
.Transmit "ACCOUNT REVIEWED, TOP/DMC ACTIVE,DEBT IS OVER SIX YEARS, WRITE-OFF PACKET PREPARED AND SENT TO CFO, FISCAL TERMINATED ALL BILLS OVER 6 YEARS OLD"
.TransmitTerminalKey rcVtPF1Key
.Transmit "E"
.StatusBar = "Waiting for Prompt: Follow-up Date:"
.WaitForString LF & "Follow-up Date: ", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtEnter (Simulate pressing the Enter key).
.TransmitTerminalKey rcVtEnterKey
.StatusBar = "Waiting for Prompt: Is this OK? YES//"
.WaitForString LF & "Is this OK? YES// ", NEVER_TIME_OUT, rcAllowKeystrokes
.StatusBar = ""
' Press VtEnter (Simulate pressing the Enter key).
.TransmitTerminalKey rcVtEnterKey
' .WaitForString LF & "Select Account Management Option: ", NEVER_TIME_OUT, rcAllowKeystrokes
.Transmit "^DEBTOR COMMENT LOG" & CR
.StatusBar = "Waiting for Prompt: Select AR DEBTOR:"
.WaitForString LF & "Select AR DEBTOR: ", NEVER_TIME_OUT, rcAllowKeystrokes
Loop
End With
Exit Sub
ErrorHandler:
Session.MsgBox Err.description, vbExclamation + vbOKOnly
' Recording stopped at 13:22:44.84.
End Sub