Excel VBA 异步抓取爱奇艺电视剧信息

基本功能-抓取3种数据

1. 静态网页元素：利用DOM抓取
2. 网页内JS变量：利用Instr功能查找
3. Ajax动态数据：找到数据请求URL，根据要求构造新的URL来请求数据。

知识点

1. DOM网页元素提取
2. WinHttpRequest方式：事件处理方法、能解决网页重新定向。
3. XMLHTTP60方式：回调函数，不能解决网页重新定向。
4. 网页重新定向引用的 (301, 302) 拒绝访问(Access denied) 错误。
5. VBA回调重点: 要在事件回调函数名下面加上一句：
   Attribute OnReadyStateChange.VB_UserMemId = 0
   具体做法是：先写完事件回调处理的类，导出类文件后删除事件处理的类。在导出的类文件中，找到事件处理的Sub，在SUB下面马上加上一句：
   Attribute OnReadyStateChange.VB_UserMemId = 0

just below the event callback handler sub name in export class file, then import the export file again.

For example:

Public Sub OnReadyStateChange()

Attribute OnReadyStateChange.VB_UserMemId = 0

Dim strDoc As String

Dim lngBegin As Long

Dim strTmp As String

Dim strToFind As String