Txt Dosyasından Veri Alma A Sütununa Yazma

Sub TxtDosyasindanVeriAl()
    Dim dosyaYolu As String
    Dim satirVerisi As String
    Dim satirNo As Integer

    ' Dosya yolu - Bu yolu txt dosyanızın konumuna göre güncelleyin
    dosyaYolu = "C:yolveri.txt"

    ' Txt dosyasını aç
    Open dosyaYolu For Input As #1

    satirNo = 1

    ' Dosya sonuna kadar oku
    Do Until EOF(1)
  Line Input #1, satirVerisi

  ' Veriyi Excel'in A sütununa yaz
  Cells(satirNo, 1).Value = satirVerisi
  satirNo = satirNo + 1
    Loop

    ' Dosyayı kapat
    Close #1
End Sub