vba抓取html源码数据,VBA代码、网页数据采集、爬取文章

应粉丝要求做一篇爬取网页上的文章。

实现功能：爬取网站上的一篇文章并保存到记事本上。

下面是代码分享

Sub 采集网页上的文章保存到记事本()

Dim oHtml As Object

Set oHtml = VBA.CreateObject('WinHttp.WinHttpRequest.5.1') '创建http对象

Dim sUrl As String

'指定要抓取的网站

sUrl = 'http://meiwenjx.com/article/143357.html'

With oHtml

.Open 'GET', sUrl, False '向服务器发送指定链接地址

.send '发送

'获取返回的字节数组

bResult = .ResponseBody

'按照指定的字符编码显示

sResult = bytestobstr(bResult, 'GB2312')

shu = Split(sResult, '

') '拆分返回来字符串赋给数组

For wun = 1 To UBound(shu) - 1 '循环数组最大下标

js = js & Chr(13) & Replace(shu(wun), '

',