Sub zapros_mtr()
Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String, msg As String
myurl = "https://site.com";
msg = "ARNum=22304901394"
xmlhttp.Open "POST", myurl, False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send msg
otvet = xmlhttp.responseText
Cells(2, 1) = otvet
End Sub

let
    url = "https://example.com/Auth",
    body  = "{""OrgId"": ""1111"",  ""UserId"": ""2222""}",
    Parsed_JSON = Json.Document(body),
    BuildQueryString = Uri.BuildQueryString(Parsed_JSON),
    Source = Json.Document(Web.Contents(url,[Headers = [#"Content-Type"="application/json"], Content = Text.ToBinary(BuildQueryString) ] ))
in
    Source

=ВПР($B3;'1C'!$B:$V;ПОИСКПОЗ(C$1;'1C'!$9:$9)+2;0)

Table.FromRecords(
    Json.Document(
        Web.Contents(
            "https://gisp.gov.ru/rep/marketplaceback/products/findPage",
            [
                Headers = [
                    Accept="application/json",
                    #"X-Requested-With"="XMLHttpRequest",
                    #"Content-Type"="application/json"
                ],
                Content = Json.FromValue([
                    opt = []
                ])
            ]
        )
    )[items]
)

Sub Фильтр_буфер()
On Error Resume Next
Dim i As Integer
Dim Test As String
Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject

clipboard.GetFromClipboard
Test = clipboard.GetText

Test = Replace(Test, Chr(13), "@%$")
Test = Trim(WorksheetFunction.Clean(Test))

Dim ab() As String

ab = Split(Test, "@%$")

ReDim Preserve ab(UBound(ab) - 1)

ActiveSheet.UsedRange.AutoFilter Field:=Selection.Column, Criteria1:=ab, Operator:= _
    xlFilterValues


End Sub
 

Sub ppp()

On Error Resume Next

Set nazv = CreateObject("scripting.dictionary")
nazv.CompareMode = vbTextCompare

n = 20
With ActiveSheet
    Do While .Cells(n, 1) <> ""
        komment = .Cells(n, 170)
        If InStr(1, komment, "поставлен", vbTextCompare) = 0 And InStr(1, komment, "отгружен", vbTextCompare) = 0 Then
            nazv.Add komment, 0
        End If
    n = n + 1
    Loop
End With
Uniq_1D_Array = nazv.Keys
ActiveSheet.UsedRange.AutoFilter Field:=170, Criteria1:=Uniq_1D_Array, Operator:=xlFilterValues

End Sub

let
    Источник = Json.Document(Web.Contents("https://etp.gpb.ru/nsi/kimapi/publicpriceorderinfo?id=" & "230940")),
    #"Преобразовано в таблицу" = Record.ToTable(Источник),
    #"Транспонированная таблица" = Table.Transpose(#"Преобразовано в таблицу"),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Транспонированная таблица", [PromoteAllScalars=true]),
    #"Измененный тип" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"id", Int64.Type}, {"title", type text}, {"status", Int64.Type}, {"date_sent", type datetimezone}, {"date_delivery", type date}, {"date_response", type datetimezone}, {"delivery_conditions", type text}, {"delivery_address", type text}, {"use_price_without_nds", type logical}, {"max_price_type", Int64.Type}, {"for_small_business", type logical}, {"for_producer", type logical}, {"for_authorized_dealer", type logical}, {"russian_production", type logical}, {"national_project", type logical}, {"deny_alternative", type logical}, {"allow_edo", type logical}, {"customer_comment", type any}, {"customer_name", type text}, {"customer_inn", type number}, {"customer_kpp", Int64.Type}, {"customer_documents", type any}, {"positions", type any}, {"regions", type any}}),
    #"Развернутый элемент positions" = Table.ExpandListColumn(#"Измененный тип", "positions"),
    #"Развернутый элемент positions1" = Table.ExpandRecordColumn(#"Развернутый элемент positions", "positions", {"position_name", "quantity", "okei_code", "okei_name", "id", "max_price", "okpd2_name", "okpd2_code", "max_cost", "documents"}, {"positions.position_name", "positions.quantity", "positions.okei_code", "positions.okei_name", "positions.id", "positions.max_price", "positions.okpd2_name", "positions.okpd2_code", "positions.max_cost", "positions.documents"}),
    #"Развернутый элемент positions.documents" = Table.ExpandListColumn(#"Развернутый элемент positions1", "positions.documents"),
    #"Развернутый элемент regions" = Table.ExpandListColumn(#"Развернутый элемент positions.documents", "regions"),
    #"Развернутый элемент regions1" = Table.ExpandRecordColumn(#"Развернутый элемент regions", "regions", {"code", "name"}, {"regions.code", "regions.name"})
in
    #"Развернутый элемент regions1"

Table.FromRecords(
    Json.Document(
        Web.Contents(
            "https://etp.gpb.ru/nsi/kimapi/publicpriceorderlist?limit=50&page=1",
            [
                Headers = [
                    Accept="application/json",
                    #"X-Requested-With"="XMLHttpRequest",
                    #"Content-Type"="application/json"
                ],
                Content = Json.FromValue([
                    opt = []
                ])
            ]
        )
    )[entries]
)

let
    Запрос2 = Table.FromRecords(
    Json.Document(
        Web.Contents(
            "https://etp.gpb.ru/nsi/kimapi/publicpriceorderinfo?id=230295",
            [
                Headers = [
                    Accept="application/json",
                    #"X-Requested-With"="XMLHttpRequest",
                    #"Content-Type"="application/json"
                ],
                Content = Json.FromValue([
                    opt = []
                ])
            ]
        )
    )[positions]
)
in
    Запрос2

sub vlad ()
a = "C:\Папка"
objpapka = "winmgmts:Win32_LogicalFileSecuritySetting.path=" & "'" & a & "'"
Set wmiFileSecSetting = GetObject(objpapka)
Dim wmiSecurityDescriptor
RetVal = wmiFileSecSetting.GetSecurityDescriptor(wmiSecurityDescriptor)
Set wmiAce = wmiSecurityDescriptor.DACL(0)
Set Trustee = wmiAce.Trustee
s = Trustee.Name
end sub