Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
schapovalov1991
0 / 0 / 0
Регистрация: 03.12.2015
Сообщений: 42
1

Перелистывание страниц

03.06.2017, 14:02. Просмотров 324. Ответов 1
Метки нет (Все метки)

Всем привет!
Реализовываю парсинг страницы.
Суть, захожу на 1 страницу записываю ссылки в эксель всех компаний, потом захожу на последующие страницы и забираю с них все ссылки.

https://2gis.ru/ekaterinburg/search/...04%2Fzoom%2F10

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub btn_create_Click()
    Dim b()
    Dim bUrl As String '=== NEW
'----------
    bUrl = txt1.Text   '=== NEW
    b = GetDataMining(bUrl)
    With Sheets("Парсинг")
        
        .Cells(5, 1).Resize(UBound(b), UBound(b, 2)) = b
    End With
End Sub
 
Function GetDataMining(ByVal url As String) As Variant
    Dim b()
    Dim i&
    Dim t_li, t_a, t_a2
'---------------------
    i = 5 'Записывает с 5ой строки
    With CreateObject("HtmlFile")
        .Body.innerHTML = GetHtmlFull(url)
        For Each t_a In .GetElementsByTagName("a")
            If t_a.ClassName = "miniCard__headerTitleLink" Then
                i = i + 1
                ReDim Preserve b(1 To 2, 1 To i) 
                b(1, i) = pUrl & t_a.GetAttribute("href") 
            End If
              'ПОПЫТКА ПЕРЕЙТИ НА ДРУГУЮ СТРАНИЦУ (НЕ РАБОТАЕТ)
            If t_a2.ClassName = "pagination__page" Then
                t_a2.Value = t_a.Value + 1
                t_a2.Click
            End If
        Next
    End With
    GetDataMining = Application.Transpose(b)
    
End Function
 
Function GetHtmlFull(ByVal url As String) As String
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", url, False
        .send
        Do: DoEvents: Loop Until .ReadyState = 4
        GetHtmlFull = .responsetext
    End With
End Function
0
Вложения
Тип файла: zip 1-0-0 Загрузка страниц.zip (30.2 Кб, 1 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.06.2017, 14:02
Ответы с готовыми решениями:

Перелистывание в форме
Подскажите пожалуйста(лучше пример) , как сделать перелистывание на форме с помощью...

Перелистывание страниц
Всем привет! Подскажите пожалуйста как сделать на вордпресс чтоб выводилось по несколько записей...

Перелистывание страниц
На главной страницы большая таблица. Как сделать перелистывание на след и пред страницы? чтобы это...

Перелистывание страниц
Как сделать такое: вот как на форуме здесь скажем:Страница 1 - примерно 50 тем,страница 2 -...

Эффект перелистывание страниц
Здравствуйте. Мне нужно сделать альбом с эффектом перелистывание страниц, фото для альбома будут...

1
schapovalov1991
0 / 0 / 0
Регистрация: 03.12.2015
Сообщений: 42
03.06.2017, 15:51  [ТС] 2
НА данный момент реализовано копирование ссылок с 1ой странице.
Как это сделать для других страниц, ума не приложу.
Понимаю что надо проверять как-то на наличие тега а с классом: pagination__page
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.06.2017, 15:51

Плавное перелистывание страниц
По правде говоря не уверен что создаю тему в нужном разделе, но все же. Идея дизайна сайта - имеем...

Читалка.перелистывание страниц
Надо организовать на сайте читалку, пока решил сделать чего попроще и сразу пришел в тупик....

Перелистывание страниц (Нужна помощь)
Здравствуйте, на данный момент я работаю над программой, в использовании которой необходимо наличие...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.