none
Načtení hlavičky webové stránky do Excel tabulky RRS feed

  • Dotaz

  • Vážená konference,

    potřebuji poradit s následujícím problémem. Mám vytvořenou Excel tabulku (sloupec) jednotlivých hypertextových odkazů. Nyní bych potřeboval do druhého sloupce načíst z jednotlivých stránek, na něž odkazy ukazují, obsah titulku, tedy informace mezi značkami <title> a </title>.

     

    S díky za Vaše podněty
    Michal Polívka

    pátek 5. září 2008 15:52

Odpovědi

  • Jak proste, mily Wattsone, vytvor si (VBA) funkci:

     

    Function PageTitle(URL As String) As String
    Dim ie As Object


        Set ie = CreateObject("InternetExplorer.Application")
       
        With ie
            .Visible = 0
            .Navigate URL
        End With
       
       
        Do While ie.busy
            DoEvents
        Loop
       
        PageTitle = ie.document.Title
           
        ie.Quit
        Set ie = Nothing

    End Function

     

     

     

    takze tabulka:

     

    A1                       B1

    http://pragl.cz          =PageTitle(A1)

     

     

    Vysledek:

     

    A1                       B1

    http://pragl.cz          Miroslav Pragl's homepage

     

    MP

     

     

    P.S. pokud nekdo poradite jak KOREKTNE urychlit ... sem s tim Smile

    pátek 5. září 2008 16:05
    Moderátor