VBA批量生成条形码的代码

以下是使用VBA批量生成条形码的示例代码：

Sub GenerateBarcodes()
    Dim i As Integer
    Dim bc As String
    Dim barcode As Object
    Dim rng As Range
    
    Set barcode = CreateObject("Code39.Barcode")
    
    Set rng = Application.InputBox("Select range to generate barcodes", , Selection.Address, , , , , 8)
    
    For i = 1 To rng.Cells.Count
        bc = rng.Cells(i).Value
        If Len(bc) > 0 Then
            barcode.Value = bc
            barcode.ShowText = False
            barcode.SaveAsPicture "C:\Barcodes\" & i & ".jpg", 300, 150
        End If
    Next i
    
    Set barcode = Nothing
    
    MsgBox "Barcodes generated successfully!"
End Sub

这个代码使用了Code39.Barcode对象来生成条形码。它提示用户选择要生成条形码的单元格范围，然后循环遍历范围中的每个单元格并生成条形码。生成的条形码将保存在C:\Barcodes\文件夹中，文件名为单元格的序号。在生成条形码之前，代码还会检查单元格的值是否为空，以避免生成无效的条形码。