txt veriyi excel sayfasına aktarma

[nur_u_allah]

Hocam eklediğim eklentide resimde ne gerekli olğunu yazdım.
Dosya seç penceresinden yine dosya seçerek işlem yapmak istiyoruz.
Sadece eklenen not defterindeki bilgilerin aktarılması lazım.
Bu excel ile bakarak baya uğraştıma ama sonuç alamadım.
Saygılarımla

 

[veyselemre]

Aşağıdaki kodları kullanabilirsiniz.

Sub TXTDENVERIAL()
    ChDir ThisWorkbook.Path
    dosyaadi = Application.GetOpenFilename("Text Files (*.txt), *.txt", Title:="Dosya Seçiniz")
    If dosyaadi = False Then
        MsgBox "Dosya seçilmedi", vbInformation, "Nur_u_allah"
        Exit Sub
    End If
    [a7:h65536].ClearContents
    Open dosyaadi For Input As #1
    a = 5
    Do While Not EOF(1)
        a = a + 1
        Line Input #1, VERi
        If a <> 6 Then Range(Cells(a, 1), Cells(a, 4)).Value = Split(VERi, "@")
    Loop
    Close #1
End Sub

 

[nur_u_allah]

Yardımlarınız için teşekkür ederim Saygılarımla