VBA 二维码、条形码的批量生成与识别技术

ivccav

39660519 发表于 2021-3-17 11:05
Function Encode_To_CODE_128_To_File()
   Dim EnCodeOptions As New EncodingOptions
   Dim Writer  ...

可以看看这个：https://www.freesion.com/article/1433920566/

39660519

ivccav 发表于 2021-3-17 21:21
我也不懂ean13码有什么格式要求，客户有什么要求，，百度百科讲得也很复杂，你看看还有什么属性可选择没 ...

谢谢老师，我也在收集整理EAN-13条形码资料，准备自己研究研究，看能不能用Excel自带的画图生成二维码，研究的乐趣

willhjx

感谢分享，好东西，值得学习

vitrel

在楼主的基础上稍加修改而编成的“万能解码”，
其原理是循环利用编码库内的所有（22套）编码格式对指定的图像文件进行解码，直到解出来为止，
原理并不复杂，不敢藏私，希望大家能用得上。

1. '读取图像文件进行万能解码
   
2. Sub Decode_All_From_File()
   
3.     Dim Reader As IBarcodeReader, Res As Result, FullFileName$,Arr(), Brr(), i%
   
4. 
   
5.     With Application.FileDialog(msoFileDialogFilePicker)    '"文件选取器" 对话框
   
6.         .Title = "请选择一个图像文件"   '标题
   
7.         .InitialFileName = "C:"    '默认路径（和默认文件名）
   
8.         .Filters.Clear              '清除当前文件过滤器
   
9.         .Filters.Add "Picture Files", "*.bmp;*.gif;*.jpg;*.jpeg;*.png;*.tif;*.tiff;*.wmf" '增加文件过滤器
   
10.         If .Show = 0 Then Exit Sub  '显示对话框。按OK返回-1，按Cancel返回0
    
11.         FullFileName = .SelectedItems(1)
    
12.     End With
    
13. 
    
14.     Arr = Array(1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 65536, 131072, 262144, 524288, 1048576, 61918)
    
15.     Brr = Array("AZTEC", "CODABAR", "CODE_39", "CODE_93", "CODE_128", "DATA_MATRIX", "EAN_8", "EAN_13", "ITF", "MAXICODE", "PDF_417", "QR_CODE", "RSS_14", "RSS_EXPANDED", "UPC_A", "UPC_E", "UPC_EAN_EXTENSION", "MSI", "PLESSEY", "IMB", "PHARMA_CODE", "All_1D")
    
16.     Set Reader = New BarcodeReader
    
17. 
    
18.     For i = LBound(Arr) To UBound(Arr)
    
19.         Reader.Options.PossibleFormats.Clear        '清除原编码格式
    
20.         Reader.Options.PossibleFormats.Add Arr(i)   '添加编码格式
    
21.         Set Res = Reader.DecodeImageFile(FullFileName)
    
22.         If Len(Res.Text) Then Exit For
    
23.     Next i
    
24. 
    
25.     If i > UBound(Arr) Then
    
26.         MsgBox "图像文件 " & FullFileName & " 解码失败！"
    
27.     Else
    
28.         MsgBox "文件名：" & FullFileName & vbLf & vbLf & "编码类型：" & Brr(i) & vbLf & vbLf & "解码结果：" & Res.Text
    
29.     End If
    
30. End Sub

复制代码

vitrel

楼主，您好！
首先非常感谢您的“抛砖引玉”，我确实非常感兴趣。
只是本人水平有限，特向您请教两个问题：
1、您在“二维码图片的识别”中的“从Byte数组数据进行二维码解码”是如何使用的呢？
2、能否（如何）对剪切板中的图片进行解码呢？这一功能也挺实用的。
如果方便请指点一二，再次感谢！

lsdongjh

39660519 发表于 2021-3-18 08:20
谢谢老师，我也在收集整理EAN-13条形码资料，准备自己研究研究，看能不能用Excel自带的画图生成二维码， ...

我最近也在研究这块，前几天发的的帖子http://club.excelhome.net/thread-1578315-1-1.html 就是用自带的SHape生成的

39660519

lsdongjh 发表于 2021-3-18 10:33
我最近也在研究这块，前几天发的的帖子http://club.excelhome.net/thread-1578315-1-1.html 就是用自带的 ...

大哥，有密码，想学习学习

lsdongjh

39660519 发表于 2021-3-18 10:37
大哥，有密码，想学习学习

clsEAN13.rar (4.55 KB, 下载次数: 62)

2021-3-18 10:42 上传

点击文件名下载附件

39660519

lsdongjh 发表于 2021-3-18 10:42

大哥，我是计算机门外汉，这个cls格式要怎么打开使用？

lsdongjh

39660519 发表于 2021-3-18 10:50
大哥，我是计算机门外汉，这个cls格式要怎么打开使用？

这是类模块，在VBE 中导入