Excel VBA 中的 HTML 页面标题

Question

给定一个 url，如何在 Excel 中的 VBA 中获取 html 页面的标题？

例如假设我有三个网址:

• http://url1.com/somepage.html
• http://url2.com/page.html
• http://url3.com/page.html

现在我需要在另一列中获取这些 html 页面的标题。我该怎么做？

Answer 1

Remou 的回答对我很有帮助，但它引起了一个问题:它不会关闭 Internet Explorer 进程，所以由于我需要运行它几十次，我最终打开了太多的 IE，我的电脑无法处理这个。

所以只需添加

wb.Quit

一切都会好起来的。

这是适合我的代码:

Function GetTitleFromURL(sURL As String)
Dim wb As Object
Dim doc As Object

Set wb = CreateObject("InternetExplorer.Application")

wb.Navigate sURL

While wb.Busy
    DoEvents
Wend

GetTitleFromURL = wb.Document.Title

wb.Quit

Set wb = Nothing
End Function