小编shi*_*gzy的帖子

我试图通过使用VBA获得在Excel中生成的Code 128条形码.我找到了一个VBA类,有人通过VBForums制作和共享(后来修改为与Excel VBA一起使用),但是我遇到了让它运行起来的问题.

如果我在启用Excel宏的电子表格中使用下面的代码,则在尝试对任何输入使用Code128_Str()函数时会出现#VALUE错误.

我缺乏正确调试代码所需的技能.如果这个脚本可以纠正,我认为这对许多尝试这样做的人来说非常有用.有问题的脚本使用免费字体生成相关的Code 128输出条形码.

参考文献:http: //www.barcodeman.com/info/c128.php3(字体下载) http://www.vbforums.com/printthread.php?t=514742&pp=40&page=1(原始论坛主题与代码)

' ***    Made By Michael Ciurescu (CVMichael)   ***
'Modified by Paulo Cunha (pcunha) to work with char128.ttf on word or excel on 16/05/2011
'the font at in http://grandzebu.net/index.php?page=/informatique/codbar-en/code128.htm


' References:
' http://www.barcodeman.com/info/c128.php3

Private Enum eCode128Type
    eCode128_CodeSetA = 1
    eCode128_CodeSetB = 2
    eCode128_CodeSetC = 3
End Enum

Private Type tCode
    ASet As String
    BSet As String
    CSet As String
    BarSpacePattern As String
End Type

Private CodeArr() As tCode …