制造业企业或是物流快递必须使用很多的二维码和条形码，可是要自主撰写编码大批量生成二维码或是条形码并不易，涉及到的知识层面很广。
Excel软件《E灵》给予了二维码接口和条形码接口，您只必须一句编码调用接口就可以生成二维码，一句代码调用条形码接口就可以形成条形码。相互配合for语句就可以大批量生成二维码或是条形码了。具体步骤如下所示：
一：安装下载软件 E灵。可以网页搜索、免费下载
二：安裝取得成功之后开启Excel能够看见“E灵”菜单栏。
E灵的操作面板
三：运用VBA调用二维码接口生成二维码
调用E灵的二维码接口英语的语法如下所示:
Application.COMAddIns.Item(“Eling”).Object.ma “二维码內容”,相对高度(企业:cm) , 表格中, 行高(企业:磅)
主要参数表明
1.全过程名字 Ma,详细撰写方法是：
Application.COMAddIns.Item(“Eling”).Object.ma
2.它有四个主要参数，第一参数是生成二维码的值，文档格式，例如“我国”或是Range(“a1”).value
3.第二主要参数是二维码的储存部位，用表格中表明,例如Range(“b2”).
4.第三主要参数是二维码的相对高度，以cm为企业
5.第四主要参数是二维码的行高，数值0时表明靠右边，数值2表明上面距为2(企业是磅)。
编码举例说明
1.用”20190325-24″ 形成3cm高的二维码，放到C3表格中中
Sub 形成单独二维码()
Application.COMAddIns.Item(“Eling”).Object.ma “20190325-24”, 3, Range(“c3”), 2
End Sub
2.用订单号码、体形名字、企业和总数大批量形成二码
Sub 大批量生成二维码()
Dim cell As Range, RowItem As Integer, Mysrt As String, Eling As Object
Set Eling = Application.COMAddIns.Item(“Eling”).Object
Application.ScreenUpdating = False
With Range(“a2:d10”) ‘依据自身的情形改动范畴
For RowItem = 1 To .Rows.Count
Mysrt = “”
For Each cell In .Rows(RowItem).Cells
If Len(cell.Value) > 0 Then Mysrt = Mysrt & “,” & cell.Value
Next cell
Eling.ma Mid(Mysrt, 2, 999), 1.5, Cells(RowItem 1, “E”), 2
Next RowItem
Application.ScreenUpdating = True
MsgBox “形成结束，一共” & .Rows.Count & “个二维码”, vbOKOnly, “提醒”
End With
End Sub
3.用订单号码、体形名字、企业和总数大批量生成二维码
Sub 批量形成含文章标题的二维码()
Dim cell As Range, RowItem As Integer, ColCount As Byte, Mysrt As String, Eling As Object
Set Eling = Application.COMAddIns.Item(“Eling”).Object
Application.ScreenUpdating = False
With Range(“a2:d10”) ‘依据自身的情形改动范畴
For RowItem = 1 To .Rows.Count
Mysrt = “”: ColCount = 0
For Each cell In .Rows(RowItem).Cells
ColCount = ColCount 1
Mysrt = Mysrt & vbCrLf & Cells(1, ColCount) & “:” & cell.Value
Next cell
Eling.ma Mid(Mysrt, 3, 999), 1.5, Cells(RowItem 1, “E”), 2
Next RowItem
Application.ScreenUpdating = True
MsgBox “形成结束，一共” & .Rows.Count & “个二维码”, vbOKOnly, “提醒”
End With
End Sub
动漫演试一下
动漫演试 生成二维码
四：用VBA形成条形码课堂教学
调用E灵的条形码接口英语的语法如下所示:
TXM(“条形码內容”, “编号”, 相对高度, 表格中目标, “字体样式”, 字体大小, 扩宽倍率)
主要参数表明
1.全过程名字 Ma,详细撰写方法是：
Application.COMAddIns.Item(“Eling”).Object.ma
2.第一主要参数是条形码的內容，不可以带有汉语
3.第二主要参数是条形码的编号，可选值是”Code128A”,“Code128B”和”Code128C”，在其中Code128C形成的照片更窄,但它不兼容英文字母，只适用标值。
4.第三主要参数是相对高度，企业为磅，通常在40-60中间，不适合过高或过低。
5.第四主要参数是表格中目标，条形码必须放到哪个表格中，就用哪个单元格目标
6.第五主要参数是字体样式名字，可以是”宋体字”、“黑体字”、“Impact”、”Arial”这些
7.第六主要参数是字体大小，即条形码下边的标识符尺寸，通常用10就可以，不适合很大。
8.第七主要参数是扩宽倍率，0表明不扩宽，1表明扩宽一倍，不兼容小数
9.请尽可能用10号字体样式，不然有可能不垂直居中。
编码举例说明
1.用“3265798487”形成Code128C种类的相对高度为50磅的条形码，储放在A1表格中中。条形码的标识符选用10号宋体字。
Sub 形成单独条形码()
Application.COMAddIns.Item(“Eling”).Object.tiaoma “3265798487”, “Code128C”, 50, Range(“a1”), “黑体字”, 10, 0
End Sub
2.用B2:B7地区的值形成条形码，储放在D2:D7地区中：
Sub 大批量形成()
Dim cell As Excel.Range ‘申明自变量
With
Application.COMAddIns.Item(“Eling”).Object ‘调用E灵软件接口For Each cell In Range(“b2:b7”) ‘解析xmlb2:b7地区的每一个表格中
‘调用专用工具TiaoMa来形成条形码，插进条形码的时候会全自动调节表格中的相对高度
.tiaoma cell.Value, “Code128B”, 50, cell.Offset(0, 2), “黑体字”, 10, 0
Next
End With
End Sub
动漫演试一下
演示条形码的生成方式
内嵌的二维码大批量生成方式
自然，您还可以不通过编码操纵二维码与条形码，立即调用E灵内嵌的专用工具还可以完成。实际的操作流程可以看下列视频教材：
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
