从Excel列表中生成网页标题

我在Excel的网站url列中，想要自动检索每个url的网页标题，并将它们放在第二个相应的列。

我对VBA没有任何经验，但是想用VBA来做到这一点。 有人可以列出一步一步来完成这个步骤？ 我要粘贴哪些代码？ 如何将代码指向正确的列来获取URL，以及如何告诉它填充结果的位置？ 我如何运行代码？

我认为这是一个很受欢迎的问题，但是许多人并没有使用现有的文档来解决这个问题，因为他们和我有同样的问题 – 他们不知道如何加载和运行脚本。

任何帮助将不胜感激！ 请尽可能详细。

Answer 1

调整范围“A1：A10”以符合您的数据….

Sub GetTitles() Dim c As Range, url As String For Each c In Range("A1:A10").Cells url = Trim(c.Value) If LCase(url) Like "http://*" Then c.Offset(0, 1).Value = GetTitle(url) End If Next c End Sub Function GetTitle(sURL As String) Dim title As String, res As String, pos1, pos2 Dim objHttp As Object Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") objHttp.Open "GET", sURL, False objHttp.Send "" res = objHttp.ResponseText pos1 = InStr(1, UCase(res), "<TITLE>") pos2 = InStr(1, UCase(res), "</TITLE>") title = "<not found>" If pos1 > 0 And pos2 > 0 Then pos1 = pos1 + Len("<TITLE>") title = Mid(res, pos1, pos2 - pos1) End If GetTitle = title End Function