Добрый день,
Я написал небольшой файл Excel с макросами, который подтягивает с сайта приставов информацию по интересующему меня контрагенту. Для запросов я использовал конструкцию
С некоторых пор (видимо из-за изменения ИТ политики) данный запрос перестал работать. Однако запрос к интернет-странице через Power Query работает. Записав рекордером получаю следующую конструкцию:
Вопрос - есть ли альтернатива данному способу, чтобы загружать данные не на страничку экселя а напрямую в какой-нибудь обработчик Json?
Я написал небольшой файл 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
|
