二维码自动生成（QRcode）

wodewan

1. EXCEL内二维码生成，非网络调用
2. 支持中、英文、数字混编
3. 可更改二维码及背景颜色
4. 可复制至剪切板调用（默认关闭），图片格式。
5. 可设置容错级别
6. 和上次的MDE、AES加密原理上大致相同，QRcode的JS源码在窗体标签中，可用手机扫描测试，供有兴趣的参考。。。。。。

补充内容 (2022-7-5 17:45):
本贴的批量功能由于系统和Excel以及IE版本的某些原因会出现空白图片问题，不再更新，有兴趣可以移步这个帖子，功能更全，无上述问题：https://club.excelhome.net/thread-1578198-1-1.html

向東

生成的二维码最好直接插入到表格中，省的还要粘贴一次。

02761752696

如果  内容能带格式更实用，谢谢分享

龍膽草

厉害！我没这么做过，我一般都是偷懒用ZXing插件直接生成。代码看不懂，老师要是能开帖讲讲具体怎么做的就好了

wodewan

龍膽草 发表于 2020-12-18 09:09
厉害！我没这么做过，我一般都是偷懒用ZXing插件直接生成。代码看不懂，老师要是能开帖讲讲具体怎么做的就 ...

哈哈，开贴就没必要了，当初的目的是想在正常系统环境和无须额外插件的情况下，VBA调用其他语言的第三方库。没到写教程的那个段位，简单说说一些思路和大纲，供有兴趣的参考吧，有错误得地方还请指正：

一、QRcode库

• JS的第三库还是比较多的，特别是网络方面，调用方式也都比较简单，基本上都是封装好的，直接拿来就用，关键基本上都是开源的。
• 这个QRcode就是其中之一，其实它的功能很强大，这里只是调用了最基础的生成二维码的功能，包括解析，生成带loge的二维码等等都是可以的
  

二、VBA的调用方式

• 一种使用ScriptControl，但兼容64位比较麻烦，需额外处理。
• 使用使用html来实现，每台电脑都有，没有上述的问题。
  

三、VBA的执行函数

• eval
• execscript
• 两者函数的执行方式基本差不多，但有区别
  

四、一些细节

• 在创建好了html对象后，可通过html引入src标签然后执行相关JS语句，简单，但需要联网，也可以将JS代码复制出来放入EXCEL中的某个地方（如标签，单元格等），本地执行，在VBA代码中拼接字符串是个比较麻烦的事情，除了一些简单的代码。
• VBA创建的HTML对象，包括执行的window基本上都是依赖于IE8的，这里面坑就比较多了，所以要找到对应的JS版本，或者有时还需做一些修改或引入一些其他的JS库来支持执行。
• 简单说下这个文件的过程，将QRcode的JS代码复制到窗体的Lable标签中，通过窗体的Web控件的Doucument.Parentwindow的Execscript方法执行标签中的JS代码加载这个库，然后通过像Web控件的Document中写入对应的Div标签，再调用QRcode的相关方法生成二维码，在Web控件中显示，最后通过ExecWB方法将二维码从WEB控件中提取出来。
• 另外说明一下，QRcode生成有两种方式，IE10下只支持Table方式，要转换成图片格式，比较麻烦，IE8各种不支持，所以绕了一圈将Table格式先放到了EXCEL中的一个隐藏文件中，然后再通过copypicture方法获得图片，这里是放到了剪切板，当然也可以生成文件或嵌入到单元格，只是实现方式不同而已。
  

larer

一看就是一个好贴子!

扑腾

留个记号，慢慢消化

龍膽草

wodewan 发表于 2020-12-18 10:42
哈哈，开贴就没必要了，当初的目的是想在正常系统环境和无须额外插件的情况下，VBA调用其他语言的第三方 ...

谢谢老师的无私分享，留个记号慢慢理解。

YANWEI82123300

好例子！如果能够批量生成二维码，并且对应到相关单元格更好。谢谢分享

wodewan

YANWEI82123300 发表于 2020-12-22 12:09
好例子！如果能够批量生成二维码，并且对应到相关单元格更好。谢谢分享

可批量，可指定单元格，可设置图片大小，单元格自适应图片大小，按钮放到上面的customer UI里，这样各个sheet都可以方便调用。
其实就是加个循环和一些单元格和图片设置，1楼附件已更新，供参考。