Cоздание облачной файловой системы для хранения и обмена информации в формате Excel., Формирование файловой системы, управляющей таблицами Excel (не более 50 файлов) на облачном сервисе (к примеру, One Drive).
Почему именно такой формат? Почему не нормальная СУБД в связке с excel/прикладной программой? С базой данных(под базой данных я имею в виду СУБД, а не базу данных на основе excel файлов) скорость работы в разы быстрее, синхронизация хоть сейчас. И роли раздать раз плюнуть, а вся важная инфа и обработка на стороне базы данных. С облаком возни намного больше. Если заинтересует такой формат, напишите в ЛС, обсудим все плюсы и минусы. На облачное решение не претендую.
программа учета для Сервисной компании по ремонту бытовой техники, Нужна временная программа учета для Сервисной компании по ремонту бытовой техники с выездом к клиенту. Бюджет не ясен – скажите сколько стоить будет.
Что значит временная? Имеет ли смысл вообще заниматься временной, если у вас планируется постоянная? Чем та же CRM Housecall Pro не подходит? После всех работ по учету в excel вся информация в дальнейшем заливаться в CRM Housecall Pro?
Цитата
написал: О раздельном доступе я не мечтаю, но было бы неплохо как-то ограничить функфионал или разделить его
Если не найдете исполнителя и готовы рассмотреть вариант СУБД во внешке + прикладная программа для windows, где можно сделать ограничения и разделения по ролям пользователей, то пишите в ЛС или на почту(в профиле). И нужно будет детальное ТЗ, а не общее описание.
Макрос на обновление запросов Power Query в файлах по очереди, с пропуском ошибок, Доработка макроса, чтобы он пропускал ("перескакивал") ошибки обновлений запросов
Макрос на обновление запросов Power Query в файлах по очереди, с пропуском ошибок, Доработка макроса, чтобы он пропускал ("перескакивал") ошибки обновлений запросов
ChubraevRO, добрый день. Если готовы предоставить файлы как оригинал, так и сами перебираемые(не все, достаточно пару нормальных и 1 "бракованный"), то пишите на почту(в профиле).
Jack Famous написал: Не могли бы вы сделать небольшой пример получения чего-либо?
Прошу, изучайте.
Код
Sub PP()
Dim booksId As Variant, partsId As Variant, sectionsId As Variant, groupsId As Variant
Dim bId As Variant, pId As Variant, sId As Variant, gId As Variant
Dim dateNow As String, result As String
dateNow = Format(Date, "dd.MM.yyyy")
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", "https://ksr.minstroyrf.ru/ksr-rest/classifier/books?date=" & dateNow, "False": .Send
booksId = Regex(.responseText, """id"":(\d+)")
For Each bId In booksId
.Open "GET", "https://ksr.minstroyrf.ru/ksr-rest/classifier/parts_sections/" & bId & "?date=" & dateNow, "False": .Send
partsId = Regex(.responseText, """id"":(\d+)")
For Each pId In partsId
.Open "GET", "https://ksr.minstroyrf.ru/ksr-rest/classifier/sections/" & pId & "?date=" & dateNow, "False": .Send
sectionsId = Regex(.responseText, """id"":(\d+)")
For Each sId In sectionsId
.Open "GET", "https://ksr.minstroyrf.ru/ksr-rest/classifier/groups/" & sId & "?date=" & dateNow, "False": .Send
groupsId = Regex(.responseText, """id"":(\d+)")
For Each gId In groupsId
.Open "POST", "https://ksr.minstroyrf.ru/ksr-rest/classifier/extlist", "False"
.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
.Send ("{""date"":""" & dateNow & """,""groupId"":" & gId & ",""page"":0,""length"":100,""sidx"":""title"",""sord"":""ASC""}")
result = .responseText
Debug.Print result
Stop
Next
Next
Next
Next
End With
End Sub
Private Function Regex(ByVal text As String, ByVal pattern As String) As Variant
Dim Matches As Object
Dim i As Integer
With CreateObject("VBScript.RegExp")
.IgnoreCase = True
.Global = True
.MultiLine = True
.pattern = pattern
Set Matches = .Execute(text)
ReDim arr(Matches.Count - 1)
For i = 0 To Matches.Count - 1
arr(i) = Matches(i).SubMatches(0)
Next
Regex = arr
Set Matches = Nothing
End With
End Function
За кол-во выводимых данных на страницу отвечает параметр length для POST запроса, я выставил значение 100. По умолчанию там 30. Как раз POST запрос и есть ответ на ваш первоначальный вопрос, где меняется только позиция page.
Jack Famous написал: Как спарсить динамически формируемые данные и/или …
F12, вкладка Network, тыкаем по разделам и смотрим запросы. Динамика формируется вот по таким ссылкам: https://ksr.minstroyrf.ru/ksr-rest/classifier/books?date=14.09.2021 в виде json данных. Переходя по ссылке классификатора на нужную дату, ссылка формируется с нужным ID каждый раз, далее этот ID будет использоваться в переходе по ветке ниже. Успехов разобраться
Vilebone, в свойствах интернет эксплорера во вкладке Дополнительно посмотрите наличие галочек на TLS 1.0\1.1\1.2 и параметры HTTP 1.1\2. А еще лучше бы скинули ошибку, которая вываливается при запросе в вашей компании. Может вам вообще доступ отрубили?)
Это при любом исполнении? Токена у меня конечно нет, но обычный get запрос с данными от балды возвращает результат. Ничего не включал, win10 по умолчанию.
Нарвский написал: подключение к сайту производится через ЕСИА, данное обстоятельство не позволяет выложить здесь предварительные скриншоты, поскольку к информации распространяется требование об обеспечении ее конфиденциальности.
А если с вами работать, данные то вы предоставите или, скажем, через свою учетку можно будет работать с информацией по вашим ссылкам? В общем, я готов обсудить задачу, но не готов работать вслепую - пишите на почту (в профиле).
Елена Потапова, здравствуйте. Каков бюджет под эту задачу у вас? Будет ли небольшой пример(оригинал + какой результат необходим)? Можете скинуть на почту(в профиле).
Alex D, здравствуйте. Что вам мешает использовать OneDrive как диск/папку и работать с вашими файлами по стандартным путям? Есть еще момент - доступ по UNC путям, у кого-то они работают, у кого-то нет. Проверьте у себя ссылки(открывать как обычный путь к папке): \\xxx.sharepoint.com\personal\user_xxx\Documents\ или \\xxx.sharepoint.com@SSL\personal\user_xxx\Documents\ или \\xxx.sharepoint.com@SSL\DavWWWRoot\personal\user_xxx\Documents\
Евгений Новиков написал: и почему старые перестали работать.
Почему так решили?
Берем скрипт из 5 сообщения, меняем немного
Код
For Each btn In ie.Document.GetElementsByTagName("button")
If btn.className = "btn btn-default" Then
If btn.innerText = " Sign In" Then
btn.Click
Exit For
End If
End If
Next
Создать макрос Excel для парсинга данных с сайта, нужно использую ссылку в ячейке документа заполнять столбец в таблице строкой, с информацией которая есть на сайте.