Заголовок HTML-страницы в Excel VBA

Question

Учитывая URL, как я могу получить заголовок HTML-страницы в VBA в Excel?

Например, предположим, у меня есть три URL-адреса, как:

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

Теперь мне нужно получить заголовок этих HTML-страниц в другом столбце.Как мне это сделать?

Answer 1

Ответ Рему был ОЧЕНЬ полезен для меня, но он вызвал проблему: он не закрывает процесс 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

Answer 2

Я не уверен, что вы подразумеваете под заголовком, но вот идея:

Dim wb As Object
Dim doc As Object
Dim sURL As String

Set wb = CreateObject("InternetExplorer.Application")

sURL = "http://lessthandot.com"

wb.Navigate sURL

While wb.Busy
    DoEvents
Wend

''HTML Document
Set doc = wb.document

''Title
Debug.Print doc.Title

Set wb = Nothing