VBA网抓
VBA说
这个作者很懒,什么都没留下…
展开
-
VBA下载糗事百科图片
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...原创 2018-06-15 06:01:51 · 422 阅读 · 0 评论 -
VBA抓取规划局规划公示信息
这次抓取涉及到动态参数的获取,代码有点多。具有动态参数的网页大多是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" ...原创 2018-06-17 01:02:16 · 432 阅读 · 0 评论 -
利用VBA操作OutLook批量发送工资条
最近帮朋友做了类似功能,利用VBA操作OutLook批量发送工资条,极大节省了人力。正好来总结一下,希望为大家所用。(本篇文章默认读者电脑已经可以进行手动发送邮件,不讲解OutLook如何配置邮箱,设置发件人等信息)先扔框架模板:VBA操作OutLook有一套固定的代码模板,可根据具体需求修改即可。>>>>发送邮件完整模板...原创 2019-07-15 21:59:09 · 3022 阅读 · 0 评论