excel2010生成二维码的教程

在 Excel 中录入好数据以后通常需要用到Excel中进行生成二维码，具体该怎么做呢?接下来是我为大家带来的excel2010生成二维码的教程，供大家参考。

excel2010生成二维码的教程：

生成二维码步骤1：先“新建”一个“标准EXE”工程，在控件工具箱中要添加QRmaker控件，然后在Form上分别添加一个Textbox控件(我这里取的名称为txtInputData)和一个QRmaker控件。其中Textbox控件的属性可根据自己的喜好进行设置，QRmaker控件的AutoRedraw属性建议设置为“1-ArOn”，当然也可以在代码中直接控制。

生成二维码步骤2：双击窗体，进入代码编辑界面，分别完成以下代码。

Private Sub Form_Load()

txtInputData.Text = "请单击此处，输入要生成二维码的文本"

End Sub

Private Sub txtInputData_Click()

txtInputData.Text = ""

End Sub

Private Sub txtInputData_Change()

QRmaker1.InputData = txtInputData.Text

End Sub

生成二维码步骤3：如果没有设置QRmaker的AutoRedraw属性，则txtInputData_Change事件中还需要添加“QRmaker1.Refresh”代码行，总的代码如下图所示。

生成二维码步骤4：最后生成EXE，可以输入文字，可以看到已经可以生成二维码了，由于使用了txtInputData_Change()事件，所以在文本框中输入的文字，下方的二维码会实时的展现。

至此VB中调用QRmaker生成二维码已经没什么问题了，其他细节部分可根据实际情况进行修改。

扫码的现象已经在生活中越来越普遍，现在一般都是二维码，当然之前也出现过一维码，但是一维码所能表示的信息是有限的，特别是信息多了以后很难识别，二维码相对于一维码能够存储的信息量大的多，而且最主要的是二维码还有纠错功能，有一定的容错率，如果二维码有部分损坏，依然有可能读出其中的数据。二维码的编程在常见环境下好处理，但VB环境不常见，有些细节不好处理，本文介绍一些常见办法并对实现机制进行了分析。

本文介绍的是VB程序下生成二维码：首先需要的VB开发环境，这里搭建的是VB6.0开发环境。

二维码的生成一种是纯手工撸代码，实现二维码的生成，当然这对新手来说是一个极大的挑战。另一种是利用QRmaker控件来实现二维码的生成。

首先，简单的介绍一下手写实现二维码的几个步骤，作为一个了解。创建VB工程，然后复制二维码动态链接库到你建立的的工程中，然后需要引用的动态库有如下几个：EnCodePdf.dll,EnCodeQr.dll,EnDataMatrix,EnHanxin.dll，

这四个动态库分别代表的是四种二维码：PDF417,QrCode,DataMatrix,HanXin。

还需要进行四种二维码的接口引用申明，分别是串口接口，生成PDF417接口，生成QrCode接口，生成DataMatrix接口，生成HanXin接口，WAPI接口，生成图像压缩接口，图像压缩函数。

下面主要介绍一下，利用QRmaker控件生成二维码：这相对于上面一种方法是简单的多了，先新建一个标准EXE工程，在控件工具箱中添加QRmaker控件。

你会发现我的控件工具箱没有这个控件，不要慌，我们需要下载一个文件QRmaker_OCX，下载解压完成后将其中的Qrmaker.lic 、Qrmaker.tlb、Qrmaker.ocx 、Qrmaker.oca 和Regsvr32.exe文件拷贝到你新建的工程下，然后注册.ocx文件：打开“运行”，输入注册命令对于64位的系统。在“运行”中直接输入“regsvr32 文件路径\ Qrmaker.ocx”。注册成功后再“工程”的“部件”控件中选择QRmaker.ocx控件即可。

先简单的做个测试，在工程中添加一个QRmaker的控件，将AutoRedraw属性设置为“1-ArOn”然后在添加TextBox控件命名为Text1，添加Label控件，Caption设置为“请输入要生成二维码的文本”，添加CommandButton控件，Caption设置为“生成二维码”。打开代码编辑界面输入以下代码：

Private Sub Command1_Click()

QRmaker1.InputData = Text1.Text

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

单击运行生成EXE，可以输入文本，点击生成二维码按钮，下方会生成相应的二维码，VB中QRmaker控件生成二维码完成，其他的细节可以根据自己的需求做调整。

二维码不光是在商品消费商被越来越多采用，小公司或个人也可以用二维码来传递识别特定信息。那么，怎么在excel2013中制作二维码呢?下面我来告诉你excel2013中制作二维码的 方法 吧。希望对你有帮助！

excel2013中制作二维码的步骤

打开 Excel ，因为之后要用到VBA，进入Excel选项，勾选“在功能区显示开发工具”(图1)，切换到开发工具选项卡，单击Visual Basic打开VBA编辑器，选择“工具→引用→浏览”，找到c:\windows\system32\QRMaker.ocx，关闭编辑器。

excel2013中制作二维码的步骤图1

回到Excel中，在空白处插入一个命令按钮，右击该按钮选择指定宏→录制，宏命名为print2d，停止录制宏。

同时插入其他控件中的QRMaker Control，点“确定”后鼠标会变成十字，在空白区域画一个二维码控件(图2)。

excel2013中制作二维码的步骤图2

再次打开VBA编辑器，在左边找到模块1，双击后清空右边所有内容，输入以下代码：

Sub print2d()

Dim QRString1 As String

'定义变量

QRString1 = Sheet1.Range("A1")

'将A1单元格的值传递给QRString1

Sheet1.Select

Sheet1.QRmaker1.AutoRedraw = ArOn

'启用QRmaker的自动重画属性

Sheet1.QRmaker1.InputData = QRString1

'将QRString1的值传递给QRmaker1

End Sub

保存关闭VBA编辑器，回到Excel(图3)，单击Print2D按钮就可以将A1单元格的内容生成二维码。

excel2013中制作二维码的步骤图3

制作完毕，就可以使用这个二维码了，用胸卡在扫描q上扫描，即可对特定数据进行 *** 作了。

>>>下一页更多精彩“excel2013中制作组合图表的方法”

---