EXCEL调用QRMAKER.exe生成二维码 不完全支持中文 (好像是因为对ASIC及UTF-8支持不完善)

Question

现在可以把框起来的区域逐行合并,在每行最后生成二维码
但是生成的二维码用微信扫有中文,用搜狗浏览器扫就没有中文,我们公司的扫码软件扫了中文全部乱码
我看了一个别人写的,好像他的有对ASIC和UTF-8的支持,生成的码扫描后中文正常
求大神帮忙给我这个加上对ASIC和UTF-8的支持
代码如下:

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Point01 As Long, Point02 As Long, Point03 As Long
Private i As Integer

Sub makeQRcode()

Dim x, y, i As Integer

x = ActiveCell.Row
y = ActiveCell.Column
p = Selection.Rows.Count
q = Selection.Columns.Count

For u = 1 To p Step 1
a = Cells(x, y)

For i = 1 To q - 1 Step 1
Cells(x, y) = Cells(x, y) & "##" & Cells(x, y + i)

Next i

Cells(x, y + q + 1) = Cells(x, y)

If Dir("D:\QRmake.exe") = "" Then
MsgBox "QRmake.exe文件丢失，请确认！", vbCritical, "外部程序调用"
Exit Sub
End If
i = MK_QR(Cells(x, y), "10", "5", x, y, q)
Cells(x, y) = a

x = x + 1
Next u
End Sub
Cells(x, y + q).Select
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & F_Name & ".bmp")
.Left = ActiveCell.Left
.Top = ActiveCell.Top
End With
'将已经生成的二维码图像删除
Kill (ThisWorkbook.Path & "\" & F_Name & ".bmp")
ActiveCell.Offset(0, -1).Select
End Function

Answer 1

SP_CONFIGURE 'SHOW ADVANCED OPTIONS',1
RECONFIGURE
EXEC SP_CONFIGURE 'Ad Hoc Distributed Queries',1
RECONFIGURE
插入的代码：
INSERT INTO dbo.Resources(ResourcesUrl,ResourcesLink,ResourcesText) SELECT * FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0',
'Excel 8.0;HDR=YES;Database=F:\Book1.xls', [sheet1$])追问

多谢兄弟了.
可是这个用不了啊
还有点疑问,
SP_CONFIGURE 'SHOW ADVANCED OPTIONS',1
RECONFIGURE
EXEC SP_CONFIGURE 'Ad Hoc Distributed Queries',1
RECONFIGURE
这一段放在哪里

后面插入的代码插在哪里?我放在哪里都是红色的错误
每行大概是什么意思呢

Answer 2

兄弟我和你一样的问题，扫描数字和字母是正常的，带汉字的就出现乱码，我目前也没有很好的解决方案，带有个笨方法，就是百度输入法扫描可以显示汉字，像什么搜狗其他的扫描全是乱码，你的解决好了没？解决好了也帮帮我，我这也需要更好的方法。谢谢了，我的手机微信号 13197082065

Answer 3

可使用NPSExcel二维码函数来生成，还支持中文