生產企業或者物流快遞需要用到大量的二維碼和條形碼，但是要自行編寫代碼批量生成二維碼或者條形碼並不容易，涉及的知識面很廣。

Excel插件《E靈》提供了二維碼接口和條形碼接口，您只需要一句代碼調用接口就可以生成二維碼，一句代碼調用條形碼接口就可以生成條形碼。配合循環語句就可以批量生成二維碼或者條形碼了。具體操作如下：

一：下載並安裝插件 E靈。可以百度搜索、下載

二：安裝成功以後打開Excel可以看到“E靈”選項卡。

E靈的操作界面

三：利用VBA調用二維碼接口生成二維碼

調用E靈的二維碼接口語法如下:

Application.COMAddIns.Item(“Eling”).Object.ma “二維碼內容”,高度(單位:厘米) , 單元格, 邊距(單位:磅)

參數說明

1.過程名稱 Ma,完整書寫方式是：
Application.COMAddIns.Item(“Eling”).Object.ma

2.它有四個參數，第一參數是生成二維碼的值，文本格式，例如“中華人民共和國”或者Range(“a1”).value

3.第二參數是二維碼的存放位置，用單元格表示,例如Range(“b2”).

4.第三參數是二維碼的高度，以厘米為單位

5.第四參數是二維碼的邊距，值為0時表示靠邊，值為2表示上邊距為2(單位是磅)。

代碼舉例

1.用”20190325-24″ 生成3厘米高的二維碼，放在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”) ‘遍歷b2:b7區域的每一個單元格
‘調用工具TiaoMa來生成條形碼，插入條形碼時會自動調整單元格的高度
.tiaoma cell.Value, “Code128B”, 50, cell.Offset(0, 2), “黑體”, 10, 0
Next
End With
End Sub