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

vitrel

zpy2 发表于 2021-3-18 14:01
解码效果如何？都能借出来吗？

您好！
针对您提出来的问题，经我再进一步测试后，结果如下：
1、对于标准的QRCode、DATA_MATRIX、Code128等图像文件，100%识别。这里说的标准图像，是指除了纯黑色的二维码图像外，图像里没有其它多余的东西；
2、对于用ZXing制作的EAN条码，无法识别，可能是制作的参数有误；
3、对于从网上下载的QRCode、DATA_MATRIX、Code128、EAN等二维码图片，图片中除了二维码外还有其它图形干扰的，还有些二维码是歪的，识别率都很高（这一点出乎我的意料），只有少数无法识别。
4、至于其它类型的编码（二维码），我知道的不多，就无法一一测试了。

ivccav

wodewan 发表于 2021-3-18 21:32
ZXING  没问题的。。。。

WPS2019和Excel2007没有出现你动图中的Excel-T选项卡？是不支持Office 2007吗？

ivccav

vitrel 发表于 2021-3-19 09:34
朋友，您好！首先非常感谢您的帮忙！
其实应该算是老朋友了，上次的二维码DLL控件也是您帮忙制作的，
...

我对图片文件的各种格式都是小白，没有这方面的需求，也缺乏时间研究。

读取二进制文件用Open不清楚是否可行：

1. Dim fn As Integer '文件号
   
2.     Dim rawRGB() As Byte
   
3.     fn = FreeFile
   
4.     Open ThisWorkbook.path & "\test.png" For Binary As #fn
   
5.     ReDim rawRGB(LOF(fn) - 1)
   
6.     Get #fn, , rawRGB
   
7.     Close #fn

复制代码

GetClipBoardData是API函数：
Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
可以参考剪贴板操作的帖子：http://club.excelhome.net/thread-1057488-1-1.html

Ado.Stream我也没有使用过，看到别人用于字符集转换或数据库图片存取的中介工具：
可参考：http://club.excelhome.net/thread-868093-1-1.html

1. '读取
   
2. 
   
3. ……
   
4. stm.Open
   
5. stm.Type = adTypeBinary
   
6. stm.Write rs.Fields("照片")   '写进stream对象中
   
7. stm.SaveToFile ThisWorkbook.path & "\test.png", adSaveCreateOverWrite  '由stream导出成文件
   
8. Image1.Picture = LoadPicture(ThisWorkbook.path & "\test.png")
   
9. stm.Close
   
10. 
    
11. '写入
    
12. 
    
13. Image1.Picture = LoadPicture("")
    
14. stm.Open
    
15. stm.Type = adTypeBinary
    
16. stm.LoadFromFile ThisWorkbook.path & "\test.png" '文件写进stream
    
17. rs.Fields(1).Value = stm.Read '写入数据库字段
    
18. rs.Update
    
19. stm.Close
    

复制代码

陈功

谢谢分享，收藏学习！

lmgz007

很强大，感谢分享

wodewan

ivccav 发表于 2021-3-19 20:10
WPS2019和Excel2007没有出现你动图中的Excel-T选项卡？是不支持Office 2007吗？

是的，EXCEL2007和2010之后的版本对Ribbon的功能区架构定义是不一样的，不过这个应该好解决判断版本导入不同的架构定义应该就行。更新了一个版本，你可以试试看（13楼），因为没有2007也没测试。
WPS我就不清楚了。。。
http://club.excelhome.net/forum. ... ;extra=#pid10635873

ivccav

wodewan 发表于 2021-3-20 14:32
是的，EXCEL2007和2010之后的版本对Ribbon的功能区架构定义是不一样的，不过这个应该好解决判断版本导入 ...

感谢分享。你封装了之后，可以提供VBA调用的接口吗？

bbs392003

楼主好和各位高手：
      我下载后，按使用说明第1，2步完成了
第3步：在Excel VBE界面引用zxing.interop.tlb
这一步怎么操作，请各位抽空帮指点一下（我的是win10操作系统，office2010)。
诚挚感谢您的帮助！！！

bbs392003

运行提示是这样的

vitrel

bbs392003 发表于 2021-6-9 11:57
感觉很实用，感谢分享！！！
我在下载后，按操作说明，正确执行了第1，2步
第3步：在Excel VBE界面引用zx ...

VBE编辑器→工具→引用→勾选“port of the java based barcode scanning library for .net (java ZXing 29.07.2019 21:30:35)”