Как очистить от вложенных Divs с помощью VBA - PullRequest
Новая
       92

Как очистить от вложенных Divs с помощью VBA

0 голосов
/ 03 мая 2020

HTML код с сайта

Привет всем,

Я пытаюсь написать веб-скребок для очистки информации и в конечном итоге загрузки файлов, размещенных на сайте ( хотя я не думаю, что решу эту проблему здесь. Это BIM360, сайт Autodesk, на котором размещены файлы и информация, относящаяся к файлам. Вот что у меня пока есть: он открывает веб-сайт, но затем я столкнулся с ошибкой 924. Я Я думаю, это потому, что на картинке есть вложенные элементы div. Я выделил то, что я сначала пытаюсь очистить на картинке, затем я sh перевожу l oop вниз по странице и делаю это для каждого документа. Спасибо заранее за любую помощь. 

Sub GetIEValues()
Dim ie As InternetExplorer
Set ie = New InternetExplorerMedium
Dim dd As Variant

Set ie = CreateObject("InternetExplorer.Application")

With ie
    .Visible = True
    .navigate "https://docs.b360.eu.autodesk.com/projects/f0c33551-e503-4f82-afe8-de994c61b880/reviews"

    Application.Wait (Now + TimeValue("0:00:016"))

    Do
        DoEvents
        Loop Until ie.readyState = READYSTATE_COMPLETE


    With ThisWorkbook.Worksheets(1)
        lRow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
        .Cells(lRow, "A").Value = Now()
        .Cells(lRow, "B").Value = .document.getElementsByClassName("EllipsisText MatrixTable__row-cell-text")(0).innerText
        .Cells(lRow, "C").Value = .document.getElementsByClassName("EllipsisText MatrixTable__row-cell-text")(1).innerText
        .Cells(lRow, "D").Value = .document.getElementsByClassName("EllipsisText MatrixTable__row-cell-text")(2).innerText
        .Cells(lRow, "E").Value = .document.getElementsByClassName("EllipsisText MatrixTable__row-cell-text")(3).innerText
        .Cells(lRow, "F").Value = .document.getElementsByClassName("EllipsisText MatrixTable__row-cell-text")(4).innerText
    End With
     .Quit
End With

End Sub

...