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

CharacterSet=65001

    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

    ie.Document.GetElementsByTagName("button")(0).Click