Çözüldü Text dosyasından veri alma

[ÖmerBey]

Arkadaşlar text dosyasından veri almak istiyorum
İstediğim şey şu ki textteki verilerin tamamı sadece A sütununa yerleşsin ve text dosyasındaki satırlarda atlama yapmadan a sütünunun satırlarına yazılsın
Yani text dosyasında 1. satırın tamamı excel A1 e; 5. satır A5 e kaydedilsin bunun için şu kodu kullanıyorum

Sub VeriAl()

Dim Satir As Long
Range("A:A").ClearContents
ChDir ("C:\")
dosya = Application.GetOpenFilename(FileFilter:="Text dosyaları(*.txt),(*txt)", Title:="Dosyadan veri al")

If dosya = False Then Exit Sub
Open dosya For Input As #1
Do While Not EOF(1)
Input #1, Kayit
If Kayit <> Empty Then
Satir = Satir + 1
Cells(Satir, "A") = Kayit
End If
Loop
Close #1
End Sub

Ancak bu kod bazılarında işe yarıyor ama bazılarında da tek satırı 3-4 hücreye birden kaydediyor.
İsteğimi gerçekleştirebilmek için kodu nasıl değiştirmem gerekiyor. Yardımcı olabilir misiniz?
Yardımlarınız için şimdiden teşekkürler...

 

[Zeki Gürsoy]

"Input #1" yerine "Line Input #1" olarak deneyin.

 

[ÖmerBey]

teşekkürler yardımınız için