Dim EA As Excel.Application, WB As Excel.WorkBook
Set EA = CreateObject("Excel.Application")
EA.Visible = True
Set WB = EA.WorkBooks.OpenText(FileName:="F:\on123.txt", Origin:= 1 , StartRow _
        := 1 , DataType:= 1 , TextQualifier:= 1 , _
        ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array( 1 ,  1 ), Array( 2 ,  1 ), Array _
        ( 3 ,  1 )))
'тут мы имеем в переменной WB ссылку на нашу книгу, с которой можем делать что угодно
'Сохранить
.SaveAs "F:\on123.xls"
'Закрыть
WB.Close
Set WB=Nothing
Set EA = Nothing