新浪博客

三步根据excel数据批量生成条码

2016-12-16 19:53阅读:
拿到 excel 表格中的数据,要批量生成条码图片,有时会很繁琐。
本文介绍一种,无需复杂的编程,无须借助他人,简单几个步骤批量生成条码图形的方法。
首先,确认计算机上安装了条码控件,有很多可以实现这种功能的条码控件,本文以斐泰科技的
FitQR PLus Encoding ActiveX Control 为例,实现这种功能。
第一步:确认 Excel 文件中的数据,确定那一列的内容需生成条码,生成哪种条码
比如,如下图所示的Excel文件,其中的B2,B3,...... 为要生成条码的内容;每一行一个条码
生成的条码保存成 D列Cell中所指定的图形文件中。
三步根据excel数据批量生成条码
Excel表格数据示例
第2步 使用记事本生成一个文本格式的脚本文件,内容如下,保存成 enc.vbs (注意后缀为 .vbs 不能是 .txt)
' we can pass the excel file name and worksheet as the parameter and using Wscript.Arguments to use it in the script


dim enc
dim filename
dim
sheetname
dim column
dim row


'
' 以下文件名称 filename 换成你的数据文件名,sheetname 换成你的工作表的名称,打开你的数据文件确认
'
filename='N:\docs\support\excelBarcode\vbs\data.xls'
sheetname='Sheet1'
column=2 ' A=1,B=2,C=3,依次类推
row=2 ' 从第2行开始


Set oExcel=CreateObject('excel.application')
Set oWorkBook=oExcel.Workbooks.Open(filename)


'use the worksheet 'Sheet1' can specified by command line option
Set oSheet=oWorkBook.Sheets(sheetname)


set enc=CreateObject('FitQRPLusCode.FitQRPLusEncCtrl')


'we can write more value to the text file by using loop


enc.Version=13
enc.TextPlacement=1


for i=2 to 10000
s=oSheet.cells(i,2) 'text to encode from cells(i,2),i.k.a Bi
if Len(s)=0 then
exit for
end if
enc.EncodingText=s
enc.SaveSymbol oSheet.Cells(i,4),true
next


set enc=nothing


Set oSheet=Nothing
oExcel.Quit
注意:以上的 filename 是你的数据文件名称和路径,sheetname 是你的数据文件的工作表名称,column设置成你的条码数据的列号,row设置成你的条码数据的起始行号,这些都需要打开你的数据文件就可以确认。
第3步 双击生成的 enc.vbs 文件自动批量生成所有 barcode 图形。
使用 FitQR PLus Encoding ActiveX 是因为它支持各种丰富的条码类型和属性选项,可以适应实际工作中的各种需要。详细可以参见 FitQR PLus 条码生成控件

我的更多文章

下载客户端阅读体验更佳

APP专享