extra / excel

Sub MATCC()

'Extra Screen Object
Dim ExtraScreen As Object
'On Error GoTo ErrorThis
Set ExtraScreen = CreateObject("EXTRA.System").ActiveSession.Screen

'Excel Worksheet Object
Dim FinanceSheet As Worksheet
Set FinanceSheet = Workbooks("MFPCalculator.xls").Worksheets(1)
'Assumes named Workbook is open

ExtraScreen.SendKeys "<Home>WCAD<Enter>"
ExtraScreen.WaitHostQuiet (g_HostSettleTime)

'*** WCAD ***
FinanceSheet.Cells(5, 28).Value = ExtraScreen.Area(3, 2, 3, 37).Value     'NAME
FinanceSheet.Cells(8, 28).Value = ExtraScreen.Area(2, 22, 2, 27).Value    'QUEUE
FinanceSheet.Cells(10, 28).Value = ExtraScreen.Area(3, 43, 3, 55).Value   'BALANCE
FinanceSheet.Cells(12, 28).Value = ExtraScreen.Area(4, 43, 4, 55).Value   'PAST DUE
FinanceSheet.Cells(14, 28).Value = ExtraScreen.Area(5, 43, 5, 55).Value   'OVER LIMIT
FinanceSheet.Cells(16, 28).Value = ExtraScreen.Area(8, 43, 8, 55).Value   'STATEMENT DUE
FinanceSheet.Cells(18, 28).Value = ExtraScreen.Area(11, 39, 11, 41).Value 'DAYS PAST DUE
FinanceSheet.Cells(20, 28).Value = ExtraScreen.Area(12, 39, 12, 39).Value 'BROKEN PROMISES
FinanceSheet.Cells(22, 28).Value = ExtraScreen.Area(13, 39, 13, 39).Value 'NSF PAYMENTS

'***IAPS***
ExtraScreen.SendKeys "<Home>IAPS<Enter>"
ExtraScreen.WaitHostQuiet (g_HostSettleTime)

FinanceSheet.Cells(6, 31).Value = ExtraScreen.Area(3, 53, 3, 61).Value    'MINIMUM PAYMENT
FinanceSheet.Cells(8, 31).Value = ExtraScreen.Area(4, 73, 4, 80).Value    'DUE DATE
FinanceSheet.Cells(10, 31).Value = ExtraScreen.Area(4, 15, 4, 16).Value   'BILLING DAYS
FinanceSheet.Cells(12, 31).Value = ExtraScreen.Area(3, 73, 3, 80).Value   'STATEMENT DATE

FinanceSheet.Cells(15, 30).Value = ExtraScreen.Area(15, 2, 15, 21).Value  'TYPE 1
FinanceSheet.Cells(15, 31).Value = ExtraScreen.Area(17, 2, 17, 13).Value  'ADB 1
FinanceSheet.Cells(15, 32).Value = ExtraScreen.Area(17, 29, 17, 33).Value 'APR 1

FinanceSheet.Cells(18, 30).Value = ExtraScreen.Area(19, 2, 19, 21).Value  'TYPE 2
FinanceSheet.Cells(18, 31).Value = ExtraScreen.Area(21, 2, 21, 13).Value  'ADB 2
FinanceSheet.Cells(18, 32).Value = ExtraScreen.Area(21, 29, 21, 33).Value 'APR 2

'Grab more info if IAPS <<MORE>> exists, send f8 and recapture
If ExtraScreen.Area(15, 50, 15, 53) = "MORE" Then
    ExtraScreen.MoveTo 15, 2
    ExtraScreen.WaitHostQuiet (g_HostSettleTime)
    ExtraScreen.SendKeys "<PF8>"
    ExtraScreen.WaitHostQuiet (g_HostSettleTime)
    
    'Recapture
    FinanceSheet.Cells(21, 30).Value = ExtraScreen.Area(15, 2, 15, 21).Value  'TYPE 3
    FinanceSheet.Cells(21, 31).Value = ExtraScreen.Area(17, 2, 17, 13).Value  'ADB 3
    FinanceSheet.Cells(21, 32).Value = ExtraScreen.Area(17, 29, 17, 33).Value 'APR 3

    FinanceSheet.Cells(24, 30).Value = ExtraScreen.Area(19, 2, 19, 21).Value  'TYPE 4
    FinanceSheet.Cells(24, 31).Value = ExtraScreen.Area(21, 2, 21, 13).Value  'ADB 4
    FinanceSheet.Cells(24, 32).Value = ExtraScreen.Area(21, 29, 21, 33).Value 'APR 4

End If

'Command back to WCAD screen
        ExtraScreen.WaitHostQuiet (g_HostSettleTime)
        ExtraScreen.SendKeys "<Home>WCAD<Enter>"

End Sub