自动批量生成条形码，可能你用得上，欢迎进来看看

雨后阳光79 · 发表于 2016-9-22 13:21

大侠，点击运行后，报错，打开VBA后在第20行标黄，为什么？
ActiveSheet.PasteSpecial Format:="Unicode 文本", Link:=False, DisplayAsIcon:=False

huang1314wei · 发表于 2016-9-22 14:19

雨后阳光79 发表于 2016-9-22 13:21
大侠，点击运行后，报错，打开VBA后在第20行标黄，为什么？
ActiveSheet.PasteSpecial Format:="Unicode ...

把这一句代码改成ActiveSheet.Paste试试，理论上是一样的

jjmysjg · 发表于 2016-9-22 19:59

留下记号，太有用了

rxgs · 发表于 2016-11-2 09:34

要是能脱离那个网站就好了，要不网站关闭了，就没法用了。。。

rxgs · 发表于 2016-11-7 13:19

没有网络的朋友可以用这个软件 Barcode Producer，按照 txt文档内容批量生成二维码。

fbcli · 发表于 2016-12-23 16:27

大神求助，程序运行是下列出错，提示不能去的类worksheet的pictures属性

Rows(4 & ":" & i).RowHeight = ActiveSheet.Pictures(1).Height + 8

huang1314wei · 发表于 2016-12-23 16:40

本帖最后由 huang1314wei 于 2016-12-26 21:34 编辑

fbcli 发表于 2016-12-23 16:27
大神求助，程序运行是下列出错，提示不能去的类worksheet的pictures属性

Rows(4 & ":" & i).RowHeight ...

一楼代码及附件由于网站规则改变，导致不能使用，现更新代码如下：

Sub 生成条码()
Dim i%, str1$, str2$, str3$, d As Object
Set d = New DataObject
Application.ScreenUpdating = False
If Application.CountA(Range("A:A")) = 0 Then
MsgBox "A列单号为空，程序退出!"
Exit Sub
Else
i = Range("A1048576").End(xlUp).Row
For j = 1 To i
If Cells(j, 1) <> "" Then
str1 = "<table><img src=""http://apps.99wed.com/360app/barcode/barcode.php?codebar=BCGcode128&text="
str2 = "&resolution=2&thickness=30"" > "
str3 = str3 & str1 & Cells(j, 1) & str2 & Chr(10)
End If
Next
d.SetText str3
d.PutInClipboard
Range("B1").Select
ActiveSheet.PasteSpecial Format:="Unicode 文本", Link:=False, DisplayAsIcon:=False
Columns(1).HorizontalAlignment = xlCenter
Columns(1).VerticalAlignment = xlCenter
Rows(1 & ":" & i).RowHeight = ActiveSheet.Pictures(1).Height
Columns(2).ColumnWidth = ActiveSheet.Pictures(1).Width / 6.13
End If
Application.ScreenUpdating = True
End Sub

复制代码

更新的附件如下，请下载新附件使用

fbcli · 发表于 2016-12-23 17:17

huang1314wei 发表于 2016-12-23 16:40
把你出错附件发上来

大神好，附件请查看，感激不尽。。。格式几乎没动，您打开就明白

huang1314wei · 发表于 2016-12-23 19:11

fbcli 发表于 2016-12-23 17:17
大神好，附件请查看，感激不尽。。。格式几乎没动，您打开就明白

原因找到了，该条形码网站可耻的加了防盗链，看来得找下一家网站了

huang1314wei · 发表于 2016-12-23 19:25

fbcli 发表于 2016-12-23 17:17
大神好，附件请查看，感激不尽。。。格式几乎没动，您打开就明白

代码已经修改

附件已修改.rar (24.76 KB, 下载次数: 529)

		自动登录	找回密码
密码			免费注册

[分享] 自动批量生成条形码，可能你用得上，欢迎进来看看