Wordpad den Excele Veri Aktarma

[eeozbek]

T20070611 Ahmet Mıcır Ankara
A20060511 Berna Keleş Mersin
...
...
...

Şeklinde elimde bir wordpad dosyası var.Her bir satır için ilk 1 Karakteri Excel de 1.sütuna, daha sonraki 4 karakteri 2.sütüna, daha sonraki 2 karakteri 3. sütuna vb. yazdırmak istiyorum.Bunu sağlayacak makro konusunda yardım ederseniz sevinirim.Teşekkürler

 

[omerceri]

.txt ve .xls dosyaları aynı klasörde olursa
.xls dosyasına aşağıdaki kodu kopyalayın
Sub Al()

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & ThisWorkbook.Path & "\m.txt", Destination _
:=Range("A1"))
.Name = "m_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1254
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 9)
.TextFileFixedColumnWidths = Array(1, 4, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Ben .txt dosyasının m.txt verdim. Sizin dosya adınıza göre kodları değiştirin