wps excel批量获取网址标题（Title）

wps excel启用宏

• 下载wps.vba.exe
  • 链接: https://pan.baidu.com/s/1kMvoVfzzi719oAcfmoNpGw 密码: qn86
  • b站教程
  • 安装wps.vba.exe重启wps即可

VB编辑器

弹出窗口新建模块

添加代码

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

使用方法 ：例如网址在A1单元格，公式写成：=getTitle(A1)，最后保存文件的时候，保存成.xlsm文件即可

注意：宏执行过程中不要去动他了，容易卡死