Set REDACTED2 = CreateObject("REDACTED3.REDACTED2")
Set REDACTED2 = CreateObject("REDACTED3.REDACTED2")
Set REDACTED1 = CreateObject("REDACTED3.REDACTED1")
Set REDACTED2 = CreateObject("REDACTED3.REDACTED2")
autECLConnList.Refresh
REDACTED2Obj.SetConnectionByHandle (REDACTED3 (1).Handle)
REDACTED1.SetConnectionByHandle (REDACTED3 (1).Handle)
REDACTED2.SetConnectionByHandle (REDACTED3 (1).Handle)
Dim i As Long
Dim xlsheet As Excel.Worksheet
Set xlsheet = Worksheets("INPUT")
For i = 2 To xlsheet.Range("A65536").End(xlUp).Row
REDACTED2.SetText "REDACTED4", 1, 2
REDACTED2.SetText Format(xlsheet.Cells(i, 1)), 1, 11
REDACTED2.SendKeys "[enter]"
xlsheet.Cells(i, 3) = REDACTED2.GetText(7, 2, 79)
xlsheet.Cells(i, 4) = REDACTED2.GetText(8, 2, 79)
xlsheet.Cells(i, 5) = REDACTED2.GetText(9, 2, 79)
xlsheet.Cells(i, 6) = REDACTED2.GetText(10, 2, 79)
xlsheet.Cells(i, 7) = REDACTED2.GetText(11, 2, 79)
xlsheet.Cells(i, 8) = REDACTED2.GetText(12, 2, 79)
xlsheet.Cells(i, 9) = REDACTED2.GetText(13, 2, 79)
' end reference cell
xlsheet.Cells(i, 26) = REDACTED2.GetText(14, 75, 4)
If xlsheet.Cells(i, 26).Value <> "MORE" Then Exit Sub
REDACTED2.SendKeys "[PF8]"
Next I