ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 5239|回复: 16

[求助] VBA 草料二维码

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-9-22 11:23 | 显示全部楼层 |阅读模式
本帖最后由 youngkqs 于 2018-9-22 11:29 编辑

各位大神好,我想调用草料二维码的二维码。代码如下,但是调用之后,总是空白的。

草料二维码接口地址:https://cli.im/api/

材料二维码网址:https://cli.im/





  1. Sub 生成二维码()
  2.     Dim r As String
  3.     Dim RngY As Range
  4.     Set RngY = Range("B" & 1)
  5.     r = 生成二维码Fun(Range("A" & 1) & "20180922", RngY)
  6.     Range("A1").Select
  7. End Sub


  8. Function 生成二维码Fun(ByVal Str As String, ByVal Rng As Range)
  9.     批量删除条码

  10.     Dim i%, str1$, str2$, str3$, D As Object
  11.     Set D = New DataObject
  12.     Application.ScreenUpdating = False
  13.     str1 = "<table><img src=""https://cli.im/api/qrcode/code?text="
  14.     str2 = "&mhid=sELPDFnok80gPHovKdI"" > "
  15.     str3 = str3 & str1 & Str & str2 & Chr(10)
  16.     D.SetText str3
  17.     D.PutInClipboard
  18.     Rng.Select
  19.     ActiveSheet.PasteSpecial Format:="Unicode 文本", Link:=False, DisplayAsIcon:=False
  20.     Selection.ShapeRange.Height = 42
  21.     Application.ScreenUpdating = True
  22. End Function


  23. Sub 批量删除条码()
  24.     Dim myshape As Shape
  25.     Application.ScreenUpdating = False
  26.     For Each myshape In ActiveSheet.Shapes
  27.        If myshape.Type = msoPicture Then
  28.           myshape.Delete
  29.        End If
  30.     Next
  31.     Application.ScreenUpdating = True
  32. End Sub
复制代码










复制代码

草料二维码.rar

10.65 KB, 下载次数: 162

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-22 11:23 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-9-22 12:46 来自手机 | 显示全部楼层
img src="https://qr.api.cli.im/qr?data=%2F%2Fcli.im&level=H&transparent=0&bgcolor=%23FFFFFF&forecolor=http%3A%2F%2Fstatic-develop.clewm.net%2Fcli%2Fimages%2Fbeautify%2Ftpl%2Ffg1.jpg&blockpixel=12&marginblock=2&logourl=http%3A%2F%2Fstatic.clewm.net%2Fcli%2Fimages%2Fbeautify%2Flogo%2F01.png&size=400&text=&logoshape=no&fontsize=46&fontfamily=msyh.ttf&fontcolor=%23000000&incolor=&outcolor=%23368af4&background=http%3A%2F%2Fstatic.clewm.net%2Fcli%2Fimages%2Fbeautify%2Ftpl%2Fbg1.png&qrcode_eyes=&wper=0.86&hper=0.86&lper=0.07&tper=0.07&eye_use_fore=1&qrpad=10&kid=cliim&key=1d4951bb16ffd9e147fbf907eafd90fc"

TA的精华主题

TA的得分主题

发表于 2018-9-22 12:53 来自手机 | 显示全部楼层
这个要xmlhttp发送,生成的二维码带广告的

TA的精华主题

TA的得分主题

发表于 2018-9-22 14:09 | 显示全部楼层
还是用论坛里的插件或者二维码方案吧。。搞那么麻烦干啥。。网络环境又不稳定。。

TA的精华主题

TA的得分主题

发表于 2018-9-22 14:20 | 显示全部楼层
调用第三方或网络的都不是理想的二维码
下面演示的是全脱机二维码

不调用第三方DLL不需要网络的二维码

不调用第三方DLL不需要网络的二维码

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-22 15:50 | 显示全部楼层
lujkhua 发表于 2018-9-22 14:20
调用第三方或网络的都不是理想的二维码
下面演示的是全脱机二维码

你好 主要还涉及批量生成二维码,及后续的打印,所以才需要调用。 是否有其他方法实现上述自动流程?

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-22 15:52 | 显示全部楼层
fxl447098457 发表于 2018-9-22 14:09
还是用论坛里的插件或者二维码方案吧。。搞那么麻烦干啥。。网络环境又不稳定。。

大神,由于我的电脑是64位,Office也是64位,注册总是有问题 有什么方法能注册?谢谢

TA的精华主题

TA的得分主题

发表于 2018-9-22 16:40 | 显示全部楼层
youngkqs 发表于 2018-9-22 15:52
大神,由于我的电脑是64位,Office也是64位,注册总是有问题 有什么方法能注册?谢谢

供参考:
http://club.excelhome.net/thread-1369455-1-1.html

TA的精华主题

TA的得分主题

发表于 2018-9-23 05:48 来自手机 | 显示全部楼层
youngkqs 发表于 2018-9-22 15:50
你好 主要还涉及批量生成二维码,及后续的打印,所以才需要调用。 是否有其他方法实现上述自动流程?

在线批量生成
Screenshot_2018-09-23-05-46-59.png
Screenshot_2018-09-23-05-47-12.png
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-9-21 21:22 , Processed in 0.082721 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表