VBA获取网页文本内容 

Function GetHttpText(Url As String)
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "Get", Url, False
        .Send
        GetHttpText = .ResponseText
    End With
End Function

 

posted on 2023-10-09 07:59  sonycat  阅读(161)  评论(0)  编辑  收藏  举报