VBA извлекает XML-данные из нескольких веб-сайтов

[править1]

В ответ на комментарий:

единственное, что остается нам, это понять, как на самом деле изменяются URL-адреса, чтобы их можно было предсказать и ими можно было манипулировать путем конкантенации жала? На каком языке кода написан URL?

Краткий ответ: откройте браузер, щелкните правой кнопкой мыши пустое место на интересующей вас веб-странице и выберите View Source во всплывающем меню.

Чтобы повторить пример, приведенный в другом сообщении VBA href Сканирование исходного кода браузера, сделайте следующее:

Откройте онлайн-поиск компаний Edgar в браузере: https://www.sec.gov/edgar/searchedgar/companysearch.html

Используйте функцию быстрого поиска для поиска тикера CRR, и она дает мне этот URL-адрес: https://www.sec.gov/cgi-bin/browse-edgar?CIK=CRR&Find=Search&owner=exclude&action=getcompany, который содержит список общедоступных заявок для Carbo Ceramics, Inc. .

Теперь щелкните правой кнопкой мыши на странице, чтобы получить исходный код, и прокрутите вниз до строки 91. Вы увидите этот блок кода:

      <table class="tableFile2" summary="Results">

Это начало таблицы результатов, которая показывает список публичных заявок.

         <tr>
            <th width="7%" scope="col">Filings</th>
            <th width="10%" scope="col">Format</th>
            <th scope="col">Description</th>
            <th width="10%" scope="col">Filing Date</th>
            <th width="15%" scope="col">File/Film Number</th>
         </tr>

Это строка заголовка таблицы с описаниями столбцов.

<tr>
<td nowrap="nowrap">SC 13G</td>
<td nowrap="nowrap"><a href="/Archives/edgar/data/1009672/000108975514000003/0001089755-14-000003-index.htm" id="documentsbutton">&nbsp;Documents</a></td>
<td class="small" >Statement of acquisition of beneficial ownership by individuals<br />Acc-no: 0001089755-14-000003&nbsp;(34 Act)&nbsp; Size: 8 KB            </td>
            <td>2014-02-14</td>
            <td nowrap="nowrap"><a href="/cgi-bin/browse-edgar?action=getcompany&amp;filenum=005-48851&amp;owner=exclude&amp;count=40">005-48851</a><br>14615563         </td>
         </tr>

И это первая строка фактических данных в таблице для подачи SC 13G, Statement of acquisition of beneficial ownership by individuals Acc-no: 0001089755-14-000003 (34 Act) Size: 8 KB, представленной 2014-02-14.

Итак, теперь вы хотите перебрать все URL-адреса документов на этой странице, и поэтому вы спрашиваете, на каком языке находятся URL-адреса? (Другими словами, просканировать страницу?)

[начать исходный ответ]

Как мы могли бы на самом деле ввести наши «координаты» в Excel, скажем, в одну из наших пользовательских форм/ячеек, например, а затем заставить VBA «навигировать/сканировать» там, просто используя эти координаты так же, как мы перемещаемся туда с помощью браузера?

Я погуглил «получить результаты Google в виде xml», исследуя другой вопрос. Одним интересным ответом была эта ссылка: http://nielsbosma.se/projects/seotools/functions/

Я не делаю никаких заявлений о достоинствах этого инструмента, но, похоже, он обладает той функциональностью, о которой вы просите.

Теперь в предыдущей процедуре мы видим, что нам нужно использовать только оператор strXMLSite = "http://www.sec.gov/Archives/edgar/data/10795/000119312513456802/bdx-20130930.xml" ... но это когда мы заранее знаем, что нам нужны данные из одного указанного места в Интернете

Да, поэтому, как только вы получили какую-то функцию веб-сканирования, чтобы вернуть список ссылок на документы xml, вам сначала нужно поместить их туда, где пользователь может видеть. Я бы предпочел диапазон на рабочем листе, но вы также можете загрузить список или поле со списком в форму. Независимо от этого, вы должны изменить Sub GetNode(), чтобы принять входной параметр на основе выбора пользователя:

Sub GetNode(strUrl as String)
...
strXMLSite = strUrl
...
Worksheets("Sheet1").Range("A1").Value = objXMLNodeDIIRSP.Text
End Sub  

Или, возможно, лучше сделать это функцией, которая возвращает xml в виде текста, который вы можете использовать, как хотите:

Function GetNode(strUrl as String) as String
...
strXMLSite = strUrl
...
'return result
GetNode = objXMLNodeDIIRSP.Text
End Function  

Интересный вопрос в целом, и я был рад дать вам отзыв о коде, который вы разместили. На другие ваши вопросы, вероятно, можно ответить, выполнив небольшой поиск в Google.