p_ = Dir("O:\_Николаевский\Горбачев\Отчет\Бисквит_ОСВ_рубли\*_7777.txt")
With ActiveSheet.QueryTables.Add(Connection:= _
         "TEXT;O:\_Николаевский\Горбачев\Отчет\Бисквит_ОСВ_рубли\" & p_, _
         Destination:=Range("$A$1"))
         .Name = Left(p_, Len(p_) - 4)
         .FieldNames = True
         .RowNumbers = False
         .FillAdjacentFormulas = False
         .PreserveFormatting = True
         .RefreshOnFileOpen = False
         .RefreshStyle = xlOverwriteCells
         .SavePassword = False
         .SaveData = True
         .AdjustColumnWidth = True
         .RefreshPeriod = 0
         .TextFilePromptOnRefresh = False
         .TextFilePlatform = 866
         .TextFileStartRow = 1
         .TextFileParseType = xlFixedWidth
         .TextFileTextQualifier = xlTextQualifierDoubleQuote
         .TextFileConsecutiveDelimiter = False
         .TextFileTabDelimiter = True
         .TextFileSemicolonDelimiter = False
         .TextFileCommaDelimiter = False
         .TextFileSpaceDelimiter = False
         .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
         .TextFileFixedColumnWidths = Array(26, 5, 18, 20, 20, 20, 40, 11)
         .TextFileTrailingMinusNumbers = True
         .Refresh BackgroundQuery:=False
     End With