ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получение фильтрованной таблицы
7 сообщений из 7, страница 1 из 1
Получение фильтрованной таблицы
    #39855255
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Здравствуйте!

Есть макрос, который выгружает таблицу с сайта со страничками таблицы. Там присутствует фильтр. По логике сначала выгружается страница, где присутствует первая страничка таблицы без использования фильтра. Потом макросом ставим фильтрацию, программно нажимаем на click и выгружается таблица с фильтром. Будто объект IE не учитывает, что была нажата кнопка и выгрузилась обновленная таблица.

После HTMLButton.Click получаем objCollection не фильтрованную. Почему так? Kак правильно написать?

Насколько правильно понимаю, что IE.Refresh и IE.Refresh2 не подходит.
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
...
Dim IE As Object
Dim objCollection As Object
Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = False
IE.Navigate "https://www..."       

Do While IE.Busy
    Application.Wait DateAdd("s", 1, Now)
Loop       

IE.Visible = True   

Dim HTMLButton As MSHTML.HTMLInputElement
Set HTMLButton = IE.document.getElementsByclassname(".....")(0)
HTMLButton.Click


Set objCollection = IE.document.getElementsByclassname("...")(0).Children(0).Children(0).Children(0).Children
...

...
Рейтинг: 0 / 0
29.08.2019, 15:59
| Ответить | Цитировать | Написать  
Получение фильтрованной таблицы
    #39855302
Фотография Focha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Focha
Участник
ferzmikkЗдравствуйте!

Есть макрос, который выгружает таблицу с сайта со страничками таблицы. Там присутствует фильтр. По логике сначала выгружается страница, где присутствует первая страничка таблицы без использования фильтра. Потом макросом ставим фильтрацию, программно нажимаем на click и выгружается таблица с фильтром. Будто объект IE не учитывает, что была нажата кнопка и выгрузилась обновленная таблица.

После HTMLButton.Click получаем objCollection не фильтрованную. Почему так? Kак правильно написать?

Насколько правильно понимаю, что IE.Refresh и IE.Refresh2 не подходит.
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
...
Dim IE As Object
Dim objCollection As Object
Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = False
IE.Navigate "https://www..."       

Do While IE.Busy
    Application.Wait DateAdd("s", 1, Now)
Loop       

IE.Visible = True   

Dim HTMLButton As MSHTML.HTMLInputElement
Set HTMLButton = IE.document.getElementsByclassname(".....")(0)
HTMLButton.Click


Set objCollection = IE.document.getElementsByclassname("...")(0).Children(0).Children(0).Children(0).Children
...


а что в вашем понимание фильтр, возможно там просто строка 0 высотой стоит
может ссылку на сайт?
...
Рейтинг: 0 / 0
29.08.2019, 17:42
| Ответить | Цитировать | Написать  
Получение фильтрованной таблицы
    #39855305
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Fochaа что в вашем понимание фильтр?в коде одну строку пропустил
Код: vbnet
1.
2.
3.
4.
5.
...
IE.Visible = True   
IE.document.getElementByid("...").Value = "..." ' вводится значение определенного параметра фильтра
Dim HTMLButton As MSHTML.HTMLInputElement
...


Fochaвозможно там просто строка 0 высотой стоитЧто значит "строка 0 высотой стоит"?
...
Рейтинг: 0 / 0
29.08.2019, 17:56
| Ответить | Цитировать | Написать  
Получение фильтрованной таблицы
    #39855485
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Fochaвозможно там просто строка 0 высотой стоитПосле нажатия HTMLButton.Click в объекте IE обновляется таблица с учетом фильтра, а после Set objCollection = IE.document.getElementsByclassname("...")(0).Children(0).Children(0).Children(0).Children получаем не обновленную таблицу.
...
Рейтинг: 0 / 0
30.08.2019, 10:21
| Ответить | Цитировать | Написать  
Получение фильтрованной таблицы
    #39855501
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
ferzmikkПосле нажатия HTMLButton.Click в объекте IE обновляется таблица с учетом фильтра, а после Set objCollection = IE.document.getElementsByclassname("...")(0).Children(0).Children(0).Children(0).Children получаем не обновленную таблицу.И что самое интересное, когда выгрузилась обновленная страница и нажал "Просмотр HTML-кода", то там присутствуют данные не обновленной таблицы. Почему так? Как выгрузить обновленную таблицу?
...
Рейтинг: 0 / 0
30.08.2019, 10:38
| Ответить | Цитировать | Написать  
Получение фильтрованной таблицы
    #39855543
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Еще заметил, когда выгружаешь не фильтрованную таблицу, то странички таблицы имеют соответствующие домены:
http://aaaaa.ru/bbbbb/ или http://aaaaa.ru/bbbbb/?page=1
http://aaaaa.ru/bbbbb/?page=2
http://aaaaa.ru/bbbbb/?page=3

Когда выгружаешь фильтрованную таблицу, то
- если до фильтрации была страница http://aaaaa.ru/bbbbb/, то странички имеют одинаковый домен http://aaaaa.ru/bbbbb/
- если до фильтрации была страница http://aaaaa.ru/bbbbb/?page=2, то странички имеют одинаковый домен http://aaaaa.ru/bbbbb/?page=2
...
Рейтинг: 0 / 0
30.08.2019, 11:36
| Ответить | Цитировать | Написать  
Получение фильтрованной таблицы
    #39855641
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Это от сайта так зависит? Или для обновления нужно использовать какой то метод для объекта IE или IE.Document?
...
Рейтинг: 0 / 0
30.08.2019, 13:30
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получение фильтрованной таблицы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=8&tid=2172003]:
 0ms
get settings:
 11ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 64ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 283ms
total:  437ms
созд. / загр.: 437ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]