VBA 获取网页的全部源码内容_20191201091118.png
获取网页的完整源码只是获取网络资源的一种,只是返回数据的格式有所不同,以及做出一定的处理!首先要有提取网络资源的Function:
'-----------------------------------------------
'|获取网络数据
'-----------------------------------------------
'|注意:当使用Body提取整个页面时必须使用StrConv转换成字符串
'| HTML.body.innerHTML = StrConv(.responsebody, vbUnicode)
'-----------------------------------------------
Function getWebData(ByVal URL As String, Optional ByVal Method As String = "GET", Optional ByVal ReturnType As String = "Text", Optional ByVal Async As Boolean = False, Optional ByVal Username As String = "", Optional ByVal Password As String = "")
On Error Resume Next
'处理变量
Method = IIf(UCase