txt'den Excel'e Tek satırlık Veriyi Aktarma

[cimcoz]

Merhabalar,

Yeri sabit version_info.txt adlı bir .txt dosyam var ve her gün aynı isimde yenisi geliyor.
Dosyada tek bir satır yazı var.
Örnek olarak dosya içeriği;
82,84,Publish_ITB_20220412
şeklindedir.
Tek satır ve her sayı veya kelime aralarında virgül bulunuyor. Virgül sayısı maksimum 10-12 tane olabiliyor.
Yani tüm virgülle ayrılmışları excel'deki satır ve hücrelere kopyalayacak bir makro ya da fonksiyona ihtiyacım var.
Ertesi günü okunacak aynı dosya ismindeki (version_info.txt) veriler excel'deki ilk boş satıra kopyalanacak.
Yani her veri alt alta makro çalıştırıldığında eklenmiş olacak.

Bu tip bir makro ve/veya fonksiyon konusunda yardımlarınız rica ederim.

Saygılarımla,

 

[EmrExcel16]

Merhaba , deneyiniz..

Sub Test()
  
    Dim yol, r, c
  
    yol = "C:\\Emr.txt" ' Yolu belirle      
    Open yol For Input As #1
  
    While EOF(1) = False
      
        r = Range("A" & Rows.Count).End(3).Row + 1      
        Line Input #1, txtMetin
      
        txtMetin = Split(txtMetin, ",")      
        For c = 0 To UBound(txtMetin)      
            Cells(r, c + 1) = txtMetin(c)          
        Next
      
    Wend  
    Close #1

End Sub

 

[cimcoz]

Sayın EmrExcel16,


Çok teşekkür ederim. Ellerinize sağlık..

 

[EmrExcel16]

Sayın EmrExcel16,


Çok teşekkür ederim. Ellerinize sağlık..

Rica ederim , iyi çalışmalar.