生产企业,销售企业,产品ID和信息以条形码的形式记录,方便机器读取,现在又多了二维码,我们又习惯用excel处理数据,那能否用excel批量生成二维码和条码呢,答案是肯定的,这里介绍一个excel条码机二维码函数库的用法,顺便加上我写的一段vba代码来达到批量生成的效果,希望大家能够用得上! 私信回复05571即可获得代码文件 这里还有视频讲解地址,图文没看明白的同学可以看视频讲解http:toutiao。comitem6520899925906031111 动图展示效果 批量生成条形码二维码 第一步下载EXCELAPI网络函数库 搜索EXCELAPI网络函数库,可看到下载地址,按照提示下载安装,然后在excel加载项里启用 excelapinetaddin 第二步在表格对应位置写条形码和二维码公式 第三步altf11插入模块,粘贴下面代码 SubDelPicByRng(rngAsRange) 删除指定单元格区域内的图片 DimiAsInteger Setshpsrng。Worksheet。Shapes Forishps。CountTo1Step1倒序循环图片 IfNotIntersect(shps(i)。TopLeftCell,rng)IsNothingT检测到图片位置与本区域重叠则删除 shps(i)。Delete EndIf Nexti EndSub Sub批量生成二维码或条形码() DimeAsRange ForEacheInSelection e。Select DelPicByRnge e。FormulaLocale。FormulaLocal Next EndSub 第四步运行宏 回到表格界面,选中写入了条形码和二维码公式的单元格区域,altF8,运行宏批量生成二维码或条形码就可看到依次批量生成了二维码和条形码二维码或条形码