Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
    ("d:\1\file.xlsx")

' i - row
' j - column
i = 1
Dim array1(99,7), i,j
Do Until objExcel.Cells(i,1).Value = ""
 For j = 1 To 7
        If IsNull( objExcel.Cells(i, j).Value ) Then
   array1( i, j ) = ""
        Else
            array1( i, j ) = objExcel.Cells(i, j).Value
        End If
 Next
    i = i + 1
Loop
objExcel.Quit
'  Output of an array's element 
wscript.echo array1(2,7)

1    3345632           261    4315875    1    æåâ     3400    àìòã            UPH28
2    3345632           261    4536033    1    éç'     3400    àìòã             UPH28
1    3345639  2400    311     52365      2    éç'     3400    ãîéèøé          UPH28
2    3345639  2400    311     56754      2    éç'     3400    ãîéèøé          UPH28
3    3345639  2400    311     3363801    2    éç'     3400    ãîéèøé          UPH28
4    3345639  2400    311     4315875    1    æåâ     3400    ãîéèøé          UPH28
1    3345742           261    3061264    1    éç'      3400    àìëñ            UPH28
2    3345742           261    3276995    7    ì'        3400    àìëñ           UPH28
3    3345742           261    4315875    1    æåâ      3400    àìëñ            UPH28
4    3345742           261    5002031    1    éç'      3400     àìëñ            UPH28
5    3345742           261    5002033    1    éç'      3400     àìëñ            UPH28

Option Explicit

Dim WshShell, oRegExp, sLine, LastLine, WshExec, Number, n7, n4
Dim arr7(): redim arr7(0)
Dim arr4(): redim arr4(0)

' creating link to an object
Set WshShell = WScript.CreateObject("WScript.Shell")

' Use a regular expression
set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.IgnoreCase = True

n4 = -1
n7 = -1

' Clear Clipboard
CopyToClipBoard ""
LastLine = ""

' Cycle 
Do
    sLine = GetFromClipBoard()
    if (sLine <> LastLine) and (not isMatchInArray(sLine, arr7)) then
        if TestPattern (sLine, "^[0-9]{4,4}$") then
            n4 = n4 + 1
            redim preserve arr4(n4)
            arr4(n4) = sLine
        elseif TestPattern (sLine, "^[0-9]{7,7}$") then 
            n7 = n7 + 1
            redim preserve arr7(n7)
            arr7(n7) = sLine
        else
            Exit Do
        end if
        LastLine = sLine
    End if
    WScript.Sleep 800
Loop



WshShell.Run "MainProgram.exe", 1
WScript.Sleep 6500

for i = 1 to 2 : WshShell.SendKeys "%+"         : Next : WScript.Sleep 100

For each Number in arr7
    CopyToClipBoard Number
    WScript.Sleep 100

Dim i, a, q


'==========
'Program's body
'==========


Next

Dim s, oShell
for each Number in arr7      
s = s & Number & vbCrLf  
next

set oShell = WScript.CreateObject ("WScript.Shell")

oShell.Popup s, 6000




Function isMatchInArray(exNumber, arr)
    isMatchInArray = false
    For each Number in arr
        if exNumber = Number then isMatchInArray = true: exit For
    Next
End Function

Sub CopyToClipBoard(Data)
    Dim oShell: set oShell = CreateObject("WScript.Shell")
    Dim mshta: mshta = oShell.ExpandEnvironmentStrings("%windir%") & "\system32\mshta.exe"
    oShell.Run mshta & " ""vbscript:document.parentwindow.clipboardData.SetData(""text"",replace(""" & replace(Data," ","$#@!~%") & """,""$#@!~%"",chr(32)))&close()""",2,true
End Sub

' Checking the variable for matching a regular expression
Function TestPattern(Variable, Pattern)
    oRegExp.Pattern = Pattern
    TestPattern = CBool(oRegExp.Test(Variable))
End Function

Function GetFromClipBoard()
    GetFromClipBoard = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
End Function