Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос для веб-запроса: поиск по всему столбцу
 
#1
22.02.2017 13:34:25
Здравствуйте,

Нашел код в интернете, помогите пожалуйста его немного изменить, чтоб он производил поиск по всему столбцу А и вставлял результат в соотвествующую ячейку B
Код
Sub URL_Get_VOEN_status()
strSearch = Range("$A$1")
With ActiveSheet.QueryTables.Add(Connection:="URL;http://e-taxes.gov.az/isvatpayer/" & strSearch, _
Destination:=Range("$B$1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub

Спасибо большое
 
 
 
#2
22.02.2017 15:33:18
faridvg, здравствуйте.
Что обычно в ячейке А1? Напишите значение.
 
 
 
#3
22.02.2017 15:45:00
Jungl, одно из значений - 4401174785
 
 
 
#4
22.02.2017 16:04:53
faridvg, при http://e-taxes.gov.az/isvatpayer/4401174785 выдает такое значение:
Код
{"MESSAGE":"4401174785 vöen mövcud deyil","RESULT":"3"}
а как у вас? Приведите результат по ссылке
 
 
 
#5
22.02.2017 16:07:47
Jungl, точно такое же
Код
{"MESSAGE":"4401174785 vöen mövcud deyil","RESULT":"3"}
 
 
 
#6
22.02.2017 16:41:57
faridvg, UDF
Код
Function URL_Get_VOEN_status(ByVal txt$) As String
txt = DownloadString("http://e-taxes.gov.az/isvatpayer/" & txt)
URL_Get_VOEN_status = Split(Split(txt, ":""")(1), """,")(0)
End Function

Private Function DownloadString(ByVal url$) As String
    Dim XMLHTTP
    On Error Resume Next
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", url, "False"
    XMLHTTP.Send
    If XMLHTTP.statustext = "OK" Then
        DownloadString = XMLHTTP.responseText
    End If
    Set XMLHTTP = Nothing
End Function
введите в ячейке B1
Код
=URL_Get_VOEN_status(A1)
 
 
 
#7
22.02.2017 16:51:51
Jungl, спасибо Вам большое!
 
 
 
#8
08.11.2017 08:07:17
Jungl, к сожалению макрос с сегодняшнего утра стал вместо результата возвращать #VALUE!
Подскажите в чем может быть дело?
 
 
 
Страницы: 1
Наверх