VBA 草料二维码

youngkqs

zpy2 发表于 2018-9-23 05:48
在线批量生成

谢大神，这样生成之后，还得一个一个重新复制进入Excel，然后打印。

我的需求：有一系列数据，按某一格式打印（比如标签），其中，部分数据会以二维码形式显示。所以在按标签进行打印的时候，每一组数据需要写入格式，也需要将其中部分数据生成二维码，然后打印本组数据。所以，其实对二维码的需求，是【将数据转换成二维码，然后插入指定位置】。现在我的问题是：系统、OFFICE都是64位的，不能调用QRMaker（总是注册不成功，网上的注册方法基本都试过了），所以才会想着用网络的API接口。


我现在换了一个新的接口，OK了。不过就是速度太慢啦。

1. Function 生成二维码(ByVal Str As String, ByVal Rng As Range)
   
2.     Dim YB
   
3.     Set YB = Sheet1
   
4.     URL = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & Str
   
5.     ActiveSheet.Pictures.Insert(URL).Select
   
6.    
   
7.     With Selection
   
8.         .Top = Rng.Top + 1
   
9.         .Left = Rng.Left + 1
   
10.         .Width = Rng.Width - 2
    
11.         .Height = Rng.Height - 2
    
12.     End With
    
13. End Function

复制代码

youngkqs

fxl447098457 发表于 2018-9-22 14:09
还是用论坛里的插件或者二维码方案吧。。搞那么麻烦干啥。。网络环境又不稳定。。

大神，我现在换了个新的接口OK了，不过如你所说，太慢了。我系统win7 64位、Excel 64位，总是注册不了QRMaker，网上的方法基本都试过了，都注册不了。求指导。谢谢

1. Function 生成二维码(ByVal Str As String, ByVal Rng As Range)
   
2.     Dim YB
   
3.     Set YB = Sheet1
   
4.     URL = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & Str
   
5.     ActiveSheet.Pictures.Insert(URL).Select
   
6.    
   
7.     With Selection
   
8.         .Top = Rng.Top + 1
   
9.         .Left = Rng.Left + 1
   
10.         .Width = Rng.Width - 2
    
11.         .Height = Rng.Height - 2
    
12.     End With
    
13. End Function

复制代码

andysky

E灵 插件8.0版就好
下载：https://pan.baidu.com/s/1l77-1PFZSJCs3M4Mf0WfYw

约定的童话

lujkhua 发表于 2018-9-22 14:20
调用第三方或网络的都不是理想的二维码
下面演示的是全脱机二维码

大师，这个插件叫啥？
链接来一个

lujkhua

约定的童话 发表于 2018-9-23 11:52
大师，这个插件叫啥？
链接来一个

下载地址：https://pan.baidu.com/s/10z1b-u6Tms-Fr6INJ8BrrQ

gaozengxun

lujkhua 发表于 2018-9-22 14:20
调用第三方或网络的都不是理想的二维码
下面演示的是全脱机二维码

感谢大神，你看到这个连接了。

zpy2

youngkqs 发表于 2018-9-23 08:27
谢大神，这样生成之后，还得一个一个重新复制进入Excel，然后打印。

我的需求：有一系列数据，按某一 ...

url='http://e.anyoupin.cn/pdo/eh/a10/create_qr.php?value=' & data
我试了一下虽然是国外的服务器感觉还行，你也可以把url换成这个接口试试。