как получить мета ключевые слова имя -vba

Question

Я пытаюсь получить мета ключевые слова имя из webpage

мета имя = «ключевые слова» содержание = "Митч Albom, For One More Day, Little, Brown Book Group, 0751537535, Фантастика/Генеральный Общие & Литературные литература, Современная & художественная литература (после 1945г), США

Мне нужно, чтобы получить содержание от него нужна помощь.

Option Explicit 

Sub GetData() 
    Dim ie As New InternetExplorer 
    Dim str As String 
    Dim wk As Worksheet 
    Dim webpage As New HTMLDocument 
    Dim item As HTMLHtmlElement 

    Set wk = Sheet1 
    str = wk.Range("Link").value 
    ie.Visible = True 

    ie.Navigate str 

    Do 
     DoEvents 
    Loop Until ie.ReadyState = READYSTATE_COMPLETE 

    Dim Doc As HTMLDocument 
    Set Doc = ie.Document 

    Dim kwd As String 
    kwd = Trim(Doc.getElementsByTagName("keywords").innerText) 
    MsgBox kwd 

End Sub 

Answer 1

Лучший способ сделать это - найти метаэлемент с именем ключевое слово и ссылаться на его свойство content. Вы можете сделать это так:

Option Explicit 

Sub GetData() 
    Dim ie As New InternetExplorer 
    Dim str As String 
    Dim wk As Worksheet 
    Dim webpage As New HTMLDocument 
    Dim item As HTMLHtmlElement 

    Set wk = Sheet1 
    str = wk.Range("Link").value 
    ie.Visible = True 

    ie.Navigate str 

    Do 
     DoEvents 
    Loop Until ie.ReadyState = READYSTATE_COMPLETE 


    'Find the proper meta element -------------- 
    Const META_TAG As String = "META" 
    Const META_NAME As String = "keywords" 
    Dim Doc As HTMLDocument 
    Dim metaElements As Object 
    Dim element As Object 
    Dim kwd As String 


    Set Doc = ie.Document 
    Set metaElements = Doc.all.tags(META_TAG) 

    For Each element In metaElements 
     If element.Name = META_NAME Then 
      kwd = element.Content 
     End If 
    Next 

    MsgBox kwd 

End Sub