如何使用word或excel批量生成排版条形码

钱途迷茫

效果如下，一行三个，一页上排24个条码，手工排版太累了

JackLei

使用FFCELL的图片工具就行[img]%5Burl=https://imgse.com/i/pk9JCA1%5D[/url][/img]

JackLei

VBA也可以

[Visual Basic] 纯文本查看 复制代码

Sub GenerateBarcodeWithName()
    ' 声明变量
    Dim bc As Barcode
    Dim ws As Worksheet
    Dim cell As Range
    Dim barcodeName As String
    Dim barcodeValue As String
    Dim barcodeImage As Picture
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 遍历每个单元格，生成条形码
    For Each cell In ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        ' 条形码名称和值
        barcodeName = cell.Offset(0, 1).Value ' 假设名称在相邻列
        barcodeValue = cell.Value
        
        ' 创建条形码对象
        Set bc = Barcode(barcodeValue, "Code128") ' 假设条形码类型为Code128
        
        ' 在单元格下方插入条形码图片
        Set barcodeImage = ws.Pictures.Insert(bc.Picture, cell.Offset(1, 0).Left, cell.Offset(1, 0).Top)
        
        ' 重设图片大小
        barcodeImage.ShapeRange.LockAspectRatio = msoFalse ' 解锁纵横比
        barcodeImage.Width = 300 ' 设置宽度
        barcodeImage.Height = 50 ' 设置高度
        
        ' 清理对象
        Set bc = Nothing
    Next cell
End Sub

pxhzai

抖音搜  有教程

jyjjf

你也可以试试这个报表工具，然后进行类似的套打工作，
https://www.52pojie.cn/forum.php ... 8%B1%ED%B9%A4%BE%DF

jys159

我有个相对不是那么高大尚的办法，用Word的邮件功能，前提是你条形码图片的名称有规律，比如B01.JPG    B02.JPG    B03.JPG等，没有规律也没事，你有这个所有条形码图片的名称；第二步，在Excel中弄一个表格，做24列数据，每一行是24列，可以有若干行，每一个格子里放入条形码图片的名称，包含后缀，例如B01.JPG    B02.JPG    B03.JPG。然后你在Word中新建页面，排一页版，按你要求的，插入8行3列的一个表格（表格用虚框，只为了分格大小定位，打印不出来。），设定好大小。下一步就是，引用-邮件，设定插入Word的对应刚才表格数据源，预览邮件，没问题就生成即可。曾经我给项目上几百个工人用此方法打印过胸卡，胸卡上的照片就是如此办法插入的。

freelive

c#批量条码生成软件，一键导出Excel
https://www.52pojie.cn/thread-1703632-1-1.html

xqiushi

我也正好在找相关工具。谢谢了。