(29/10/2020, 00:24)atoykan yazdı:İşyerine gittiğimde denedikten sonra kodların yarayıp yaramadığını size aktarırım. Ürünkayıtform da barkod kısmına direk alcak değil bu şekilde ve teşşekürler.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.
Excel İle Barkod Okuyucu Ve Stok Kayıt Vba Programı
Konuyu Okuyanlar: 1 Ziyaretçi