如何用VBA批量生成条形码或者二维码，哪种码更简单实用，兼容性也好？

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    t = Timer
    Dim wb As Workbook, sht As Worksheet, sh As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    r = sht.Cells(Rows.Count, 1).End(3).Row
    arr = sht.[a1].Resize(r)
    For Each shp In sht.Shapes
        If shp.Name Like "按钮*" = False And shp.Name Like "Button*" = False Then
            shp.Delete
        End If
    Next
    For i = 2 To r
        If hz(arr(i, 1)) = False Then
            sht.Cells(i, 1).RowHeight = 50
            With sht.OLEObjects.Add(classtype:="BARCODE.BarCodeCtrl.1")
                .Object.Style = 7
                .Object.Value = arr(i, 1)
                .Height = sht.Cells(i, 1).Height - 2
                .Width = sht.Cells(i, 1).Offset(, 1).Width - 2
                .Left = sht.Cells(i, 1).Offset(, 1).Left + 0.5
                .Top = sht.Cells(i, 1).Top + 0.5
            End With
        End If
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "共耗时：" & Format(Timer - t, "0.0000") & " 秒！！！", 64
End Sub
Function hz(s)
    '验证汉字
    With CreateObject("vbscript.regexp")
        .Pattern = "[一-龥]"
        .Global = False
        .IgnoreCase = True
        .MultiLine = False
        If .test(s) Then
            hz = True
        End If
    End With
End Function

quqiyuan

这个控件也可以生成二维码的，style改为11就可以了，然后把单元格大小改成正方形，符合你所需要的大小即可。

quqiyuan

barcode不能生成带中文的二维码，需要排除，条形码所有的都不能带中文，请留意。需要中文二维码我认为调用网络api比较方便，

opiona

免费的 纯VBA代码实现二维码 支持64位
见21楼

https://club.excelhome.net/thread-1535960-1-1.html

ddmc

这么密集 条码 或二维码，干什么用？
1、打印商品、产品条码，专用条码打印机自带软件啊。
2、存档，这个条码二维码这么密，谁看？ 人看得懂？？
       条码枪？ 会不会误识别？