Скопируйте определенные элементы HTML с веб-страницы в Excel

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

Sub CopyThat() Dim IE As Object Dim htmlButton Set IE = CreateObject("internetexplorer.application") IE.Visible = True IE.navigate "http://www.uvo.gov.sk/evestnik/-/vestnik/search" While IE.Busy DoEvents Wend IE.Document.getElementById("druhOznamenia").Value = "6" IE.Document.getElementById("druhZakazky").Value = "0" IE.Document.getElementById("druhPostupu").Value = "0" IE.Document.getElementById("datumZverejneniaOd").Value = "01.07.2013" IE.Document.getElementById("datumZverejneniaDo").Value = "30.11.2014" Set tags = IE.Document.getElementsByTagName("Input") For Each tagx In tags If tagx.Type = "submit" And tagx.Value = "H¾adaj" Then tagx.Click End If Next End Sub 

Теперь я пытаюсь посмотреть на классы div в исходном коде HTML и копировать весь текст под определенным классом. В этом случае код данных, который я ищу, выглядит следующим образом:

 div class="oznamenie" > <div class="ozn1"> <a href="http://www.uvo.gov.sk/evestnik/- /vestnik/275652" >28776 - MST</a> <span class="datum">Zverejnené: 28.11.2014 vo VVO 233/2014 </span> </div> <div class="ozn2" title="URBÁRI, sro"> URBÁRI, sro </div> <div class="ozn3" title="Dodávka technológie pre spoločnosť URBÁRI, sro" > Dodávka technológie pre spoločnosť URBÁRI, sro </div> </div> 

Я пытаюсь скопировать текст из ozn1 в лист Excel и Cell A2, ozn2 текст в B2 и ozn3 текст в P2. Вот где я застрял, потому что я не уверен, как пройти через каждый из классов div и скопировать их в эти строки. Затем код должен посмотреть следующий ozn1 и скопировать его в A3, B3, P3 и т. Д. Затем макрос должен после копирования всех ozn1s, ozn2s и ozn3s на эту страницу перейти на следующую страницу на веб-сайте и сделать то же самое.

Вторая часть этого заключается в том, чтобы открыть конкретные ссылки (в этом случае http://www.uvo.gov.sk/evestnik/-/vestnik/275652 ) и скопировать больше текста и поместить в Excel.

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

Заранее спасибо за помощь.

Interesting Posts

Заполнение столбцов DataGrid с данными Excel в VB

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

c ++ 11 Excel :: Range ^ и Excel :: Worksheet-> Columns ()

Excel VBA Userform Dynamic Runtime Controls – триггерное одноименное событие через несколько элементов управления

Проверка значения текстового поля в многостраничной пользовательской форме

Ошибка Excel #VALUE при использовании функции FIND

Определите, фильтруются ли строки пользователем

Разница в скорости между ActiveCell.Offset () и Range ()?

Скрыть командную кнопку на основе значения ячейки excel vba

Я не могу открыть пользовательскую форму из основной пользовательской формы

Преобразование столбца в таблицу

Код слишком длинный, чтобы работать, заканчивается сбой время от времени

как вы добавляете именованный диапазон в рабочий лист, используя электронную таблицу pppphe pery?

Excel.Application.Cells.SpecialCells (xlCellTypeLastCell) возвращает нижнюю часть рабочего листа, а не последнюю ячейку данных

Как изменить значение ячеек в сводной таблице?

Давайте будем гением компьютера.