Option Explicit
Sub выбор_файла_импорт()
Dim myFile As String 'переменная для пути к файлу
myFile = Application.GetOpenFilename("Text files(*.txt),*.txt", 2, "Выбрать текстовые", , False) 'открывает диалог выбора
If VarType(myFile) = vbBoolean Then  'если была нажата кнопка отмены - выход из процедуры
      
        Exit Sub
    End If
    Call Импорт_TXT_файлов(myFile)
End Sub
Sub Импорт_TXT_файлов(myFile As String)  Dim base1s As Worksheet
  Set base1s = ThisWorkbook.Worksheets("База1с")
  base1s.Cells.Clear
  With base1s.QueryTables.Add(Connection:= _
        "url;myFile" _
        , Destination:=Range("$A$2"))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1251
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierNone
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
        2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

=СЖПРОБЕЛЫ(ПСТР(A8;ПОИСК(число;A8;ПОИСК("дог";A8));ПОИСК("от";A8;ПОИСК("дог";A8))-ПОИСК(число;A8;ПОИСК("дог";A8))))