vba抓取网页数据(Excel教程Excel函数Excel表格制作Excel2010Excel实用技巧Excel视频教程)

　　vba抓取网页数据(Excel教程Excel函数Excel表格制作Excel2010Excel实用技巧Excel视频教程)

　　我最近在学习 Excel 爬虫。我使用 Excel 而不是 Python，因为我在日常工作中使用 Excel 处理更多，而且我对编程了解不多。

　　抓取到的网址是

　　数字代表页数，因为所有的页码都需要获取。

　　只需复制代码，将其粘贴到新创建的模块中，然后单击运行。

<p>Public Sub getlist()

On Error Resume Next &#39;忽略错误继续执行VBA代码,避免出现错误消息

Application.DisplayAlerts = False &#39;禁用警告提示

Dim t &#39;定义时间

t = Timer &#39;获取程序初始时间

Application.ScreenUpdating = False &#39;关闭屏幕刷新

[a:d].ClearContents &#39;程序开始前清除内容

Dim strurl As String &#39;定义网址类型

Dim pagenum As Integer &#39;定义网页中的页码参数

For pagenum = 1 To 20 &#39;1680 设置页码参数范围

strurl = "https://www.cjbd.com.cn/cjbd68/index_" & pagenum & ".htm" &#39;构造网页地址

Dim xmlhttp As Object &#39;定义对象

Set xmlhttp = CreateObject("MSXML2.XMLHTTP") &#39;创建对象

With xmlhttp

.Open "GET", strurl, False &#39;通过GET传递方式打开网址

.SEND &#39;发送请求

Do While .readystate 4 &#39;判断是否连接

DoEvents &#39;防止假死，直至加载

Loop

Dim s() As String &#39;定义数组，用于存储xml代码

s = Split(Split(.responseText, " ")(0), "