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

dongwenquan

太感谢了，真正的无私，我建议楼主封装做成函数，直接生成图片

ivccav

2006的标准已经很落后了。现在是2015的标准。

不知谁能网抓这个标准的文件：

http://www.doc88.com/p-3708684324535.html

lon91ong

jackyjingwang 发表于 2014-1-8 15:51
看上去很强大
我是64位的机器，好像出错，不知咋修改呀
能改进一下吗

头部的WideCharToMultiByte声明作如下修改：

1. #If Win64 Then
   
2.     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
   
3. #Else
   
4.     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
   
5. #End If

复制代码

w8899

修改过的可以更改大小，位置

zsmtch

64位在申明API时，在function前加关键字ptrsafe

ctyctj1

佩服，厉害，神一般的操作

horselyq

太强大了，请收下我的膝盖。

ljjldd

必须赞一个！

felix301

ttui 发表于 2015-6-25 09:58
因为有可能用到做了更新优化，从类改为过程，从在单元格里面画二维码改为生成BMP图片，速度加快很多，更主 ...

您好  根据您的代码生成一个文件的路径作为二维码的时候 发现路径“\”在扫描出来会是双斜杠"\\"

请求您协助处理，万分感谢

peter-chen

很好很强大,STUDY