Text dosyasından veri almak

[k0081]

Merhaba arkadaşlar;

aşağıda vermiş olduğum örnek dosyadaki verileri, excel tablosuna nasıl alabilirim?

ø ile başlayan ifadeler : B3 den itibaren
372 ile başlayan ifadeler: D3 ten itibaren
43 ile başlayan ifadeler : E3 ten itibaren..

( 0 ları tabloya almıyoruz.. )
yardımcı arkadaşa şimdiden teşekkürler.

Ekli dosyayı görüntüle ornek.txt

 

[Orion1]

Dosyanız ektedir.

Sub txtal59()
Dim a As String, deg, sat As Long, i As Long
Sheets("Sayfa1").Select
Range("B3:E" & Rows.Count).ClearContents
sat = 3
Open (ThisWorkbook.Path & "\ornek.txt") For Input As #1
Application.ScreenUpdating = False
Do While Not EOF(1)
    Line Input #1, a
    deg = Split(a, vbTab)
    Cells(sat, "B") = deg(0)
    Cells(sat, "D").Value = deg(2)
    Cells(sat, "E").Value = deg(3)
    sat = sat + 1
Loop
Close #1
Application.ScreenUpdating = True
End Sub

 

[k0081]

Hocam çok teşekkür ediyorum, Tamamdır.. elinize, Yüreğinize sağlık..