txt dosyasındaki satır sayısı

[k0081]

Merhaba arkadaşlar;
Ekli dosyayı görüntüle civata1.txt

örnek dosyadaki satır sayısını, bir değişkene nasıl atayabilirim..? bu örnekte olması gereken sayı 8 dir. (quantity kısmından itibaren saydıracağız..)

yardımcı arkadaşa şimdiden teşekkürler..

 

[Mehmet Şahin]

Merhaba,
aşağıdaki fonksiyon kodunu bir modüle kopyalayıp değişkene atayabilirsiniz.
Kolay gelsin.

Public Function sayi_al()
dosya = ThisWorkbook.Path & "\civata1.txt"
If dosya = False Then Exit Function
Open dosya For Input Access Read As #1
   While Not EOF(1)
   x = x + 1
   Line Input #1, st
   Wend
Close #1
sayi_al = x - 6
End Function

 

[k0081]

Merhaba,
aşağıdaki fonksiyon kodunu bir modüle kopyalayıp değişkene atayabilirsiniz.
Kolay gelsin.

Public Function sayi_al()
dosya = ThisWorkbook.Path & "\civata1.txt"
If dosya = False Then Exit Function
Open dosya For Input Access Read As #1
   While Not EOF(1)
   x = x + 1
   Line Input #1, st
   Wend
Close #1
sayi_al = x - 6
End Function

hocam cevap için teşekkürler.., göndermiş olduğunuz kodu tablo içine entegre edemedim.. dosya= ile başlayan satırlar mevcut.. open dosya kısmı felan... dosyayı açan kod bende mevcut hocam.. bu açılış esnasında satırları saysa yeterli... tekrar teşekkürler..