vba实例批量生成二维码 什么是qr表?
什么是qr表?
生成QR Code二维码是通过调用第三方程序并结合Excel里面的VBA代码实现的,如果第三方程序出错就可能导致生成错误。
为什么excel里面的二维码发给别人显示不了?
看看这个二维码是什么格式的啊?
如果是图片的话,截图拷贝进表格或者插入对象也可以的正常是可以显示的如果是特殊字符格式,看看excel是否支持啊不过直接使用excel vba也是可以生成二维码的
excel表格找不到二维码选项?
1. 先要下载一个控件qrmaker,下载的文件解压后,将QRMaker文件夹里的所有文件复制到c:windowssystem32下。通过“开始→运行”,在运行窗口里输入regsvr32 c:windowssystem32QRmaker.ocx注册组件。
2. 打开Excel,因为之后要用到VBA,进入Excel选项,勾选“在功能区显示开发工具”,切换到开发工具选项卡,单击Visual Basic打开VBA编辑器,选择“工具→引用→浏览”,找到c:windowssystem32QRMaker.ocx,关闭编辑器。
3. 回到Excel中,在空白处插入一个命令按钮,右击该按钮选择指定宏→录制,宏命名为print2d,停止录制宏。
4. 同时插入其他控件中的QRMaker Control,点“确定”后鼠标会变成十字,在空白区域画一个二维码控件。
5. 再次打开VBA编辑器,在左边找到模块1,双击后清空右边所有内容,输入以下代码:
Sub print2d()
Dim QRString1 As String
#39定义变量
QRString1 Sheet1.Range(#34A1#34)
#39将A1单元格的值传递给QRString1
ArOn
#39启用QRmaker的自动重画属性
QRString1
#39将QRString1的值传递给QRmaker1
End Sub
保存关闭VBA编辑器,回到Excel,单击Print2D按钮就可以将A1单元格的内容生成二维码。
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。