利用Excel2003生成二维码
一、将QRMaker1.3.rar文件解压并复制vssver.scc、QRmaker.lic、QRmaker.oca、QRmaker.tlb、QRmaker.ocx 文件到C:\WINDOWS\system32\，然后运行注册regsvr32 C:\WINDOWS\system32\QRmaker.ocx ；
二、打开Excel工作表→ Alt + F11（切换到VBA编辑器）→选择“工具→引用→浏览”→找到
c:\windows\system32\QRMaker.ocx →确定→关闭编辑器；
三、在Excel表空白处插入一个按钮（窗体→按钮），右击该按钮→指定宏（宏名：Print2D）→录制→停止→打开VBA编辑器，在左边找到模块1 →将右边改为如下内容→保存关闭VBA编辑器；
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
四、在EXCEL表中依次打开，控件工具箱→其他控件中选中QRMaker Control →“确定”后鼠标会变成十字，在空白区域画一个二维码控件→鼠标移至空白单元格→单击按钮就将A1的内容生成二维码。