Your objective can be acheived but you're anot clear which part you need help.
1. Import of Text File to Excel
Sample Code:
Workbooks.OpenText FileName:=Trim(fpname), Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(31, 1), Array(72, 4), Array(83, 1), Array(92, 4), Array(101, 4), Array(115, 1), _
Array(128, 1), Array(136, 1), Array(142, 1), Array(149, 2), Array(171, 4), Array(179, 2), _
Array(201, 4), Array(209, 1), Array(217, 1), Array(243, 1), Array(254, 1), Array(265, 1), _
Array(276, 1), Array(287, 1), Array(298, 9))
2. Rename Sheet Name to Yesterday's Date
Dim RptDt As Variant
RptDt = Format(Date - 1, "mmddyy"

Sheet1.Name = RptDt
3. Summary Report
I would suggest you to use Pivot Table Report
Hope I could be of Help... "Whereever you go there are people who need you for what you can do..."