技术手段VBA之爬虫

工作中会经常利用Excel进行工作的辅助，制表，统计，总结等。其实Excel有一个比公式还要强大的功能，就是VBA。可以利用VBA进行编程，实现公式以外的复杂功能。

用下面的例子来简单介绍一下如何利用VBA进行爬虫。

Sub HTTPREQUEST()

Dim httpReq As XMLHTTP60
Set httpReq = New XMLHTTP60


Dim Content As String
Dim arr1() As String
Dim arr2() As String
Dim arr3() As String
Dim arr4() As String


httpReq.Open "GET", "https://nihongokyoshi-net.com/2019/07/03/jlptn1-grammar-ikan/"
httpReq.Send

Do While httpReq.readyState < 4
    DoEvents
Loop

Debug.Print httpReq.responseText


Content = httpReq.responseText
arr1 = Split(Content, "<section class=""single-post-main"">")
arr2 = Split(arr1(1), "</section>")
arr3 = Split(arr2(0), "<span id=""i"">")
arr4 = Split(arr3(1), "</span>")
Sheet1.Cells(1, 1) = arr4(0)

arr3 = Split(arr2(0), "<span class=""s1"">")
arr4 = Split(arr3(1), "</span>")
Sheet1.Cells(2, 1) = arr4(0)



Set httpReq = Nothing


End Sub

还有更复杂的方法，比如多线程之类的，后续再介绍。