vba 读取本地html,EXCEL VBA 获取指定URL网页的源码资源

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