Private Sub btnLoadFile_Click()

  Dim file As String, str As String, rowCnt As Integer
  Dim xlsConn As ADODB.Connection, xlsList As String, xlsRs As ADODB.Recordset
  Dim FileId As Integer, f As ADODB.Field, sName As String
  
  file = GetSetting(CurrentProject.Name, Me.Name, "btnLoadFile_LastFile")
  
  file = Trim(SelectTxtFile(file))
  
  If file = "" Then
    MsgBox "Ôàéë íå óêàçàí.", Buttons:=vbOKOnly + vbInformation, Title:=Me.Name
    Exit Sub
  End If
  
  If (InStrRev(file, ".") = 0) Or (InStrRev(file, ".") <= InStrRev(file, "\")) Then
    file = file + ".xlsx"
  End If
  
  If Dir(file) = "" Then
    MsgBox "&#212;&#224;&#233;&#235; [" + file + "] &#237;&#229; &#241;&#243;&#249;&#229;&#241;&#242;&#226;&#243;&#229;&#242;.", Buttons:=vbOKOnly + vbExclamation, Title:=Me.Name
    Exit Sub
  End If
  
  DoCmd.Hourglass True
  
  SaveSetting CurrentProject.Name, Me.Name, "btnLoadFile_LastFile", file
  
  sName = ""
  
  On Error GoTo Err_Click
  
  Set xlsConn = New ADODB.Connection
  
  With xlsConn
  
    .Provider = "MSDASQL"
    .ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                        "DBQ=" + file + ";" & _
                        "ReadOnly=TRUE;"

    .Open
    
    xlsList = ""
    
    With .OpenSchema(adSchemaTables)
    
        While Not .EOF And (xlsList = "")
          
            str = .Fields("TABLE_NAME").value
            
            With xlsConn.Execute("SELECT * FROM [" + str + "] where 1 = 2", Options:=adCmdText)
              
              If .Fields(0).Name = "&#207;&#224;&#247;&#234;&#224;" Then xlsList = str
              
              .Close
            
            End With
            
            .MoveNext
          
        Wend
        
    End With
    
    If xlsList = "" Then
    
        MsgBox "&#203;&#232;&#241;&#242; &#241; &#228;&#224;&#237;&#237;&#251;&#236;&#232; &#226; &#244;&#224;&#233;&#235;&#229; [" + file + "] &#237;&#229; &#237;&#224;&#233;&#228;&#229;&#237;. &#203;&#232;&#241;&#242; &#232;&#249;&#229;&#242;&#241;&#255; &#239;&#238; &#231;&#224;&#227;&#238;&#235;&#238;&#226;&#234;&#243; &#241;&#242;&#238;&#235;&#225;&#246;&#224; [&#207;&#224;&#247;&#234;&#224;].", Buttons:=vbOKOnly + vbExclamation, Title:=Me.Name
    
    Else
    
        Set xlsRs = .Execute("SELECT * FROM [" + xlsList + "] where [&#205;&#238;&#236;&#229;&#240; &#228;&#238;&#234;&#243;&#236;&#229;&#237;&#242;&#224;] is not null and [&#205;&#238;&#236;&#229;&#240; &#228;&#238;&#234;&#243;&#236;&#229;&#237;&#242;&#224;] <> ''", Options:=adCmdText + adAsyncFetch)
        
        rowCnt = 0
        
        With New ADODB.Command
          
          .CommandText = "Finances.accTicketsRC_FileId"
          .CommandType = adCmdStoredProc
          .CommandTimeout = 120
          .NamedParameters = True
          .ActiveConnection = CurrentProject.Connection
          .Parameters.Append .CreateParameter("Return", adInteger, adParamReturnValue)
          .Parameters.Append .CreateParameter("@File", adVarWChar, adParamInput, 512, file)
          .Parameters.Append .CreateParameter("@Id", adInteger, adParamOutput)
          .Execute Options:=adExecuteNoRecords
          
          FileId = .Parameters("@Id")
          
        End With
        
        With New ADODB.Recordset
          .Open Source:="select top(0) * from Finances.TicketsRC_ExcelFileLines" _
                 , ActiveConnection:=CurrentProject.Connection _
                 , CursorType:=adOpenKeyset _
                 , LockType:=adLockBatchOptimistic _
                 , Options:=adCmdText
        
          While Not xlsRs.EOF
            
            .AddNew
            rowCnt = rowCnt + 1
            
            .Fields("FileId") = FileId
            
            For Each f In xlsRs.Fields
              sName = f.Name
              .Fields(sName) = f.value
            Next
            sName = ""
            
            xlsRs.MoveNext
          
          Wend
          
          .UpdateBatch
          .Close
        
        End With

        xlsRs.Close
        
        DoCmd.Hourglass False
    
        MsgBox "&#196;&#224;&#237;&#237;&#251;&#229; &#231;&#224;&#227;&#240;&#243;&#230;&#229;&#237;&#251; &#232;&#231; [" + file + "]. &#194;&#241;&#229;&#227;&#238; &#241;&#242;&#240;&#238;&#234;: " + CStr(rowCnt) + ".", Buttons:=vbOKOnly, Title:=Me.Name
        
        btnShowFiles_Click
        
        'Hold SHIFT and CTRL, then press the DOWN Arrow to Expand all SubDatasheets
        SendKeys "+^({DOWN})"
        
    End If
    
    Set xlsRs = Nothing
  
  End With
  
  Set xlsConn = Nothing
  
  DoCmd.Hourglass False
  
Exit Sub

Err_Click:
    
    Set xlsRs = Nothing
    Set xlsConn = Nothing
    
    DoCmd.Hourglass False
    If sName <> "" Then sName = vbCrLf + " &#200;&#236;&#255; &#234;&#238;&#235;&#238;&#237;&#234;&#232;: [" + sName + "]"
    MsgBox Error_Descriptions.Translate(err.description) + sName, Title:=Me.Name

End Sub

Private Sub btnLoadFileTxt_Click()