条形码中文显示为问号的问题_条形码中文显示为问号的问题怎么解决

解决方案分析

1. 问题根源：线性条形码控件（如Code128）通常仅支持ASCII字符集，直接输入中文会导致编码失败。

2. 推荐方案：改用二维码控件（如QR Code），因其原生支持UTF-8编码，完美兼容中文。

优化后的代码（二维码方案）

' 获取中文文本

Dim chineseText As String

chineseText = ListBox1.List(selectedRow, GetListBoxColumnIndex(ListBox1, "存货名称")) & _

vbCrLf & _

ListBox1.List(selectedRow, GetListBoxColumnIndex(ListBox1, "规格"))

' 使用二维码控件（替换原条形码控件）

With Sheets("Sheet1").Shapes("QRCodeCtrl1") ' ※需先在Sheet1插入二维码控件并命名

.DrawingObject.Object.Value = chineseText

.DrawingObject.Object.QRCodeErrorCorrection = 2 ' 中级容错率

End With

> 需完成的前置操作：

> 1. 删除原条形码控件（`BarCodeCtrl1`）

> 2. 通过开发者工具栏插入新控件：`Microsoft QR Code Control` → 命名为`QRCodeCtrl1`

备用方案（如需坚持使用线性条形码）

' 将中文转换为拼音（需安装中文语言包）

Dim pyName As String

pyName = Application.WorksheetFunction.PHONETIC( _

ListBox1.List(selectedRow, GetListBoxColumnIndex(ListBox1, "存货名称")) _

)

Dim pySpec As String

pySpec = Application.WorksheetFunction.PHONETIC( _

ListBox1.List(selectedRow, GetListBoxColumnIndex(ListBox1, "规格")) _

)

Sheets("Sheet1").Shapes("BarCodeCtrl1").DrawingObject.Object.Value = _

pyName & vbCrLf & pySpec

> 注意：此方案依赖系统中文语言包，且输出为拼音而非中文。

实施建议

1. 首选二维码方案：100%解决中文问题，扫描识别率更高。

2. 若需兼容旧扫描枪：

' 在拼音方案中添加ASCII转义

pyName = StrConv(pyName, vbNarrow) ' 全角转半角

pySpec = Replace(pySpec, " ", "") ' 移除空格

> 测试建议：生成后使用微信/支付宝扫码测试中文显示，确保无需额外解码即可识别。

通过以上优化，可彻底解决中文显示问号问题。推荐优先实施二维码方案，其适应性和兼容性最佳。