Поиск элементов по имени тега в папке HTML, которая находится в вашем каталоге

Question

Поиск элементов по имени тега в папке HTML, которая находится в вашем каталоге

0

Как вы можете видеть, это фрагмент кода, который загружает HTML-документ, а затем просто получает элемент, ища их с использованием имени тега.

'STATEMENT_1
LoadPage IE, "https://www.sec.gov/cgi-bin/browse-edgar?" & _
                      "action=getcompany&CIK=" & Ticker & "&type=" & InfoType & _
                      "&dateb=&owner=exclude&count=20"

        'STATEMENT_2
        Set els = IE.Document.getelementsbytagname("a")

Однако как насчет того, когда вам не нужно использовать Internet Explorer для извлечения HTML документа, и у вас есть HTML внутри вашего каталога?

Например, если у меня есть HTML документ в каталоге C:\vsti как я могу указать VBA на go/fetch из этого места?

Codo 13 май 2014, в 23:06

Источник

1

Я не пробовал, если это работает, но работает ли изменение URL вашего кода на локальный путь? (замените " sec.gov/cgi-bin/browse-edgar ?" & _ "action = getcompany & CIK =" & Ticker & "& type =" & InfoType & _ "& dateb = & owner = exclude & count = 20" на "C: \ vsti" \ yourhtmlname.html " )
Alex 13 май 2014, в 21:32
0

Оооо, что может сделать свое дело !!! 1
Codo 13 май 2014, в 21:35
0

Это все равно потребует использования IE :-)
Portland Runner 13 май 2014, в 21:36
0

@Portland Runner Ха, я не уверен, будет ли это работать, также я предполагаю, что, не используя IE, Codo имеет в виду использование браузера, открывающего веб-страницу в Интернете, но это только мое предположение! Спасибо, что указал на тебя
Alex 13 май 2014, в 21:42
0

Нет, это не работает. Internet Explorer открывает HTML File котором есть финансовая информация, и все черт побери: P
Codo 13 май 2014, в 22:02
0

Портлендский Бегун спас день с ответом ниже ~
Alex 13 май 2014, в 22:07
0

Алекс, может быть ... Не уверен, что подразумевается под "All Hell Breaks Loose". @ Кодо, не могли бы вы объяснить больше?
Portland Runner 13 май 2014, в 22:09

Показать ещё 5 комментариев

Теги:

html

vba

excel-vba

excel

excel-2010

1 ответ

Ещё вопросы

Я не пробовал, если это работает, но работает ли изменение URL вашего кода на локальный путь? (замените " sec.gov/cgi-bin/browse-edgar ?" & _ "action = getcompany & CIK =" & Ticker & "& type =" & InfoType & _ "& dateb = & owner = exclude & count = 20" на "C: \ vsti" \ yourhtmlname.html " )
Оооо, что может сделать свое дело !!! 1
Это все равно потребует использования IE :-)
@Portland Runner Ха, я не уверен, будет ли это работать, также я предполагаю, что, не используя IE, Codo имеет в виду использование браузера, открывающего веб-страницу в Интернете, но это только мое предположение! Спасибо, что указал на тебя
Нет, это не работает. Internet Explorer открывает HTML File котором есть финансовая информация, и все черт побери: P
Портлендский Бегун спас день с ответом ниже ~
Алекс, может быть ... Не уверен, что подразумевается под "All Hell Breaks Loose". @ Кодо, не могли бы вы объяснить больше?

Portland Runner · Answer 1 · 2014-05-13T20-42-00.000Z

Вот один из способов использования IE для взаимодействия с локальным файлом.

Файл HTML (сохранен на рабочем столе)

<HTML>
<HEAD>
  <Title>My Example</Title>
</HEAD>
<BODY>
  <div class="find-me">
    You Found Me
  </div>
</BODY>
</HTML>

Excel VBA (с тремя показанными способами)

Sub GetData()
    Dim IE As InternetExplorer

    'Create InternetExplorer Object
    Set IE = New InternetExplorerMedium

    ' You can coment Next line To see page load
    IE.Visible = False

    'Set URL to local file
    IE.Navigate2 "C:\Users\PortlandRunner\Desktop\index.html"

    ' Wait while IE loading...  Probably don't need this since it local
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    'Option A
    Dim foundA As String
    foundA = IE.Document.getElementsByClassName("find-me")(0).innerText
    MsgBox foundA

    'Option B
    Dim foundB As Variant
    Set foundB = IE.Document.getElementsByClassName("find-me")
    MsgBox foundB(0).textContent

    'Option C
    Dim tag
    Dim tags As Object
    Set tags = IE.Document.getElementsByTagName("*")

    For Each tag In tags
        If tag.className = "find-me" Then
            MsgBox tag.innerText
            Exit For
        End If
    Next tag

    'Show IE
    'IE.Visible = True

    ' Clean up
    Set IE = Nothing
End Sub

Результаты:

Протестировано на IE10 и Excel 2010