Txt dosyasından ilgili satırı alma

[Huseyinkis]

Sub TXTAL()
Dim sh As Worksheet, sat As Long, i As Integer
Set sh = Sheets("TXT_OKU")
sh.Range("A2:IV65536").ClearContents
sat = 2
Open "C:\Users\Excel\Desktop\Yeni Klasör_59\ornek.txt" For Input As #1
Do While Not EOF(1)
    Input #1, a
    sh.Cells(sat, "A").Value = a
    For i = 1 To Len(a)
        sh.Cells(sat, i + 1).Value = Mid(a, i, 1)
    Next
    sat = sat + 1
Loop
Close #1
MsgBox "Txt Dosyasından veriler alındı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

Yukarıdaki kodlar txt dosyasındaki verileri hücrelere aktarım yapıyor. bu kodlara txt dosyasından bütün satırları değil sadece benim belirteceğim satırdaki bilgileri getir şeklinde düzenleyebilirmisiniz. Şimdiden teşekkürler.

İyi Çalışmalar.

 

[Mehmet Şahin]

Merhaba,
kod txt dosyasının 5. satırını almak için düzenlenmiştir. Kolay gelsin.

Sub TXTAL()
Dim sh As Worksheet, sat As Long, i As Integer
Set sh = Sheets("TXT_OKU")
sh.Range("A2:IV65536").ClearContents
sat = 2
x=0
Open "C:\Users\Excel\Desktop\Yeni Klasör_59\ornek.txt" For Input As #1
Do While Not EOF(1)
  x=x+1
    Input #1, a
   if x=5 then '5. satırı almak için    
    sh.Cells(sat, "A").Value = a
    For i = 1 To Len(a)
        sh.Cells(sat, i + 1).Value = Mid(a, i, 1)
    Next
    sat = sat + 1
   end if    
Loop
Close #1
MsgBox "Txt Dosyasından veriler alındı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[Huseyinkis]

Yardımlarınız için teşekkürler.

 

[Mehmet Şahin]

Rica ederim, iyi çalışmalar.