baidu_41549282的博客

1、问题需求：将各种明细表转换成标签，进而实现批量打印。数据源明细标签效果2、插件实现插件下载地址：https://wwa.lanzoui.com/b00zcpp3g 密码:1wit我们来看一下如何实现：首先手动在表格的左上角做一个标签模板。打开批量标签功能：开始填入一些必要的参数设置：选择数据源的标题行：将数据源和标签的对应关系调整好：设置生成标签的数量、间隔...

之前写过一篇文章，《批量生成二维码》,当时介绍了VBA中两种生成二维码的方式，一种需要引用QRmaker控件，一种是纯代码生成的方式。但是这两种方式都有一个最大的bug--不支持64位。解决这种问题的最好的方式，就是用VSTO的方式开发专业插件，来达到兼容32/64位office。以此为目标，速码工具箱诞生了。插件在Office加载界面...

最近帮朋友做了类似功能，利用VBA操作OutLook批量发送工资条，极大节省了人力。正好来总结一下，希望为大家所用。（本篇文章默认读者电脑已经可以进行手动发送邮件，不讲解OutLook如何配置邮箱，设置发件人等信息）先扔框架模板：VBA操作OutLook有一套固定的代码模板，可根据具体需求修改即可。>>>>发送邮件完整模板...

这次抓取涉及到动态参数的获取，代码有点多。具有动态参数的网页大多是aspx网页Sub 下载天津市规划局规划() Dim strurl$, i%, n%, arr(), b() As Byte For i = 1 To 110 '定义提取的页码 strurl = "http://gh.tj.gov.cn/newslist.aspx?id=CK0401" ...

Sub 下载糗事百科图片()    Dim b() As Byte    For pagenum = 1 To 15        Dim xmlhttp As Object        Set xmlhttp = CreateObject("MSXML2.XMLHTTP")        strurl = "https://www.qiushibaike.com/pic/" & "pa...