纯VBA生成二维码(QRCODE)无任何第三方控件(技术原型版)

msyous · 发表于 2019-9-15 11:59

很有用，谢谢分享。

用心修炼 · 发表于 2019-9-15 21:22

先收藏，后面慢慢学习

qihang15 · 发表于 2019-9-24 14:59

非常强大，学习中，非常感谢！

boycyq · 发表于 2019-9-30 10:17

很好很强大

gaozengxun · 发表于 2020-2-21 21:25

这个太牛逼了，这个可能派上用场。

五指山888 · 发表于 2020-2-21 21:49

感谢楼主分享，很好很强大！

alecvba · 发表于 2020-3-21 19:41

Public Sub QRMain(InputStr As String, Optional ECL As ECLevelType = ECL_L) 提示类型不匹配？请指教！

xieweixiang22 · 发表于 2020-3-21 20:45

感谢楼主分享

淡__ · 发表于 2020-3-22 22:06

tandke 发表于 2016-4-1 19:30
出现编译错误

#If Win64 Or VBA7 Then
Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As Long, ByVal lpMultiByteStr As LongPtr, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
#Else
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
#End If

改成这个,就阔以了

wwin80 · 发表于 2020-5-9 09:20

谢谢大师分享

		自动登录	找回密码
密码			免费注册

[原创] 纯VBA生成二维码(QRCODE)无任何第三方控件(技术原型版)

评分