Введение данных на странице сайта

[Palomnik1096]

Добрый день!

Подскажите пжл., как реализовать vba:

1. Открыть макпосом сайт nalog.ru (это я могу)
2. Из ячейки скопировать ИНН и вставить на сайте
3. Выгрузить ИНН



Заранее благодарю

[Serge_Bliznykov]

Сообщение от Palomnik1096

2. Из ячейки скопировать ИНН и вставить на сайте

вставить куда? в какое место?

Сообщение от Palomnik1096

3. Выгрузить ИНН

что это означает? Кто и куда выгружает ИНН?

p.s. я не спец в этих вопросах, может быть, другим всё и так понятно!

[Palomnik1096]

Сообщение от Serge_Bliznykov

вставить куда? в какое место?

Вставить в ячейку поиска ИНН

что это означает? Кто и куда выгружает ИНН?

p.s. я не спец в этих вопросах, может быть, другим всё и так понятно!

Выгрузить на основании этого запроса ЕГРЮЛ

[EducatedFool]

что конкретно не получается?
покажите свой код


для вашего случая:

 
Set IE = New InternetExplorer    ' создаём объект InternetExplorer
    On Error Resume Next: Err.Clear
    IE.Navigate URL$    ' переходим на нужную страницу
    ' ждём, пока страница загрузится
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
    Set IEdoc = IE.Document: DoEvents    ' получаем ссылку на документ (веб-страницу)

    ' вставляем в поиск значение ячейки a1
   IEdoc.getElementById("tb_main_search_f").Value = range("a1")

[Palomnik1096]

Сообщение от EducatedFool

что конкретно не получается?
покажите свой код

пример кода можете посмотреть здесь
https://excelvba.ru/code/ConnectToServer

для вашего случая:

IEdoc.getElementById("tb_main_search_f").Value = range("a1") 
' вставляем в поиск значение ячейки a1

Да знал бы код написал)))

Есть код только открытия сайта

А как дальше вставить значение в поиск не знаю

[Palomnik1096]

Сообщение от EducatedFool

что конкретно не получается?
покажите свой код


для вашего случая:

 
Set IE = New InternetExplorer    ' создаём объект InternetExplorer
    On Error Resume Next: Err.Clear
    IE.Navigate URL$    ' переходим на нужную страницу
    ' ждём, пока страница загрузится
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
    Set IEdoc = IE.Document: DoEvents    ' получаем ссылку на документ (веб-страницу)

    ' вставляем в поиск значение ячейки a1
   IEdoc.getElementById("tb_main_search_f").Value = range("a1")

Спасибо, завтра попробую реализовать))) отпишусь

[Palomnik1096]

Сообщение от Palomnik1096

Спасибо, завтра попробую реализовать))) отпишусь

Добрый день!

Чет не не работает Вы не могли бы с объявлением переменных уточнить код?