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

QQ214189912

楼主有空做个 COM免注册技术 的教程吧

ivccav

QQ214189912 发表于 2021-3-15 17:39
楼主有空做个 COM免注册技术 的教程吧

自己动手更有意思。
主要是看到论坛中的二维码插件都是收费的，才花了一点时间分享这个开源项目。注册也很容易啊，就是运行一个批处理

opel-wong

非常不错，感谢分享，留个记号。

vitrel

非常感谢楼主！
这是讫今为止，我见过功能最强大且免费的二维码、条码生成插件。
虽然我原来的生成方案已经够用，
但既然有功能更强大的方案，
先备用，顺便研究，将来总有用得着的时候，
再次感谢。

orczr

谢谢 ivccav老师  每天都是惊喜~

ggmmlol

ivccav 发表于 2021-3-13 23:04
总结：

在Windows7 64bit 和 Windows10 64bit 系统上，用WPS 2019完美运行ZXing.Net。

ZXing是谷歌公司出的关于条码二维码等各种编码图形生成与识别的开源库，比起微软提供的Barcode Control，功能确实要全面得多。
微软的Barcode Control 16.0，虽然也可以生成二维码，但不支持汉字等双字节文本，而且多年来也未更新该控件，对于开发者来说，很不友好。
现在，移动端的硬件升级更快，软件开发工具更丰富，多媒体技术应用更繁荣，微软的pc端市场却相对慢慢萎缩。所以有能力的开发者都在逐渐转向移动端了，毕竟钱景看好。不想挣扎着往移动端走的就留下来凑合着混混，偶尔淘一些移动端的资源做些修修改改、缝缝补补。所以，真心感谢楼主带来了这个开源库，让这样的缝补工作多有了一个针线包。

39660519

ivccav 发表于 2021-3-13 22:42
4.再举例：Code128条形码和Datamatrix二维码

老师：
      条形码要怎么设置格式？你说的“条形码用EncodingOptions设置参数，要设置好条码格式：”，我没有看明白，基础比较差。是不是Writer.Format = BarcodeFormat_CODE_128，是不是红色部分改成相对应格式就行了

ivccav

39660519 发表于 2021-3-16 14:26
老师：
      条形码要怎么设置格式？你说的“条形码用EncodingOptions设置参数，要设置好条码格式：” ...

这个项目支持的条形码、二维码格式太多了，有些有专门的option，因为有些条码有特殊要求的，只有懂这些条码的规则才会设置。条形码和二维码都有很多种，不知你想生成哪一种

39660519

ivccav 发表于 2021-3-16 22:45
这个项目支持的条形码、二维码格式太多了，有些有专门的option，因为有些条码有特殊要求的，只有懂这些条 ...

Function Encode_To_CODE_128_To_File()
   Dim EnCodeOptions As New EncodingOptions
   Dim Writer As IBarcodeWriter
   Set Writer = New BarcodeWriter
   Writer.Format = BarcodeFormat_EAN_13
   Set Writer.Options = EnCodeOptions
   EnCodeOptions.Height = 50
   EnCodeOptions.Width = 140
   EnCodeOptions.Margin = 2
   Writer.WriteToFile "6971047560663", ThisWorkbook.path & "\test.png", ImageFileFormat_Png
End Function
老师：
      我要的是BarcodeFormat_EAN_13格式的条形码，我利用你的代码生成的条形码和客户要求的有区别，但都能扫描出来

ivccav

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

我也不懂ean13码有什么格式要求，客户有什么要求，，百度百科讲得也很复杂，你看看还有什么属性可选择没有。