Question

在excel中如何利用vba通过网址读取网页title（网址是https的）？

如题，我保存了些百度知道我回答的网址，想利用excel直接读取出网址的title，请问vba代码怎么写？（要支持https的）

Answer 1

Function getTitle(sUrl As String)

Dim oXHTTP As Object, Str As String
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET", sUrl, False
oXHTTP.send
getsource = StrConv(oXHTTP.responseBody, vbUnicode, &H804)
Set oXHTTP = Nothing

Arr = VBA.Split(getsource, "<title>")
Str = Arr(1)
Arr = VBA.Split(Str, "</title>")
Str = Arr(0)
getTitle = Str

End Function

Answer 2

解析源码就可以了，你现在做了多少了？

追问

vba不会，求大神给写个vba代码