Application.ScreenUpdating = False
Sheets('all').Range('A2:E30').ClearContents
Workbooks.OpenText Filename:='c:\main.txt', Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=True, OtherChar:=';', FieldInfo:= _
Array(Array(1, 2), Array(2, 2), Array(3, 4), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1))
With Workbooks('main.txt')
.ActiveSheet.Cells(1, 1).CurrentRegion.EntireColumn.AutoFit
.CurrentRegion.Copy Destination:=Windows('MP.xls').Sheets('datas').Cells(1, 1)
.Close savechanges:=False
End With