Блог

Я написал инструмент для очистки веб-страниц, который выполняет поиск по веб-сайту и возвращает совпадения с этого конкретного веб-сайта. Будет возвращено много страниц. Таким образом, я могу извлечь все страницы, которые я использовал, с помощью цикла, в котором я поместил номера страниц в лист / столбец A, чтобы эти числа (значения) использовались для перехода на разные веб-страницы.

Есть ли способ определить, сколько страниц было извлечено, т.Е. Определить последнюю страницу?

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

 Dim i As Integer
Dim code As String
Dim LastRow As Long
Dim Input1 As String
Dim Input2 As String
Dim URLend As String     


Sheets("PageNumbers").Select

 LastRow = Cells(Rows.Count, 1).End(xlUp).Row

  For i = 2 To LastRow

    code = Range("A" amp; i).Value               


     ActiveWorkbook.Worksheets.Add
     With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.blabla/blabla/in-'" amp; Input1 amp; "'   '" amp; 
     Input2 amp; "/list-" amp; code _
     amp; URLend, Destination:=Range("$A$1"))

    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True        

    End With

 Next i

    Sheets("Update").Select

    i = i   1    

End Sub
 

Итак, добавьте сообщение в строку состояния, используя что-то вроде:

 Application.StatusBar = "Last page was " amp; i