当前位置:首页 > 网络技术 > 怎么用字符串生成二维码(二维码制作小程序)(怎么用一串字符生成二维码)

怎么用字符串生成二维码(二维码制作小程序)(怎么用一串字符生成二维码)

longge2022-03-24 00:17:35网络技术19

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

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

动画演示一下

演示条形码的生成方式

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

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

免责声明
本站部分资源来源于互联网 如有侵权 请联系站长删除
龙哥网是优质的互联网科技创业资源_行业项目分享_网络知识引流变现方法的平台为广大网友提供学习互联网相关知识_内容变现的方法。#转载请注明出处!

“怎么用字符串生成二维码(二维码制作小程序)(怎么用一串字符生成二维码)” 的相关文章

javascript实现浏览器全屏显示和退出全屏代码(js控制浏览器全屏)

javascript实现浏览器全屏显示和退出全屏代码(js控制浏览器全屏)

浏览器内置全屏浏览网页的功能,通过键盘快捷键F11可以进入全屏模式,而在网页端则可以通过js代码使用requestFullScreen()方法进入浏览器全屏浏览模式,使用exitFullScreen...

jQuery slice()方法获取指定索引范围内的元素

jQuery slice()方法获取指定索引范围内的元素

slice() 把匹配元素集合缩减为指定的指数范围的子集。模仿了 JavaScript 数组对象的 .slice() 方法。它所模仿的特性之一是向 start 或 end 参数传递负数的能力。如果提...

Web-app,一款简洁高效率绿色html编辑器-安卓软件(手机版html编辑软件)

Web-app,一款简洁高效率绿色html编辑器-安卓软件(手机版html编辑软件)

Web-app,一款简洁高效绿色html编辑器,即写即保存,支持自定义符号栏,还能打包成app使用,多框架js运用,随时预览效果       app下载地址 htt...

做单王秘诀:颠覆你对销售的认知(龙哥网)(销售压单技巧的总结)

做单王秘诀:颠覆你对销售的认知(龙哥网)(销售压单技巧的总结)

课程介绍比如是话术重要?还是在正确的时间正确的场合对正确的人做正确的事说正确的话更凯南签单呢?本专栏从道法术全维度,解密了销售的本质和技巧的本质。学习地址百度:https://pan.baidu.co...

Spring AOP 后置通知修改响应httpstatus方式_java

Spring AOP 后置通知修改响应httpstatus方式_java

目录 Spring AOP后置通知修改响应httpstatus 1.定义Aspect 2.使用 3.ApiResponse响应体 4.ApiUtil...

SpringBoot拦截器使用精讲_java(springboot 拦截器)

SpringBoot拦截器使用精讲_java(springboot 拦截器)

目录 定义拦截器 注册拦截器 指定拦截规则 实现登陆功能 验证登陆及登陆拦截功能 我们对拦截器并不陌生,无论是 Struts 2 还是 Spring MVC 中都...