Sub imp_brcd()



Dim x As Double, txt As String



  Open "C:\Users\xxx\Desktop\brcd.txt" For Input As #1 'brcd.txt barkod dosyanızın adı ve dosya yolu ile güncelleyin



    x = 0



    Do While Not EOF(1)



    Line Input #1, txt



    Cells(1, 1).Offset(x, 0) = txt  ' A1 hücresinden itibaren eklemeye başlar isterseniz değiştirin



    x = x + 1



    Loop



  

  Close #1



End Sub

kodlarda yer alan brcd.txt barkod dosyanız için benim uydurduğum bir ad siz dosya ismini kendi dosya isminiz ile değiştirin ve "C:\Users\xxx\Desktop\brcd.txt" dosya yolunu bilgisayarınızda kayıtlı olduğu yol olarak güncelleyin. Arzu ederseniz bir buton ekleyerek bu kodu ona atayabilirsiniz verinizi çekip excele işler.