vba与js宏生成条形码和二维码的可执行文件exe

仙女配凡人

    Excel vba 或者 WPS JavaScript 要批量生成二维码或者条形码，一般通过网络请求的方式从网站上获取，对于不能联网的电脑非常麻烦。

    另类的解决办法：利用bwip-js包，通过node.js环境搭建本地服务器 ，将其打包成exe可执行文件，就可以通过本地获取二维码、条形码图片，实测扫码枪、盘点机可以正确识别。支持win7 64位及以上系统，32位系统没测试过不清楚。

    bwip-js支持：Code11、Code128、Code39、Code93、EAN-13、QR Code(二维码)、ISBN、ISMN、PDF417 、Datamatrix等105种类型
    bwip-js文档地址：https://www.npmjs.com/package/bwip-js

    案例文件及jsbar.exe下载链接：https://share.weiyun.com/BdtDs8zw 密码：ij7bk5

使用方法


运行jsbar.exe，就会在本地搭建服务器，主机地址为：http://localhost:3031/
然后加上必要的参数即可返回需要的图片，例如生成 ISBN 码
http://localhost:3031/?bcid=isbn&text=978-1-56581-231-4+52250&includetext&guardwhitespace

参数	必须/可选	数据类型	说明
bcid	必须	string|number	指定生成一维码或二维码的类型
text	必须	string|number	指定要编码的值
textsize	可选	integer	文本的字体大小（以磅为单位）
textgaps	可选	integer	文本间距
textxalign	可选	string	文本水平对齐位置center、left、right
textyalign	可选	string	文本垂直对齐位置center、below、above
includetext	可选	无	显示text参数的值，如果省略该参数则不显示
scaleX	可选	integer	x轴缩放比例，必须大于0，默认值为2
scaleY	可选	integer	y轴缩放比例，必须大于0，默认值为scaleX参数的值
scale	可选	integer	x, y轴等比缩放，必须大于0
rotate	可选	string	旋转方向，N正常默认值；R顺时针90；L逆时针90；I水平翻转
height	可选	number	指定高度，以英寸为单位
width	可选	number	指定宽度，以英寸为单位

其他参数请参考bwip-js文档

在WPS宏编辑器、VBA编辑器中，用 Shapes.AddPicture 方法即可向工作表插入需要的条形码、二维码图片
例如在WPS宏编辑器中，制作code128条形码的标签，并导出为PDF文件：

1. function CommandButton1_Click() {
   
2.   let wb = ThisWorkbook,
   
3.     sht1 = wb.Sheets(1),
   
4.     sht2 = wb.Sheets(2),
   
5.     data = sht1.Range('A2').CurrentRegion.Value2,
   
6.     today = dateFormat('yyyy-mm-dd'),
   
7.     path = ThisWorkbook.Path + '\\',
   
8.     fileName = path + `lable${dateFormat('yyyymdHMS')}.pdf`,
   
9.     pid = Shell(path + 'jsbar.exe', jsHide); //启动jsbar.exe
   
10. 
    
11.   //删除原条形码
    
12.   for (let i of sht2.Shapes) i.Delete();
    
13. 
    
14.   //处理标签样式
    
15.   sht2.Range('A1:H20').Value2 = '';
    
16.   sht2.Range('A1:H20').Copy(sht2.Range('I1'));
    
17.   sht2.Columns('A:H').Delete();
    
18.   let rng = sht2.Range('A1:H20');
    
19. 
    
20.   //数组迭代
    
21.   data.forEach((i, o) => {
    
22.     if (o == 0) return; //索引为0则结束函数执行
    
23. 
    
24.     let j = 20 * o + 1,
    
25.     top = 270 * o + 15,
    
26.     link = `http://localhost:3031/?bcid=code128&text=${i[0]}&textsize=12&height=9`;
    
27. 
    
28.     rng.Copy(sht2.Range('A' + j));
    
29.     sht2.Range(`B${j + 5}`).Value2 = i[0];
    
30.     sht2.Range(`A${j + 9}`).Value2 = `${today}, ${i[4]}, ${i[5]}`;
    
31.     sht2.Range(`A${j + 14}`).Value2 = `${i[1]}, ${i[2]}, ${i[3]}`;
    
32.     sht2.Shapes.AddPicture(link, true, true, 65, top, 300, 50);
    
33.   })
    
34. 
    
35.   sht2.Rows('1:20').Delete();
    
36.   sht1.Visible = false;       //隐藏Sheet1工作表
    
37.   wb.SaveAs(fileName, 103);   //当前工作簿另存为PDF
    
38.   sht1.Visible = true;
    
39.   sht1.Select();
    
40. 
    
41.   Shell(`cmd /c taskkill /pid ${pid} -f`, jsHide); //结束进程
    
42.   Shell('cmd /c start ' + fileName, jsHide);       //打开PDF
    
43. }
    
