VVR (Автор тем)

Склейка большого количества ячеек по условию

Пользователь

Сообщений: 9 Регистрация: 11.07.2020

20.04.2021 21:32:03

Добрый вечер,

Вообщем задача склеить текст из ячеек по условию отмеченных "да" в таблице.
Условия на данный момент со столбцов А до BC.

Можно использовать мега длинную конструкцию из "ЕСЛИ", но т.к. в определенный момент понял, что количество столбцов условий стремится к бесконечности...
Конечный вариант в ячейке столбца BF, на данный момент INDRUSPBH015009.

Подскажите что-то более удобное и живое, пожалуйста.

Перейти

VBA цикл загрузки с URL

VVR

Пользователь

Сообщений: 9 Регистрация: 11.07.2020

11.07.2020 09:57:13

Код

Sub GetTheText()
    Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Sheet1")
    Dim text As String

    With CreateObject("internetexplorer.application")
        .Navigate sURL
             text = .Document.getElementsByClassName("container")(0).outerText
        .Quit
    End With

    ws.Cells(1, 1).Value = text
End Sub

Добрый день,

Выше код, все работает. Но как заполнить ячейки столбца по нахождению всех элементов класса container?

Изменено: VVR - 11.07.2020 10:16:03

Перейти