HTML-Seite Titel in Excel-VBA

Gegeben eine url, wie bekomme ich den Titel der html-Seite in VBA in Excel?

Beispielsweise angenommen, ich habe drei urls wie :

Nun muss ich den Titel dieser html-Seiten in einer anderen Spalte. Wie mache ich es?

InformationsquelleAutor redGREENblue | 2011-10-02

  1. 5

    Ich bin mir nicht sicher, was Sie meinen Titel, aber hier ist eine Idee:

    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
    Durch Titel, den ich meinte, der Inhalt im <title></title> - tag der html-Seite. Ich werde versuchen, den code aus.
    das ist, was Sie bekommen von den oben genannten.

    InformationsquelleAutor Fionnuala

  2. 6

    Remou Antwort war SEHR hilfreich für mich, aber es verursacht ein problem: Es funktioniert nicht schließen Sie das Internet Explorer-Prozess, also da ich gebraucht, um dieses Dutzende Male landete ich mit zu vielen IEs öffnen, und mein computer konnte nicht damit umgehen.

    Also fügen Sie einfach

    wb.Quit

    und alles wird gut.

    Dies ist der code, der arbeitet für mich:

    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

    InformationsquelleAutor Benk

Schreibe einen Kommentar