VBA代码生成二维码

失败了 · 发表于 2022-9-19 00:24

求助！希望各位老师能帮我解惑，我用网上调用草料二维码的VBA代码生成二维码，链接没问题可以有图片，但是插入Excel表格时失败。代码如下

Sub BarCodeCtrl1_GotFocus()
lastrow = Range("a10000").End(xlUp).Row

For i = 1 To lastrow
Cells(i, 5).Select
Url = "https://cli.im/api/qrcode/code?text=" & Cells(i, 1) & Chr(10) & Cells(i, 2) & Chr(10) & Cells(i, 3) & Chr(10) & Cells(i, 4)

ActiveSheet.Shapes.AddPicture(Url, False, True, 1, 1, 100, 100).Select
Set Rng = Cells(i, 5)
With Selection
.Top = Rng.Top + 1
.Left = Rng.Left + 1
.Width = Rng.Width - 2
.Height = Rng.Height - 2
End With
Next

End Sub

草料二维码api链接 :https://cli.im/api/qrcode/code?text=K2022S8X2002;CPT3-G21-517001
执行后图片如下图

zpy2 · 发表于 2022-9-19 05:45

url="http://e.anyoupin.cn/pdo/eh/a10/create_qr.php?value=" & data

如果每天量不是很多，可以试试这个接口

约定的童话 · 发表于 2022-9-19 08:14

论坛有版主分享的离线二维码源码

02761752696 · 发表于 2022-9-19 08:32

二维码地址不对

失败了 · 发表于 2022-9-19 09:15

约定的童话发表于 2022-9-19 08:14
论坛有版主分享的离线二维码源码

您好，我找了没有找到，能分享一下吗？

失败了 · 发表于 2022-9-19 09:16

zpy2 发表于 2022-9-19 05:45
url="http://e.anyoupin.cn/pdo/eh/a10/create_qr.php?value=" & data

如果每天量不是很多，可以试试这 ...

每天的量不小，

opiona · 发表于 2022-9-19 09:58

不联网无数量限制
https://club.excelhome.net/thread-1535960-1-1.html

		自动登录	找回密码
密码			免费注册

[求助] VBA代码生成二维码