编写VBA爬虫程序的基本步骤如下：

准备工作

打开Excel的“开发工具”选项卡。如果未显示，可以通过“文件”>“选项”>“自定义功能区”勾选“开发工具”来添加。

引用必要的库，包括`Microsoft XML, v6.0`、`Microsoft Internet Controls`和`Microsoft HTML Object Library`。

创建HTTP请求

使用`MSXML2.XMLHTTP`对象发送GET请求获取网页内容。例如：

```vba

Sub GetWebData()

Dim http As Object

Set http = CreateObject("MSXML2.XMLHTTP")

http.Open "GET", "http://example.com", False

http.send

Debug.Print http.responseText

End Sub

```

解析HTML内容

使用正则表达式或HTML解析引擎提取所需数据。例如，使用正则表达式提取数据：

```vba

Function ExtractData(html As String) As String

Dim regex As Object

Set regex = CreateObject("VBScript.RegExp")

regex.Pattern = "你的正则表达式"

regex.Global = True

Set matches = regex.Execute(html)

If matches.Count > 0 Then

ExtractData = matches(0).SubMatches(0)

End If

End Function

```

或者使用`HTMLFile`对象解析HTML：

```vba

Private Function ParseHTML(html As String, selector As String) As Collection

Dim doc As Object

Set doc = CreateObject("HTMLFile")

doc.LoadHTML(html)

' 使用XPath或DOM方法提取数据

' 例如，提取所有链接：

Dim links As Collection

Set links = doc.getElementsByTagName("a")

' 处理链接

End Function

```

数据提取与处理

根据网页结构，使用正则表达式或XPath提取具体数据。例如，从网页标题中提取信息：

```vba

Sub 爬取网页标题()

Dim http As Object

Dim html As Object

Dim title As String

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets.Add

ws.Name = "爬取的数据"

Set http = CreateObject("MSXML2.XMLHTTP")

http.Open "GET", "http://example.com", False

http.send

html = http.responseText

title = ExtractData(html)

ws.Cells(1, 1).Value = title

End Sub

```

反爬处理

设置请求头模拟浏览器，避免被网站封IP。例如：

```vba

http.setRequestHeader "User-Agent", "Mozilla/5.0"

```

控制请求频率，避免对网站造成过大压力。

数据导入与展示

将提取的数据导入Excel表格中，例如：

```vba

Sub GetTableData()

Dim tbl As Object

Set tbl = IE.document.getElementById("targetTable")

Dim row As Object

For Each row In tbl.rows

Dim cell As Object

For Each cell In row.cells

ws.Cells(row.rowIndex, cell.columnIndex).Value = cell.innerText

Next cell

Next row

End Sub

```

模拟登录与动态数据处理

如果需要登录或处理动态数据，可以使用`InternetExplorer`对象进行模拟操作：

```vba

Sub GetDynamicData()

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.navigate "http://example.com/login"

' 模拟登录操作

IE.document.getElementById("username").Value = "你的账号"

IE.document.getElementById("password").Value = "你的密码"

IE.document.getElementById("loginBtn").Click

' 等待页面加载完成

Do While IE.Busy Or IE.readyState = 4

DoEvents

Loop

' 数据采集

GetTableData

End Sub

```

以上是一个简单的VBA爬虫程序示例，涵盖了从发送HTTP请求到数据提取、导入Excel的基本流程。根据具体需求，可以进一步扩展和优化代码。