JZTXT

VBA获取网页文本内容

发布时间 2023-10-09 08:03:19作者: sonycat
Function GetHttpText(Url As String)
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "Get", Url, False
        .Send
        GetHttpText = .ResponseText
    End With
End Function