Text dosyadan sırası belli satırları çekme

[Haluk]

Sayın @Haluk,

........
...

NOT: Sadece V1 hücresine yazılan değerlerden birisi txt dosyasının satır sayısından fazla ise hata döndürür. Döngüye girmeden txt dosyanın satır sayısını nasıl buluruz?

2 No'lu mesajdaki koda göre;

    MsgBox UBound(Split(strData, vbCrLf))

Veya;

Sub Test4()
    Const ForAppending = 8

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set MyFile = FSO.OpenTextFile(ThisWorkbook.Path & "\Deneme1.txt", ForAppending)

    MsgBox MyFile.Line - 1
End Sub

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Evet doğru sonuçlandırdı. Sadece öncekilere göre biraz daha geç oldu. Bir kaç deneme yapıp size döneyim.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
2 satırlık örnek önceki makro ile 4 sn son makro ile 677 sn
16 satırlık örnek önceki makro ile 14 sn son makro ile 652 sn sürüyor. (değerleri yuvarladım)
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Tüm arkadaşlara sınırsız yardımları ve emekleri için çok teşekkür ederim. Problemimi excelde geçici sayfa açarak çözümledim. 320.000 satırın üzerindeki veriden oluşan txt dosyasından, aranana uygun 2.500 ün üzerideki satırı 1 dakikanın altında seçip getirebiliyorum.
Öğrenmem için elinden geleni ortaya koyan muhteşem excel.web.tr ailesine tekrar teşekkür ederim. İyiki varsınız.
Saygılarımla