在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文件即可