44. 
    
45. //日期格式化
    
46. function dateFormat(fmt, date) {
    
47.   fmt = fmt || 'yyyy-mm-dd HH:MM:SS';
    
48.   date = date || new Date;
    
49.   const opt = {
    
50.     'y+': date.getFullYear().toString(),
    
51.     'm+': (date.getMonth() + 1).toString(),
    
52.     'd+': date.getDate().toString(),
    
53.     'H+': date.getHours().toString(),
    
54.     'M+': date.getMinutes().toString(),
    
55.     'S+': date.getSeconds().toString()
    
56.   };
    
57.   for (let k in opt) {
    
58.     let ret = new RegExp('(' + k + ')').exec(fmt);
    
59.     if (ret) {
    
60.       fmt = fmt.replace(ret[1], (ret[1].length == 1) ? (opt[k]) : (opt[k].padStart(ret[1].length, '0')))
    
61.     }
    
62.   };
    
63.   return fmt
    
64. }

复制代码

动图效果





jsbar.exe源码，在node.js环境下，用pkg模块打包成exe可执行文件

1. //bwip-js呈现条形码图像的简单HTTP服务器
   
2. const http = require('http');
   
3. const server = http.createServer();
   
4. const bwipjs = require('bwip-js');
   
5. 
   
6. //这显示如何加载bwip js发行版提供的Inconsolata字体
   
7. //bwipjs.loadFont('Inconsolata', 100, require('fs').readFileSync('./fonts/Inconsolata.otf', 'binary'));
   
8. 
   
9. server.on('request', (req, res) => {
   
10.   // If the url does not begin /?bcid= then 404.  Otherwise, we end up
    
11.   // returning 400 on requests like favicon.ico.
    
12.   if (req.url.indexOf('/?bcid=') != 0) {
    
13.     res.writeHead(404, { 'Content-Type': 'text/plain' });
    
14.     res.end('BWIPJS: Unknown request format.', 'utf8');
    
15.   } else {
    
16.     bwipjs.request(req, res); // Executes asynchronously
    
17.   }
    
18. });
    
19. 
    
20. server.listen(3031, () => {
    
21.   let a = '\n条形码与二维码服务已启动：http://localhost:3031/'
    
22.   let b = '\n示例：http://localhost:3031/?bcid=isbn&text=978-1-56581-231-4+52250&includetext&guardwhitespace'
    
23.   console.log(a + b)
    
24. })

复制代码

LIUZHU

高手有没有关于WPS加载项的研究？最近正在学习这个

仙女配凡人

LIUZHU 发表于 2023-5-9 08:30
高手有没有关于WPS加载项的研究？最近正在学习这个

没有做过类似的需求，所以没有研究过

shuitong

学习了，先收藏备用。

o不坏o

很不错的想法，我没打包，直接用的你的jsbar.exe，条形码没问题，但是bcid=qrcode输出二维码的时候遇到一个问题，它不识别特殊字符“#”，我文本里面有#，后面的会被抛弃

仙女配凡人

o不坏o 发表于 2024-2-25 19:25
很不错的想法，我没打包，直接用的你的jsbar.exe，条形码没问题，但是bcid=qrcode输出二维码的时候遇到一个 ...

URL编码问题，#字符没法直接用，要替换成%23，或者在jsa用encodeURI方法把条形码链接转码，
在nodejs把条形码链接用decodeURIComponent方法解码就可以了，当时没考虑到这些问题

Jerry6455

好东西不容错过，顶起

lwwy1981

这个搭建之后,如何实现二维码的换行文本呢?  试了好久都不行

lwwy1981

lwwy1981 发表于 2024-4-4 13:44
这个搭建之后,如何实现二维码的换行文本呢?  试了好久都不行

测%0A试   查到了...!