text import son 10 kayıt

[aykiri]

Merhaba arkadaşlar

excelde herhangi bir sayfada import wizard kullanarak exteki text dosyasını import edebiliyorum fakat tüm kayıtlar ekrana geliyor

benim istediğim sadece son 10 kayıtın ekrana gelmesi
bu konuda yardımlarınız için şimdiden teşekkürler.

 

[halit3]

Merhaba arkadaşlar

excelde herhangi bir sayfada import wizard kullanarak exteki text dosyasını import edebiliyorum fakat tüm kayıtlar ekrana geliyor

benim istediğim sadece son 10 kayıtın ekrana gelmesi
bu konuda yardımlarınız için şimdiden teşekkürler.

bu kodu denermisiniz.

Sub Aktar()
Columns("A:F").ClearContents
Dim veri1, veri2 As String
Dim i, j As Integer
dosya_yeri = "C:\1.txt"

Open dosya_yeri For Input As #1
Do While Not EOF(1)
Line Input #1, veri1
i = i + 1
Loop
Close #1
Open dosya_yeri For Input As #1
For j = 1 To i
Line Input #1, veri2
If j > i - 10 Then
sat = sat + 1
Cells(sat, 1).Value = Mid(veri2, 4, 10)
Cells(sat, 2).Value = Mid(veri2, 15, 8)
Cells(sat, 3).Value = Mid(veri2, 24, 11)
Cells(sat, 4).Value = Mid(veri2, 36, 2)
Cells(sat, 5).Value = Mid(veri2, 39, 14)
Cells(sat, 6).Value = Mid(veri2, 79, 7)
End If
Next j
Close #1
MsgBox "Bitti", vbInformation, "Bilgi"
End Sub

 

[aykiri]

sayın halit3.

verdiğiniz kodları uyguladım çalıştı
teşekkür ederim yardımlarınız için

 

[halit3]

sayın halit3.

verdiğiniz kodları uyguladım çalıştı
teşekkür ederim yardımlarınız için

iyi çalışmalar