Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
'

'
     With ActiveSheet.QueryTables.Add(Connection:= _
         "TEXT;O:\_Íèêîëàåâñêèé\Ãîðáà÷åâ\Îò÷åò\Áèñêâèò_ÎÑÂ_ðóáëè\31082015_7777.txt", _
         Destination:=Range("$A$1"))
         .Name = "31082015_7777"
         .FieldNames = True
         .RowNumbers = False
         .FillAdjacentFormulas = False
         .PreserveFormatting = True
         .RefreshOnFileOpen = False
         .RefreshStyle = xlInsertDeleteCells
         .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
End Sub