0

我需要生成一整张 QR 码（最终大约 1000 个），我正在尝试在 Excel 2016 中自动生成，我目前设置了一张表格并使用 Google API 有一个生成器的 URL，我只是更改了网址中的 ID 号，以便我制作下一个代码并将我带到正确的位置。我不想手动去获取代码并将其复制到我的每个文档中。

有没有人有任何想法可以帮助我，我已经设置了前 10 个，这可以在随附的屏幕截图中看到。

在此处输入图像描述

谢谢

4

2 回答 2

1

您可以将此 VBA 代码用于 Excel 文件，然后您必须选择要为其创建 QR 码的单元格，然后按 (Alt+F8) 运行代码“InsertQR” VBA 代码将创建 QR每个选定单元格的代码为 PNG 文件。注意：您必须连接到互联网

Sub InsertQR()
    Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
    Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
    Dim size: size = 500 'dalam Pixels
    Dim QR, Name, val
    Dim Invalid: Invalid = "\/:*?" & """" & "<>|"
    For Each val In Selection
        Name = val.Value
        For intChar = 1 To Len(Name)
            If InStr(Invalid, LCase(Mid(Name, intChar, 1))) > 0 Then
                MsgBox "The file: " & vbCrLf & """" & Name & """" & vbCrLf & vbCrLf & " is invalid!"
                Exit Sub
            End If
        Next
        QR = "http://chart.googleapis.com/chart?chs=" & size & "x" & size & "&cht=qr&chl=" & Name
        xHttp.Open "GET", QR, False
        xHttp.Send
        With bStrm
            .Type = 1 '//binary
            .Open
            .write xHttp.responseBody
            .savetofile ThisWorkbook.Path & "\" & Name & ".png", 2 '//overwrite
            .Close
        End With
    Next
End Sub
于 2020-11-29T09:13:20.817 回答
0

这是我能找到的与您正在尝试做的最接近的事情。

https://sites.google.com/site/e90e50fx/home/generate-qrcode-with-excel

它会生成一个 QR 码图像，但我无法让它为多个单元格值执行此操作。

于 2017-11-16T01:28:45.067 回答