Sub get_stat_comp1()
Dim y As Long
Dim minim As Long
Dim maxs As Long
Dim h As Long
Dim jj As Long
Dim jk As Long
Dim arr                ''
Dim filename$, sqlcon, sqlrs, sqltxt
Dim i, x, s1, j
''''''''''''''''''''
With ThisWorkbook.Sheets("Статистика").Range("a:m")
.Cells.ClearContents
End With
arr = Array()
filename$ = ThisWorkbook.Path & "\" & "etalon.csv"
arr = csv2arr2(filename$, ",")
''''''''''''''''''''''''''''''''''''''''''''
Dim j1, j1a, j2, j2a
y = 0
j1 = UBound(arr, 1)
j2 = UBound(arr, 2)
j1a = 0
Do While j1a < j1
j1a = j1a + 1
j2a = 0
Debug.Print
Debug.Print j1a;
y = y + 1
Do While j2a < j2
j2a = j2a + 1
ThisWorkbook.Sheets("Статистика").Cells(j1a + 1, j2a) = arr(j1a, j2a)
arr(j1a, j2a) = Val(arr(j1a, j2a))
Loop
Loop
y = y + 2
'''''''''''''''''''''''''''''''''''
If Not IsArray(arr) Then
MsgBox "!!!", vbCritical, "Ошибка"
Exit Sub
End If
''''''''''''''''''''
Set sqlcon = CreateObject("ADODB.Connection")
Set sqlrs = CreateObject("ADODB.Recordset")
Set sqltxt = CreateObject("ADODB.Command")

'''''''''''''''
sqlcon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
sqlcon.Open "d:\abat\record.mdb"
''sqlcon.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE=stat_db00A;UID=root; PWD=; OPTION=3;"
''sqlcon.Open

sqltxt.ActiveConnection = sqlcon
sqltxt.CommandType = 1
''''''''''''''''''''''''''''''''''''''''''
For i = 2 To j1
s1 = ""
s1 = s1 & "select * from table1 "
s1 = s1 & "  where (0"
''''''''''''''''''''''''''''
j2a = 1
Do While j2a < j2 - 1
j2a = j2a + 1
s1 = s1 & " +(c" & Trim(j2a - 1) & "=" & arr(i, j2a) & ")"
'Debug.Print s1
Loop
''''''''''''''''''''''
s1 = s1 & ")<=" & -arr(i, j2)
Debug.Print
Debug.Print s1;
sqltxt.CommandText = s1
sqlrs.Open sqltxt
''''''''''''''''''''''''''
'Debug.Print sqlrs.fields.Count
j = 0
Do While j < j2
j = j + 1
'Debug.Print j, sqlrs.fields(j - 1).Name
ThisWorkbook.Sheets("Статистика").Rows(1).Columns(j) = sqlrs.fields(j - 1).Name
Loop
''''''''''''''''''''''''''''
Do While sqlrs.EOF = False
'Debug.Print
'Debug.Print "mm"
j = 1
y = y + 1
h = 0
Do While j < j2 - 1
j = j + 1
Debug.Print sqlrs.fields(j - 1).Value, arr(i, j)
If Int(sqlrs.fields(j - 1).Value) = arr(i, j) Then
h = h + 1
ThisWorkbook.Sheets("Статистика").Rows(y).Columns(j) = -sqlrs.fields(j - 1)

Else
ThisWorkbook.Sheets("Статистика").Rows(y).Columns(j) = sqlrs.fields(j - 1)


End If
Loop
ThisWorkbook.Sheets("Статистика").Rows(y).Columns(j2) = sqlrs.fields(j2 - 1)
ThisWorkbook.Sheets("Статистика").Rows(y).Columns(j2 + 1) = i - 1
ThisWorkbook.Sheets("Статистика").Rows(y).Columns(j2 + 2) = arr(i, j2)
ThisWorkbook.Sheets("Статистика").Rows(y).Columns(j2 + 3) = h


ThisWorkbook.Sheets("Статистика").Rows(1).Columns(j2 + 1) = "стр"
ThisWorkbook.Sheets("Статистика").Rows(1).Columns(j2 + 2) = "миним"
ThisWorkbook.Sheets("Статистика").Rows(1).Columns(j2 + 3) = "колич"
ThisWorkbook.Sheets("Статистика").Rows(2).Columns(j2 + 3) = "отрицательные -совпадают"


'Debug.Print j
DoEvents
sqlrs.MoveNext
Loop
sqlrs.Close
'sqlcon.Close

Next i
'MsgBox "Найдено " & y - 1 & " строк."
End Sub
Function csv2arr2(Optional ByVal filename$ = "", _
      Optional ByVal ColumnsSeparator$ = ";", _
      Optional ByVal RowsSeparator$ = vbNewLine) As Variant

Dim fso  ''
Dim ts
Dim txt, i, j, tmpArr1, tmpArr2, RowsCount, ColumnsCount
''On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.OpenTextFile(filename$, 1, True)
txt = ts.ReadAll
ts.Close
Set ts = Nothing
Set fso = Nothing

txt = Trim(txt): Err.Clear
If txt Like "*" & RowsSeparator$ Then
txt = Left(txt, Len(txt) - Len(RowsSeparator$))
End If

tmpArr1 = Split(txt, RowsSeparator$)
RowsCount = UBound(tmpArr1) + 1
ColumnsCount = UBound(Split(tmpArr1(0), ColumnsSeparator$)) + 1

If Err.Number > 0 Then
MsgBox "Ошибка", vbCritical
End
End If
ReDim arr(1 To RowsCount, 1 To ColumnsCount)

For i = LBound(tmpArr1) To UBound(tmpArr1)
'i = i + 1
tmpArr2 = Split(Trim(tmpArr1(i)), ColumnsSeparator$)
For j = 1 To ColumnsCount
arr(i + 1, j) = tmpArr2(j - 1)
Next j
Next i
csv2arr2 = arr
End Function