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

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

 

 

excel大神帮我回答了，在这记录下：

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

函数说明：在ecxccel中，选择“开发工具”选项卡，选择第一项“visual bisic”选项，出现“visual bisic”面板，在左侧“模块”栏新建一个模块，把上面的代码粘贴进去。
（ps：如果找不到“开发工具”项，按照以下操作调出来：点击菜单栏“文件”→“选项”，调出“excel选项”面板，选择左侧“自定义功能区”，在右侧“主功能区”位置把“开发工具”前面的对勾勾上就行了）
使用方法 ：例如网址在A1单元格，公式写成：=getTitle(A1)，最后保存文件的时候，保存成.xlsm文件即可