VBA 草料二维码

youngkqs

各位大神好，我想调用草料二维码的二维码。代码如下，但是调用之后，总是空白的。

草料二维码接口地址：https://cli.im/api/

材料二维码网址：https://cli.im/

1. Sub 生成二维码()
   
2.     Dim r As String
   
3.     Dim RngY As Range
   
4.     Set RngY = Range("B" & 1)
   
5.     r = 生成二维码Fun(Range("A" & 1) & "20180922", RngY)
   
6.     Range("A1").Select
   
7. End Sub
   
8. 
   
9. 
   
10. Function 生成二维码Fun(ByVal Str As String, ByVal Rng As Range)
    
11.     批量删除条码
    
12. 
    
13.     Dim i%, str1$, str2$, str3$, D As Object
    
14.     Set D = New DataObject
    
15.     Application.ScreenUpdating = False
    
16.     str1 = "<table><img src=""https://cli.im/api/qrcode/code?text="
    
17.     str2 = "&mhid=sELPDFnok80gPHovKdI"" > "
    
18.     str3 = str3 & str1 & Str & str2 & Chr(10)
    
19.     D.SetText str3
    
20.     D.PutInClipboard
    
21.     Rng.Select
    
22.     ActiveSheet.PasteSpecial Format:="Unicode 文本", Link:=False, DisplayAsIcon:=False
    
23.     Selection.ShapeRange.Height = 42
    
24.     Application.ScreenUpdating = True
    
25. End Function
    
26. 
    
27. 
    
28. Sub 批量删除条码()
    
29.     Dim myshape As Shape
    
30.     Application.ScreenUpdating = False
    
31.     For Each myshape In ActiveSheet.Shapes
    
32.        If myshape.Type = msoPicture Then
    
33.           myshape.Delete
    
34.        End If
    
35.     Next
    
36.     Application.ScreenUpdating = True
    
37. End Sub
    

复制代码

1. 
   

复制代码

youngkqs

敬期 各位大神指导

zpy2

img src="https://qr.api.cli.im/qr?data=%2F%2Fcli.im&level=H&transparent=0&bgcolor=%23FFFFFF&forecolor=http%3A%2F%2Fstatic-develop.clewm.net%2Fcli%2Fimages%2Fbeautify%2Ftpl%2Ffg1.jpg&blockpixel=12&marginblock=2&logourl=http%3A%2F%2Fstatic.clewm.net%2Fcli%2Fimages%2Fbeautify%2Flogo%2F01.png&size=400&text=&logoshape=no&fontsize=46&fontfamily=msyh.ttf&fontcolor=%23000000&incolor=&outcolor=%23368af4&background=http%3A%2F%2Fstatic.clewm.net%2Fcli%2Fimages%2Fbeautify%2Ftpl%2Fbg1.png&qrcode_eyes=&wper=0.86&hper=0.86&lper=0.07&tper=0.07&eye_use_fore=1&qrpad=10&kid=cliim&key=1d4951bb16ffd9e147fbf907eafd90fc"

zpy2

这个要xmlhttp发送，生成的二维码带广告的

fxl447098457

还是用论坛里的插件或者二维码方案吧。。搞那么麻烦干啥。。网络环境又不稳定。。

lujkhua

调用第三方或网络的都不是理想的二维码
下面演示的是全脱机二维码

youngkqs

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

你好 主要还涉及批量生成二维码，及后续的打印，所以才需要调用。 是否有其他方法实现上述自动流程？

youngkqs

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

大神，由于我的电脑是64位，Office也是64位，注册总是有问题 有什么方法能注册？谢谢

向東

youngkqs 发表于 2018-9-22 15:52
大神，由于我的电脑是64位，Office也是64位，注册总是有问题 有什么方法能注册？谢谢

供参考：
http://club.excelhome.net/thread-1369455-1-1.html

zpy2

youngkqs 发表于 2018-9-22 15:50
你好 主要还涉及批量生成二维码，及后续的打印，所以才需要调用。 是否有其他方法实现上述自动流程？

在线批量生成