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

Страницы: 1
HTTP запрос из VBA, Альтернативные спосбы
 
#
04.08.2021 11:11:03
Oleg Boyaroff,

Проверил, все галочки стоят. Из обычного браузера ссылка открывается. При открытии ссылки именно из IE всегда предлагает скачать .json файл
Ошибки ниже
 
Перейти    
HTTP запрос из VBA, Альтернативные спосбы
 
#
03.08.2021 10:00:59
Игорь,

С домашнего компьютера ответ получается, проблема именно при использовании в корпоративной среде  
 
Перейти    
HTTP запрос из VBA, Альтернативные спосбы
 
#
02.08.2021 09:49:35
Игорь,

Код достаточно стандартный, не знаю, что там можно править:
Код
Private Function GetHTTPResponse(ByVal sURL As String) As String
    Dim oXMLHTTP
'    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    With oXMLHTTP
        .Open "GET", sURL, False
        .SetRequestHeader "Cache-Control", "max-age=0"
        .SetRequestHeader "Content-Type", "application/json"
        .SetRequestHeader "Accept", "application/json, text/javascript, */*"
        .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/48.0.2564.41 Safari/537.36 OPR/35.0.2066.10 (Edition beta)"
        .SetRequestHeader "Accept-Encoding", "deflate"
        .SetRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
        .send
        GetHTTPResponse = .responseText
    End With
    Set oXMLHTTP = Nothing
End Function
Данные загружаются с URL
Код
https://api-ip.fssprus.ru/api/v1.0
 
Перейти    
HTTP запрос из VBA, Альтернативные спосбы
 
#
01.08.2021 16:23:06
Андрей_26,

Теперь вместо "не удается установить соединение" пишет "отказано в доступе" (
 
Перейти    
HTTP запрос из VBA, Альтернативные спосбы
 
#
30.07.2021 11:59:24
Добрый день,

Да, речь идет о сайте ФССП, но вопрос не про то, как обрабатывать их данные. Вопрос в том, как эти данные получить с учетом ограничений ИТ-политики в компании
Изменено: vikttur - 30.07.2021 12:01:17
 
Перейти    
HTTP запрос из VBA, Альтернативные спосбы
 
#
30.07.2021 07:15:22
Добрый день,

Я написал небольшой файл Excel с макросами, который подтягивает с сайта приставов информацию по интересующему меня контрагенту. Для запросов я использовал конструкцию    
Код
Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")

С некоторых пор (видимо из-за изменения ИТ политики) данный запрос перестал работать. Однако запрос к интернет-странице через Power Query работает. Записав рекордером получаю следующую конструкцию:
Код
    ActiveWorkbook.Queries.Add Name:="Table 0", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Источник = Web.Page(Web.Contents(""https://ru.wikipedia.org/wiki/%D0%9F%D1%80%D0%BE%D0%B5%D0%BA%D1%82%D0%BD%D0%BE-%D1%81%D0%BC%D0%B5%D1%82%D0%BD%D0%B0%D1%8F_%D0%B4%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%D0%B0%D1%86%D0%B8%D1%8F""))," & Chr(13) & "" & Chr(10) & "    Data0 = Источник{0}[Data]," & Chr(13) & "" & Chr(10) & "    #""Измененный тип"" = Table.TransformColumnTypes(Data0,{{""Виды документации"", type te" & _
        "xt}, {""Процент от базовой цены"", Int64.Type}, {"""", Int64.Type}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Измененный тип"""
    Sheets.Add After:=ActiveSheet
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Table 0"";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Table 0]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = False
        .ListObject.DisplayName = "Table_0"
        .Refresh BackgroundQuery:=False
    End With
Вопрос - есть ли альтернатива данному способу, чтобы загружать данные не на страничку экселя а напрямую в какой-нибудь обработчик Json?
 
Перейти    
Динамика изменения задолженности
 
#
10.07.2020 12:10:20
Спасибо, я приложил файл. Из-за ограничений на размер пришлось удалить модель данных и все подключения из книги
 
Перейти    
Динамика изменения задолженности
 
#
10.07.2020 01:52:18
Добрый день,

Прошу подсказать, в каком направлении двигаться для решения следующей задачи:

1. Есть куча файлов, суть которых - отражение состояния задолженности по контрагентам на дату формирования файла.
2. С помощью запроса Power query в последствии формирую единую таблицу примерно следующей структуры [Дата][Контрагент][Задолженность]

В идеале хочется построить сводную таблицу, чтобы можно была добавить временную шкалу, после которой в таблице были бы поля:
1. Задолженность на начало диапазона дат
2. Изменение задолженности по датам
3. Задолженность на конец даты

Пробовал смотреть на вычисляемые столбцы, но при использовании power query данная кнопка неактивна (
Заранее спасибо за любые идеи)
 
Перейти    
Страницы: 1
Наверх