有办法了
Public Function HtmlStr(ByVal URL As String)
On Error GoTo Wr
With XmlHttp
.Open "get", URL, False
.setRequestHeader "If-Modified-Since", "0"
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.Send
If .ReadyState = 4 Then HtmlStr = StrConv(.ResponseBody, vbUnicode)
End With
Wr:
End Function