用網上找的小程式和小代碼小改了一下,現在可以用宏把EXCEL表格已選擇內容合并 將合并后內容生成一個二維碼
但是現在用微信掃這個碼中英文都沒問題
用搜狗瀏覽器掃后中文全是亂碼,悲劇的是我們公司要掃碼的機器掃了中文也是亂碼
我猜是不是對UTF-8不支持的原因?可是我將EXCEL保存成UTF-8后生成的碼依然亂碼
求大神幫幫我
用的是QRMAKER.exe
下面是制碼小軟體的下載地址
http://pan.baidu.com/s/1i3slZeP
如果有別的辦法,不用這個小軟體也行,求大神教教我!!
現在代碼如下:
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", "3", x, y, q)
Cells(x, y) = a
x = x + 1
Next u
End Sub
Function MK_QR(Enc_Dat, ECL, SIZ, x, y, q)
Dim F_Name As String
F_Name = "[" & ActiveWorkbook.Name & "]" & ActiveSheet.Name & "!" & ActiveCell.Address
Point01 = Shell("""" & "D:\QRmake.exe""" & " /S" & SIZ & " /L" & ECL + 1 & " /O""" & ThisWorkbook.Path & "\" & F_Name & ".bmp"" /T""" & Enc_Dat & """")
Point02 = OpenProcess(&H100000, 1, Point01)
Point03 = WaitForSingleObject(Point02, &HFFFFFFFF)
Point03 = CloseHandle(Point02)
Point01 = Empty
Point02 = Empty
Point03 = Empty
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
uj5u.com熱心網友回復：
我也和你一樣，遇到的問題也一樣，不知道怎么解決，你的現在解決好了沒？uj5u.com熱心網友回復：
你好，我也遇到同樣的問題，我在17年的時候解決過這個問題，但到現在快有兩年沒碰過全忘了，現在怎么也想不起來怎么解決了，如果你找到了解決辦法，麻煩您能告訴我下。謝謝了。轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/66893.html
標籤：其他數據庫
上一篇：pgsql的基于時間點恢復的困惑