【VBA】实现批量生成二维码

系列文章

【C#】单号生成器（编号规则、固定字符、流水号、产生业务单号）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129129787

【C#】日期范围生成器（开始日期、结束日期）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129040663

【C#】组件化开发，调用dll组件方法
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129492112

【C#】数据实体类使用
本文链接：https://blog.csdn.net/youcheng_ge/article/details/128816638

【C#】单据审批流方案
本文链接：https://blog.csdn.net/youcheng_ge/article/details/128972545

【C#】二维码标签制作及打印
本文链接：https://blog.csdn.net/youcheng_ge/article/details/126884228

【C#】最全单据打印源码（设计打印模板、条形码&二维码、标签、字体）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129415723

【C#】条码管理操作手册
本文链接：https://blog.csdn.net/youcheng_ge/article/details/126589496

【C#】IIS平台下，WebAPI发布及异常处理
本文链接：https://blog.csdn.net/youcheng_ge/article/details/126539836

【C#】【提高编程效率】代码模板生成工具
本文链接：https://blog.csdn.net/youcheng_ge/article/details/126890673

【C#】【提高编程效率】Excel数据批量导入数据库
本文链接：https://blog.csdn.net/youcheng_ge/article/details/126427323

【C#】Windows服务(Service)安装及启停方案
本文链接：https://blog.csdn.net/youcheng_ge/article/details/124053794

【C#】穿透Session隔离，服务调用外部程序（无窗体界面解决）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/124053033

【C#】任务计划实现，使用Quartz类
本文链接：https://blog.csdn.net/youcheng_ge/article/details/123667723

【C#】《周计划管理关于产前准备模块》解决方案20200203
本文链接：https://blog.csdn.net/youcheng_ge/article/details/122919543

【C#】源码解析正则表达式
本文链接：https://blog.csdn.net/youcheng_ge/article/details/118337074

【C#】软件版本和文件MD5记录（XML操作）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/112513871

【C#】测试网络是否连通
本文链接：https://blog.csdn.net/youcheng_ge/article/details/110137288

【C#】根据名称获取编码（Dictionary获取key方法）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129816701

【C#】数据建模，你是使用DataTable还是List？
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129792726

【C#】GridControl控件和List数据集双向绑定
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129423755

【C#】GridControl动态更换DataSource，数据查询异常处理
本文链接：https://blog.csdn.net/youcheng_ge/article/details/130305424

---

---

前言

我能抽象出整个世界，但是我不能抽象你。 想让你成为私有常量，这样外部函数就无法访问你。 又想让你成为全局常量，这样在我的整个生命周期都可以调用你。 可惜世上没有这样的常量，我也无法定义你，因为你在我心中是那么的具体。

哈喽大家好，本专栏为【项目实战】专栏，有别于【底层库】专栏，我们可以发现增加 了『问题描述』、『项目展示』章节，十分符合项目开发流程，让读者更加清楚项目解决的问题、以及产品能够达到的效果。本专栏收纳项目开发过程的解决方案，是我项目开发相对成熟、可靠方法的提炼，我将这些问题的解决思路梳理，撰写本文分享给大家，大家遇到类似问题，可按本文方案处理。

本专栏会持续更新，不断完善，专栏文章关联性较弱（文章之间依赖性较弱，没有阅读顺序）。大家有任何问题，可以私信我。如果您对本专栏感兴趣，欢迎关注吧，我将带你用最简洁的代码，实现复杂的功能。

·提示：本专栏为项目实战篇，未接触项目开发的同学可能理解困难，不推荐阅读。

---

一、问题描述

我们已经确定了大致的方向，与业务部门沟通，进一步确定标签需要支持以下目标：
①公司存在保密要求，标签不便显示产品信息，但特定人员可以看懂。
②编号要可以人工复核，双重保障，防止识别不出可以人工干预。

​

二、解决方案

2.1 可行性分析

2.2 采用方案

二维码生成很简单，使用QRCodeEncoder可以生成一个【二维码】，但是它生成的仅仅是个【二维码】，没有文字信息记录，不符合我们的需要。

其实吧，有了【二维码】让客户放文档编辑编辑，二次加工也能符合他需求。但是吧，作为软件设计师宗旨：就是解决问题，让客户操作更便捷，能节省的步骤尽可能帮其他省略。

三、软件开发（源码）

3.1 界面设计

3.2 按钮触发事件

'============================================================================================
'函数内容: 批量生成二维码
'函数版本: 0.0.0.0
'创建人: gyc
'修改时间: 2023-02-03
'============================================================================================
'注意事项
'  1.
'  2.
'============================================================================================
Private Sub CommandButton1_Click()


 Dim I As Integer

 For I = 2 To 100

  If Cells(I, "H") <> "" Then

   With ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1") '添加条码控件

      .Name = I                 '条码命名

      .Object.Style = 11             '“11”代表条码样式为“QR Code”
      
      .Object.ShowData = 3             '不在条码下方显示文字内容

      .Left = Cells(I, "I").Left + 4      '条码左侧距离单元格左侧为4磅

      .Top = Cells(I, "I").Top + 4       '条码上侧距离单元格上侧为4磅

      .Height = 19               '条码高度为30磅

      .Width = 150               '条码宽度为150磅

      .Object.Value = Cells(I, "H")       '对条码赋值

   End With

  Else

  I = 100

  End If

 Next I

 MsgBox "条形码生成完毕！"


End Sub

四、项目展示

关闭设计模式，点击 批量生成二维码按钮，看看效果。

五、资源链接

无，请看下文。
【C#】最全单据打印源码（打印模板、条形码&二维码、字体样式、logo）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129415723