Tạo QR Code bằng VBA sử dụng API của Google

[ngduychien]

Trong quá trình thiết kế AddIns phụ vụ nhu cầu của cá nhân, tôi có tìm kiếm và sử dụng ba hàm này để tạo QR Code. Chia sẻ cùng anh em trên group nhé.
Hàm lấy QR Code từ API

Mã:

Sub InsertQR()
Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
Dim Size: Size = 250 'dalam Pixels
Dim QR, Name, val
Dim Invalid: Invalid = "\/:*?" & """" & "<>|"
For Each val In Selection
Name = val.Value
For intChar = 1 To Len(Name)
If InStr(Invalid, LCase(Mid(Name, intChar, 1))) > 0 Then
MsgBox "The file: " & vbCrLf & """" & Name & """" & vbCrLf & vbCrLf & " is invalid!"
Exit Sub
End If
Next
QR = "http://chart.googleapis.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chl=" & Name
xHttp.Open "GET", QR, False
xHttp.Send
With bStrm
.Type = 1 '//binary
.Open
.write xHttp.responseBody
.savetofile ThisWorkbook.Path & Application.PathSeparator & Name & ".png", 2 '//overwrite
.Close
End With
Next
End Sub

Hàm chèn QR Code tạo được vào Sheet đang mở

Mã:

Function ShowPic(PicFile As String) As String
Dim AC As Range
On Error GoTo Done
Set AC = Application.Caller
ActiveSheet.Shapes.AddPicture(ThisWorkbook.Path & Application.PathSeparator & PicFile, False, True, AC.Left, AC.Top, 30, 30).Name = "QR"
ShowPic = ""
Exit Function
Done:
ShowPic = "Error"
End Function

Và

Mã:

Sub PutTheQR()
Dim val As String
val = ActiveCell.Offset(0, -1).Value
Do While val <> ""
ActiveCell.FormulaR1C1 = "=ShowPic(RC[-1])"
ActiveCell.ClearContents
ActiveCell.Offset(1, 0).Activate
val = ActiveCell.Offset(0, -1).Value
Loop
End Sub

 

[Ngày mai trời lại sáng]

Trong quá trình thiết kế AddIns phụ vụ nhu cầu của cá nhân, tôi có tìm kiếm và sử dụng ba hàm này để tạo QR Code. Chia sẻ cùng anh em trên group nhé.
Hàm lấy QR Code từ API

Hàm chèn QR Code tạo được vào Sheet đang mở

Và

Bạn có cái nào dùng Offline mà tốc độ cao không, cho mình với.

 

[snow25]

Bạn có cái nào dùng Offline mà tốc độ cao không, cho mình với.

Cái này trên mạng nhiều mà.Tìm là thấy mà.

 

[Ngày mai trời lại sáng]

Cái này trên mạng nhiều mà.Tìm là thấy mà.

Em có sưu tầm được file này nhưng tốc độ chậm quá, nếu sử dụng để in hàng loạt nhiều tem thì không dùng được.
Bác có sưu tầm được file nào gửi em tham khảo với.

 

[ongke0711]

Bạn có cái nào dùng Offline mà tốc độ cao không, cho mình với.

Tôi có làm 1 file offline dùng thư viện ZXING.DLL

 

[Ngày mai trời lại sáng]

Tôi có làm 1 file offline dùng thư viện ZXING.DLL

Nhanh quá anh ạ, có lẽ qrcode excel vba tốc độ không được nhanh bằng ngôn ngữ khác.

 

[ongke0711]

Nhanh quá anh ạ, có lẽ qrcode excel vba tốc độ không được nhanh bằng ngôn ngữ khác.

chỉ là VBA Access thôi bạn.

 

[batman1]

chỉ là VBA Access thôi bạn.

Code VBA thì dùng bên Access hay Excel hay Word đều được. Nhưng tôi không thích dùng kết nối sớm vì mình thêm reference nhưng gửi cho người khác thì rất có thể người ta có MISSING. Ngay việc đăng ký thôi đã làm nhiều người vã mồ hôi hột.

Trong trường hợp này việc đăng ký chỉ là phải chuột rồi chạy với quyền administrator nên đơn giản.



Bài #6 nói về nhanh chậm chắc nói về code tạo QR code trong ZXing.dll. Rõ ràng không có VBA gì ở đấy. Và so sánh với qrcode excel vba trong bài #4. Tất nhiên code trong ZXing.dll không dính dáng gì tới VBA, nhưng chắc chắn cả kỹ thuật cũng không phải như trong bài #4.

 

[ngduychien]

Tôi có làm 1 file offline dùng thư viện ZXing.dll cho mọi người được không?

Bạn có thể chia sẻ cách sử dụng thư viện

 

[ongke0711]

Bạn có thể chia sẻ cách sử dụng thư viện

Tôi có ghi chi tiết phía dưới video đó bạn.

 

[ongke0711]

Code VBA thì dùng bên Access hay Excel hay Word đều được. Nhưng tôi không thích dùng kết nối sớm vì mình thêm reference nhưng gửi cho người khác thì rất có thể người ta có MISSING. Ngay việc đăng ký thôi đã làm nhiều người vã mồ hôi hột.
Trong trường hợp này việc đăng ký chỉ là phải chuột rồi chạy với quyền administrator nên đơn giản.
Bài #6 nói về nhanh chậm chắc nói về code tạo QR code trong ZXing.dll. Rõ ràng không có VBA gì ở đấy. Và so sánh với qrcode excel vba trong bài #4. Tất nhiên code trong ZXing.dll không dính dáng gì tới VBA, nhưng chắc chắn cả kỹ thuật cũng không phải như trong bài #4.

Đúng là trước đây cũng dùng cái trang mà anh đã chia sẻ lúc trước thuần VBA để tạo QR code (link).
Sau này thấy có cái thư viện của Zxing viết sẳn, chạy tốt nên dùng luôn cho tiện. Nó có code gốc từ Java, sau đó được port sang nhiều ngôn ngữ khác để sử dụng như: .Net, C++, Python, Javascript...

 

[HeSanbi]

So với trang này, API google chỉ là biết chơi cho vui thôi:
https://www.qrcode-monkey.com/
Thời đại công nghệ sự dụng API hết rồi, các bác chớ trót tải thư viện cài đặt cho phiền hà.

 

[Ngày mai trời lại sáng]

So với trang này, API google chỉ là biết chơi cho vui thôi:
https://www.qrcode-monkey.com/
Thời đại công nghệ sự dụng API hết rồi, các bác chớ trót tải thư viện cài đặt cho phiền hà.

Cảm ơn anh,anh có thể viết một ứng dụng tạo qrcode offline siêu tốc độ bằng excel mà không sử dụng thư viện liên kết ngoài được không ạ.

 

[HeSanbi]

Cảm ơn anh,anh có thể viết một ứng dụng tạo qrcode offline siêu tốc độ bằng excel mà không sử dụng thư viện liên kết ngoài được không ạ.

Lên sao hỏa con người còn làm được, mã VBA tạo barcode thôi thì có gì mà khó bạn

Xin lỗi các bạn mình quên chỉ dẫn:
Dưới đây là thư viện QRCodeLib của một anh Nhật Bản, ảnh dựa trên phát minh của công ty Denso Wave, nên mã được chia sẻ nguồn mở.
Dựa trên phát minh người khác là không được phép nói mình sở hữu nhé các bạn.

Mã duy nhất chỉ sử dụng VBA.

Tôi khuyên các bạn không nên sử dụng thư viện này bởi vì nó gây tốn kém và tiêu hao tài nguyên khi khởi động Excel.
Các bạn nên sử dụng API online rất dễ dàng, nhanh chóng và gọn lẹ hơn rất là nhiều.

GitHub - yas78/QRCodeLibVBA: QR Code generator library in VBA

QR Code generator library in VBA. Contribute to yas78/QRCodeLibVBA development by creating an account on GitHub.

github.com

 

[Ngày mai trời lại sáng]

Lên sao hỏa con người còn làm được, mã VBA tạo barcode thôi thì có gì mà khó bạn

khiếp quá cả rừng module và class mà anh làm vèo cái xong

 

[HeSanbi]

khiếp quá cả rừng module và class mà anh làm vèo cái xong

Nhờ "đệ" làm, mình rảnh đâu làm bạn. Tìm google chia sẻ cái mà "móc xỉa quá" bạn ơi.

 

[befaint]

Lấy đâu thì phải ghi rõ nguồn.

Không ghi rõ nguồn là ấy ấy lắm.

QRCodeLibVBA/bin at master · yas78/QRCodeLibVBA

QR Code generator library in VBA. Contribute to yas78/QRCodeLibVBA development by creating an account on GitHub.

github.com

Ví dụ:

GitHub - JonasHeidelberg/barcode-vba-macro-only: Barcode generator for LibreOffice and MSOffice as pure VBA macro... with a critical bug fixed compared to the version on code.google.com

Barcode generator for LibreOffice and MSOffice as pure VBA macro... with a critical bug fixed compared to the version on code.google.com - JonasHeidelberg/barcode-vba-macro-only

github.com

barcode-vba-macro-only/barcody.bas at master · JonasHeidelberg/barcode-vba-macro-only

Barcode generator for LibreOffice and MSOffice as pure VBA macro... with a critical bug fixed compared to the version on code.google.com - JonasHeidelberg/barcode-vba-macro-only

github.com

 

[VuVanHao]

Nhân tiện có chủ đề Qr code đang rôm rả, các bác cho em hỏi vấn đề này với ạ:
Trước em có làm Qr trên trang này: https://vi.qr-code-generator.com/ . Nó cho chèn logo vào thấy cũng đẹp, lại còn thống kê được số người quét mã, cả ở khu vực luôn. Vì e dùng miễn phí nên khi dừng các mã quét không ra được nữa (Nội dung mã là url web công ty)
Các bác cho hỏi làm sao nó có thể chặn mã đó được vậy ạ, vì trước đó em dùng các app web bình thường (Không phải như bọn app icheck). Bác nào giải thích giúp cho em thông tỏ mới
Em cảm ơn!

 

[Mr.hieudoanxd]

Với rừng code trong addin kia thì sử dụng như thế nào nhỉ
Ai chỉ em được không?

 

[befaint]

Chính chủ người ta đề mô sẵn hết rồi đó. Chứ trôm về tự nhận vơ sao biết được.

Với rừng code trong addin kia thì sử dụng như thế nào nhỉ

Bạn vào đây tải file ví dụ nhé.

QRCodeLibVBA/bin at master · yas78/QRCodeLibVBA

QR Code generator library in VBA. Contribute to yas78/QRCodeLibVBA development by creating an account on GitHub.

github.com