生产企业或者物流快递需要用到大量的二维码和条形码，但是要自行编写代码批量生成二维码或者条形码并不容易，涉及的知识面很广。

Excel插件《E灵》提供了二维码接口和条形码接口，您只需要一句代码调用接口就可以生成二维码，一句代码调用条形码接口就可以生成条形码。配合循环语句就可以批量生成二维码或者条形码了。具体操作如下：

一：下载并安装插件 E灵。可以百度搜索、下载

二：安装成功以后打开Excel可以看到“E灵”选项卡。

E灵的操作界面

三：利用VBA调用二维码接口生成二维码

调用E灵的二维码接口语法如下:

Application.COMAddIns.Item(&34;Eling&34;).Object.ma &34;二维码内容&34;,高度(单位:厘米) , 单元格, 边距(单位:磅)

参数说明

1.过程名称 Ma,完整书写方式是：Application.COMAddIns.Item(&34;Eling&34;).Object.ma

2.它有四个参数，第一参数是生成二维码的值，文本格式，例如“中华人民共和国”或者Range(“a1”).value

3.第二参数是二维码的存放位置，用单元格表示,例如Range(“b2”).

4.第三参数是二维码的高度，以厘米为单位

5.第四参数是二维码的边距，值为0时表示靠边，值为2表示上边距为2(单位是磅)。

代码举例

1.用&34;20190325-24&34; 生成3厘米高的二维码，放在C3单元格中

Sub 生成单个二维码()

Application.COMAddIns.Item(&34;Eling&34;).Object.ma &34;20190325-24&34;, 3, Range(&34;c3&34;), 2

End Sub

2.用订单号码、型体名称、单位和数量批量生成二码

Sub 批量生成二维码()

Dim cell As Range, RowItem As Integer, Mysrt As String, Eling As Object

Set Eling = Application.COMAddIns.Item(&34;Eling&34;).Object

Application.ScreenUpdating = False

With Range(&34;a2:d10&34;) &39;根据自己的情况修改范围

For RowItem = 1 To .Rows.Count

Mysrt = &34;&34;

For Each cell In .Rows(RowItem).Cells

If Len(cell.Value) > 0 Then Mysrt = Mysrt & &34;,&34; & cell.Value

Next cell

Eling.ma Mid(Mysrt, 2, 999), 1.5, Cells(RowItem + 1, &34;E&34;), 2

Next RowItem

Application.ScreenUpdating = True

MsgBox &34;生成完毕，一共&34; & .Rows.Count & &34;个二维码&34;, vbOKOnly, &34;提示&34;

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(&34;Eling&34;).Object

Application.ScreenUpdating = False

With Range(&34;a2:d10&34;) &39;根据自己的情况修改范围

For RowItem = 1 To .Rows.Count

Mysrt = &34;&34;: ColCount = 0

For Each cell In .Rows(RowItem).Cells

ColCount = ColCount + 1

Mysrt = Mysrt & vbCrLf & Cells(1, ColCount) & &34;:&34; & cell.Value

Next cell

Eling.ma Mid(Mysrt, 3, 999), 1.5, Cells(RowItem + 1, &34;E&34;), 2

Next RowItem

Application.ScreenUpdating = True

MsgBox &34;生成完毕，一共&34; & .Rows.Count & &34;个二维码&34;, vbOKOnly, &34;提示&34;

End With

End Sub

动画演示一下

动画演示 生成二维码

四：用VBA生成条形码教学

调用E灵的条形码接口语法如下:

TXM(&34;条形码内容&34;, &34;编码&34;, 高度, 单元格对象, &34;字体&34;, 字号, 加宽倍数)

参数说明

1.过程名称 Ma,完整书写方式是：Application.COMAddIns.Item(&34;Eling&34;).Object.ma

2.第一参数是条形码的内容，不能含有中文

3.第二参数是条形码的编码，可选值是&34;Code128A&34;,“Code128B&34;和&34;Code128C”，其中Code128C生成的图片更窄,但它不支持字母，只支持数值。

4.第三参数是高度，单位为磅，通常在40-60之间，不宜过高或者过低。

5.第四参数是单元格对象，条形码需要放在哪个单元格，就用哪个单元格对象

6.第五参数是字体名称，可以是&34;宋体&34;、“黑体”、“Impact”、&34;Arial&34;等等

7.第六参数是字号，即条形码下方的字符大小，通常用10即可，不宜太大。

8.第七参数是加宽倍数，0表示不加宽，1表示加宽一倍，不支持小数

9.请尽量用10号字体，否则可能不居中。

代码举例

1.用“3265798487”生成Code128C类型的高度为50磅的条形码，存放在A1单元格中。条形码的字符采用10号宋体字。

Sub 生成单个条形码()

Application.COMAddIns.Item(&34;Eling&34;).Object.tiaoma &34;3265798487&34;, &34;Code128C&34;, 50, Range(&34;a1&34;), &34;黑体&34;, 10, 0

End Sub

2.用B2:B7区域的值生成条形码，存放在D2:D7区域中：

Sub 批量生成()

Dim cell As Excel.Range &39;声明变量

With Application.COMAddIns.Item(&34;Eling&34;).Object &39;调用E灵插件接口

For Each cell In Range(&34;b2:b7&34;) &39;遍历b2:b7区域的每一个单元格

&39;调用工具TiaoMa来生成条形码，插入条形码时会自动调整单元格的高度

.tiaoma cell.Value, &34;Code128B&34;, 50, cell.Offset(0, 2), &34;黑体&34;, 10, 0

Next

End With

End Sub

动画演示一下

演示条形码的生成方式

内置的二维码批量生成方式

当然，您也可以不通过代码操控二维码与条形码，直接调用E灵内置的工具也可以实现。具体的操作步骤请看以下视频教材：

http://www.ixigua.com/7023334381192217124