Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » gaddenis
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Запрос данных из интернет по значениям ячеек
 
#
08.01.2019 11:49:10
Спасибо! Разобрался.  
 
Перейти    
Запрос данных из интернет по значениям ячеек
 
#
08.01.2019 11:11:23
есть разница какое имя? Пусть будет "макрос1" суть вопроса не в этом :)

Пожалуйста, подскажите как решить вопрос с макросом. Ругается на то, что для Next  нет For
Код
Sub Кнопка1_Щелчок()
Dim i As Integer
i = 2
For i = 2 To 100
Dim IE As New InternetExplorer
IE.Visible = False
Select Case Sheet1.Cells(i, 3)
 Case Sheet1.Cells(i, 3) = "заявка на полезную модель"
   IE.navigate "http://www1.fips.ru/fips_servl/fips_servlet?DB=RUPATAP&DocNumber=" & Sheet1.Cells(i, 2).Value
 Case Sheet1.Cells(i, 3) = "заявка на изобретение"
   IE.navigate "http://www1.fips.ru/fips_servl/fips_servlet?DB=RUPATAP&DocNumber=" & Sheet1.Cells(i, 2).Value
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim sDD As String
On Error GoTo www
sDD = Doc.getElementById("StatusRAP").innerText
'''MsgBox sDD
'''IE.Quit
Dim aDD As Variant
aDD = Split(sDD, ",")
    Sheet1.Cells(i, 4).Value = aDD(0)
    Application.Wait Time:=Now + TimeValue("0:00:05")
www:
    Err.Clear
Resume xxx
xxx:
    Next i
End Sub
Изменено: gaddenis - 08.01.2019 12:57:42
 
Перейти    
Запрос данных из интернет по значениям ячеек
 
#
29.12.2018 21:40:42
Цитата
Юрий М написал:
И у Вас макрос с таким именем работает?Зачем код через строку пишете?Не забывайте про табуляцию (отступы
макрос на кнопке :) я только учусь и многое не знаю.
а через строку это случайно из почты копировал так и вставил не обратил внимание
Изменено: gaddenis - 29.12.2018 21:47:29
 
Перейти    
Запрос данных из интернет по значениям ячеек
 
#
29.12.2018 11:29:08
сам сообразил
Код
Sub 34()

Dim i As Integer

i = 2

For i = 2 To 100

Dim IE As New InternetExplorer

IE.Visible = False

IE.navigate "http://www1.fips.ru/fips_servl/fips_servlet?DB=RUPATAP&DocNumber=" & Sheet1.Cells(i, 2).Value

Do

DoEvents

Loop Until IE.readyState = READYSTATE_COMPLETE

Dim Doc As HTMLDocument

Set Doc = IE.document

Dim sDD As String

On Error GoTo www

sDD = Doc.getElementById("StatusRAP").innerText

'''MsgBox sDD

'''IE.Quit

Dim aDD As Variant

aDD = Split(sDD, ",")

Sheet1.Cells(i, 4).Value = aDD(0)

Application.Wait Time:=Now + TimeValue("0:00:05")

www:

Err.Clear

Resume xxx

xxx:

Next i

End Sub

Только вот теперь вопрос как сделать вариативную вставку в адресную строку браузера
IE.navigate "http://www1.fips.ru/fips_servl/fips_servlet?DB=RUPATAP&DocNumber="
на основании данных ячейки т.е. если в столбце B есть значение "заявка" берет такой URL если "патент" тогда другой.
 
Перейти    
Запрос данных из интернет по значениям ячеек
 
#
19.12.2018 14:31:52
Цитата
БМВ написал: Как автоматизировать дальще - дело техники
Вот и беда моя я не знаю как  автоматизировать подключения т.е. чтобы макрос брал значение ячейки и подставлял в запрос.

Цитата
Была нужда, делал опрос IP телефонов недавно по такой же схеме. может просто поможет.
Спасибо!
Я тут сам немного написал, но вот беда в том, не знаю как правильно заставить работать обработку ошибок т.е. пропускать когда не может взять элемент с сайта (sDD)
Скрытый текст
Изменено: gaddenis - 29.12.2018 11:40:20
 
Перейти    
Запрос данных из интернет по значениям ячеек
 
#
12.12.2018 11:52:07
Цитата
БМВ написал:
Как автоматизировать дальще - дело техники. Подставить в строку коннекта другой URL и перезапросить - не проблема, перенести нужное  - тоже.
Спасибо! Сейчас попробую.  
 
Перейти    
Запрос данных из интернет по значениям ячеек
 
#
11.12.2018 20:51:06
К большому несчастью он (PQ) не видит данные которые нужны
 
Перейти    
Запрос данных из интернет по значениям ячеек
 
#
11.12.2018 13:35:42
Добрый день!
Прошу оказать содействие :)
У менять есть таблица с номерами заявок из ФИПС (Федеральный институт промышленной собственности) и ссылками на url. Создал формулу типа "=ГИПЕРССЫЛКА(D1&B1)" которая сразу ведет на сайт и показывает информацию по заявке. Идея такая при помощи получения данных из интернет выгружать заявку на новый лист брать от туда информацию о статусе заявки и добавлять статус рядом с номерами заявок.
Так вот, вопрос как автоматизировать процесс получения данных заявок на основании ячеек которые содержат гиперссылку?  
Изменено: Денис Гетманчук - 11.12.2018 20:32:59
 
Перейти    
Как добавить символ разделения в текстовой ячейки?, Как добавить символ ";" между ФИО (Иванов И.И. Петров П.П.) разделитель ";"
 
#
30.06.2016 11:50:47
Спасибо!  
 
Перейти    
Как добавить символ разделения в текстовой ячейки?, Как добавить символ ";" между ФИО (Иванов И.И. Петров П.П.) разделитель ";"
 
#
30.06.2016 11:36:47
Здравствуйте! Есть файл с огромным количеством строк и одной из ячеек внесены ФИО без разделителей как можно быстро вставить символ ";", руками очень долго :). Спасибо!  
 
Перейти    
Страницы: 1
Наверх