怎么用字符串生成二维码(二维码制作小程序)
多条告白如次剧本只需引入一次
消费企业大概物流特快专递须要用到洪量的二维码和线形码，然而要自行编写代码批量天生二维码大概线形码并不简单，波及的常识面很广。
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 ‘证明变量
WithApplication.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
动画演练一下
演练线形码的天生办法
内置的二维码批量天生办法
固然，您也不妨不经过代码操控二维码与线形码，径直挪用E灵内置的东西也不妨实行。简直的操纵办法请看以次视频讲义：
