首先新建一個Excel表格，在A1單元格中輸入需要生成二維碼的代碼信息。

1. 先要下載一個控件，地址：http://bbs.cfan.com.cn/thread-1611874-1-1.html【下載注意安全】
下載回來的文件解壓后，將QRMaker文件夾里的所有文件復(fù)制到c:windowssystem32下。通過“開始→運行”，在運行窗口里輸入regsvr32 c:windowssystem32QRmaker.ocx注冊一下組件。

2.打開Excel，因為之后要用到VBA，進入Excel選項，勾選“在功能區(qū)顯示開發(fā)工具”（圖1），切換到開發(fā)工具選項卡，單擊Visual
Basic打開VBA編輯器，選擇“工具→引用→瀏覽”，找到c:windowssystem32QRMaker.ocx，關(guān)閉編輯器。

3. 回到Excel中，在空白處插入一個命令按鈕，右擊該按鈕選擇指定宏→錄制，宏命名為print2d，停止錄制宏。
4. 同時插入其他控件中的QRMaker Control，點“確定”后鼠標(biāo)會變成十字，在空白區(qū)域畫一個二維碼控件（圖2）。摘自: www.ws46.com

5. 再次打開VBA編輯器，在左邊找到模塊1，雙擊后清空右邊所有內(nèi)容，輸入以下代碼：
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
保存關(guān)閉VBA編輯器，回到Excel（圖3），單擊Print2D按鈕就可以將A1單元格的內(nèi)容生成二維碼。

制作完畢，就可以使用這個二維碼了，用胸卡在掃描槍上掃描，即可對特定數(shù)據(jù)進行操作了。

擴展閱讀：
二維碼相比較普通條碼，具備以下的優(yōu)勢：
信息容量大、編碼范圍廣；容錯能力強，具有糾錯功能，不會像條碼一樣只要其中一
根打印不清楚就無法掃描；譯碼可靠性高，不大容易出現(xiàn)掃描出的內(nèi)容和原信息不一致；可引入加密措施；成本低，易制作，持久耐用；條碼符號形狀、尺寸大小比
例可變；可以使用激光或CCD閱讀器識別。

此實例同時在Excel 2010和Windows7下面測試通過。