Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос для веб-запроса: поиск по всему столбцу
 
Здравствуйте,

Нашел код в интернете, помогите пожалуйста его немного изменить, чтоб он производил поиск по всему столбцу А и вставлял результат в соотвествующую ячейку 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

Спасибо большое
 
faridvg, здравствуйте.
Что обычно в ячейке А1? Напишите значение.
 
Jungl, одно из значений - 4401174785
 
faridvg, при http://e-taxes.gov.az/isvatpayer/4401174785 выдает такое значение:
Код
{"MESSAGE":"4401174785 vöen mövcud deyil","RESULT":"3"}
а как у вас? Приведите результат по ссылке
 
Jungl, точно такое же
Код
{"MESSAGE":"4401174785 vöen mövcud deyil","RESULT":"3"}
 
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)
 
Jungl, спасибо Вам большое!
 
Jungl, к сожалению макрос с сегодняшнего утра стал вместо результата возвращать #VALUE!
Подскажите в чем может быть дело?
Страницы: 1
Читают тему (гостей: 1)