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

Страницы: 1
Автоматическая иерархическая сортировка и группировка по колонке Родитель
 
#
18.04.2022 18:05:44
Казалось бы популярная задача, но не смог найти готовый пример на на форуме.

Есть не сортированный массив даных

Наименование | Наименоввание Родителя

Нужно отсортировать и применить группировку, что бы получилась многоуровневая иерархическая структура. (С раскрывающимися плюсиками).

Есть пример с группировкой (https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=87601&am...), но он предполагает что массив был до этого уже отсортирован. И все потомки находятся сразу под строкой родителя. А вот как сделать такую сортировку примера не нашел.

Может кто-то делал такое и есть готовый пример?  
Изменено: SuperMicha - 18.04.2022 20:45:48
 
Перейти    
Срочно. Получение данных через rest API
 
#
17.05.2020 14:37:47
Вроде простая задача. Запрашивать данные через rest API, по параметрам в ячейках книги, и данные из ответа (JSON) вносить в ту же книгу.
Но столкнулся с проблемой, описанной тут:
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=128747&TITLE_SEO=128747-poluchit-dannye-cherez-rest-api

За оперативное решение проблемы или написание готового макроса готов заплатить. Бюджет не большой. Обсуждается в зависимости от варианта решения.

При написании готового макроса скину описание API и ТЗ.
Изменено: SuperMicha - 17.05.2020 14:39:52
 
Перейти    
получить данные через rest api
 
#
17.05.2020 14:20:09
Пытаюсь получить данные через rest api.
Пробовал и через WinHttpRequest и через MSXML2.ServerXMLHTTP60 Как только в строке запроса хоть одна русская буква - сразу вылетает с ошибкой
Цитата
-2147012744 Сервер вернул недопустимый или не распознанный ответ
. Причем скорее всего даже запрос не отправлялся.
Через Postman и через браузер - API работает. И без каких-либо header-ов.

Кто-то знает что делать?
Вот примеры кода.
Код
Sub Макрос1()
Dim hRequest As Object

Set hRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
hRequest.SetTimeouts 200000, 200000, 200000, 200000
urlapi = "http://teamsoft9.pharmahrm.com:8000/get_pharmacy?request=Фkljbkyihgvkyv""
hRequest.Open "GET", urlapi, False
hRequest.Send
End Sub

Sub Макрос2()
Dim requestString As String
Dim request As MSXML2.ServerXMLHTTP60

requestString = "http://teamsoft9.pharmahrm.com:8000/get_pharmacy?request=Oфbject to request"
Set request = New ServerXMLHTTP60
request.Open "GET", requestString, False
request.Send
End Sub
 
Перейти    
Страницы: 1
Наверх