企业或者物流快递需要使用大量的二维码和条形码，但是自己写代码批量生成二维码或者条形码并不容易，涉及的知识面很广。
Excel插件“E灵”提供二维码接口和条码接口。你只需要一个码调用接口生成二维码，一个码调用条码接口生成条码。通过循环语句，可以批量生成二维码或条形码。具体操作如下:
一:下载安装外挂E魂。百度可以搜索下载。
二:安装成功后，打开Excel看到“E魂”标签。
e的操作界面
第三，用VBA调用二维码接口生成二维码
调用E凌二维码接口的语法如下:
应用程序。com addins . Item(“鹅岭”). Object.*** & # 8220二维码内容”、高度(单位:厘米)、单元格、边距(单位:磅)
参数描述
1.流程名称Ma，填写完整:
application.com addins . item(“鹅岭”). Object.***。
2.它有四个参数。第一个参数是生成的QR码的值和文本格式，如“中华人民共和国(PRC)”或范围(“A1”)。价值。
3.第二个参数是QR码的存储位置，用一个单元格表示，比如range(“B2”)。
4.第三个参数是QR码的高度，以厘米为单位。
5.第四个参数是二维码的边距。值为0表示靠边，值为2表示上边距为2(以磅为单位)。
代码示例
1.使用”20190325-24″生成一个3厘米高的二维码，放在细胞C3。
Sub生成一个二维码()
申请。com addins . Item(“鹅岭”). Object.*** & # 822020190325-24”，3，范围(“c3 & # 8221), 2
末端接头
2.用订单号、类型名称、单位和数量批量生成两个代码。
Sub批量生成二维码()
Dim单元格作为范围，RowItem作为整数，Mysrt作为字符串，Eling作为对象
设置Eling =应用程序。com addins . Item(“鹅岭”).目标
申请。ScreenUpdating = False
带范围(“a2:D10 ”) ‘根据自己的情况修改范围。
For RowItem = 1到. Rows.Count
Mysrt = & # 8220”
对于中的每个单元格。行(RowItem)。细胞
If Len(单元格。值)>；0然后Mysrt = Mysrt & amp“,”& amp细胞。价值
下一个单元格
Eling.*** Mid(Mysrt，2，999)，1.5，Cells(RowItem + 1，“E & # 8221), 2
下一行项目
申请。ScreenUpdating = True
MsgBox & # 8220生成，共”& ampRows.Count & amp“二维码”，vbOKOnly，“提示”
以…结尾
末端接头
3.批量生成二维码，包括订单号、类型名称、单位和数量。
Sub批量生成带标题的二维码()
Dim单元格作为范围，RowItem作为整数，ColCount作为字节，Mysrt作为字符串，Eling作为对象
设置Eling =应用程序。com addins . Item(“鹅岭”).目标
申请。ScreenUpdating = False
带范围(“a2:D10 ”) ‘根据自己的情况修改范围。
For RowItem = 1到. Rows.Count
Mysrt = & # 8220”:ColCount = 0
对于中的每个单元格。行(RowItem)。细胞
列数=列数+ 1
Mysrt = Mysrt & ampvbCrLf &细胞(1，列计数)和amp“:”& amp细胞。价值
下一个单元格
Eling.*** Mid(Mysrt，3，999)，1.5，Cells(RowItem + 1，“E & # 8221), 2
下一行项目
申请。ScreenUpdating = True
MsgBox & # 8220生成，共”& ampRows.Count & amp“二维码”，vbOKOnly，“提示”
以…结尾
末端接头
给我看看动画。
动画生成二维码。
第四，利用VBA生成条形码的教学
调用E Ling的条形码接口语法如下:
TXM(“条形码”, “编码”，高度，单元格对象，“字体”字体大小、加宽倍数)
参数描述
1.流程名称Ma，填写完整:
application.com addins . item(“鹅岭”). Object.***。
2.第一个参数是条形码的内容，不能包含中文。
3.第二个参数是条码的编码，可选值为”Code128A & # 8221，“Code128B & # 8221还有”Code128C”，其中Code128C生成的图片较窄，但不支持字母，只支持数值。
4.第三个参数是身高，以磅为单位，通常在40到60之间，不能太高也不能太低。
5.第四个参数是单元格对象，将使用条形码需要放在哪个单元格中。
6.第五个参数是字体名称，可以是””、“加粗”、“冲击”，”Arial & # 8221等等
7.第六个参数是字体大小，即条形码底部的字符大小。通常10个就够了，但也不要太大。
8.第七个参数是加宽倍数，0表示不加宽，1表示双倍加宽，不支持小数。
9.请尽量使用10号字体，否则可能会不居中。
代码示例
1.使用“3265798487”生成高度为50磅的Code128C条形码，并存储在A1单元格中。条形码的字符是10号宋体。
Sub生成单个条形码()
应用程序。com addins . Item(“鹅岭”). Object.tiao*** & # 82203265798487”, “Code128C & # 8221，50，范围(“a1 & # 8221), “Bold & # 8221, 10, 0
末端接头
2.使用B2、B7区域的值生成条形码并存储在D2、D7区域；
子批次生成()
将单元格显示为Excel格式。范围‘声明变量
带有
应用程序。com addins . Item(“鹅岭”).对象‘调用E-Spirit插件接口
对于范围内的每个单元格(“B2:B7 ”) ‘遍历b2:b7区域中的每个单元格。
‘调用工具跳马生成条码，条码插入时单元格高度会自动调整。
。跳马细胞。价值，“Code128B & # 8221，50，细胞。Offset(0，2)，“Bold & # 8221, 10, 0
然后
以…结尾
末端接头
给我看看动画。
演示如何生成条形码。
内置二维码批量生成方法
当然，你也可以不使用代码来操纵二维码和条形码，你可以直接调用E-Spirit的内置工具。具体操作步骤请参考以下视频教材:
本文来自抚琴绘长歌投稿，不代表舒华文档立场，如若转载，请注明出处：https://www.chinashuhua.cn/24/617763.html
微信扫一扫 
