Проверка данных из Веба на соответствие заданному условию без вставки их на лист

Автор Snekich, 18.11.2011, 16:47

« назад - далее »

Snekich

Есть несколько тысяч интернет страниц с однотипными таблицами состоящими из 5 столбцов и 2 строк (включая заголовок).
В 5 столбце содержится текст.

Есть макрос, который загружает таблицу по заданному адресу в Ексель в диапазон С1:G2 (5 столбцов, 2 строки).

Sub FindAdress()
On Error Resume Next
    Sheets("Поиск").Select
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & Sheets("Ссылки").Range("F" & i), Destination:=Range("C1"))
        .Name = "Faind"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "46"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Как сделать так, что бы проверялся текст который содержится в 5 столбце 2 строке таблицы и если текст содержит заданное слово, то вставляется эта строка в ексель (если не содержит, то проверяется следующая таблица.)
?????

Я даже не знаю реально ли такое сделать... Подскажите пожалуйста кто знает

Алексей Шмуйлович

Ну, можно, например, вставлять сначала во временную книгу или временный лист, обрабатывать, копировать, что нужно, а потом временный лист / книгу удалять.