excel生成二维码方法

Sub GenerateQRCode()
    Dim qrCode As Object
    Dim rangeToEncode As Range
    Dim cell As Range
    
    ' 设置二维码生成器对象
    Set qrCode = CreateObject("WScript.Shell")
    
    ' 获取要生成二维码的单元格范围
    Set rangeToEncode = Application.InputBox("请选择要生成二维码的单元格范围：", Type:=8)
    
    ' 循环生成二维码
    For Each cell In rangeToEncode
        ' 调用二维码生成器生成二维码图片
        qrCode.Run "cmd /c qrencode -o " & cell.Address & ".png " & cell.Value
        
        ' 将生成的二维码图片插入到单元格中
        cell.Select
        ActiveSheet.Pictures.Insert(cell.Address & ".png").Select
        Selection.ShapeRange.LockAspectRatio = msoFalse
        Selection.ShapeRange.Height = cell.RowHeight
        Selection.ShapeRange.Width = cell.Width
        Selection.ShapeRange.Top = cell.Top
        Selection.ShapeRange.Left = cell.Left
        Selection.ShapeRange.Placement = xlMoveAndSize
        
        ' 删除生成的二维码图片
        Kill cell.Address & ".png"
    Next cell
    
    ' 清理对象
    Set qrCode = Nothing
End Sub