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