E-Fakture pri skidanju xml ulaznih računa preko API u VBA ne prikazuje ć,č,ž ....

Code:

    strUrl = "https://efaktura.mfin.gov.rs/a...urchase-invoice/xml?invoiceid=" & faktura
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    With http
        .Open "Get", strUrl, False
        .SetRequestHeader "ApiKey", "xxxxx"
        .SetRequestHeader "Content-Type", "application/xml; charset=UTF-8"    ' ne pomaže ni sa ovim header-om

        .Send
        If .Status = 200 Then
         
          responseText = http.responseText
        end if... 

Code:

Sub DownloadXML()
    Dim strUrl As String
    Dim faktura As String
    Dim http As Object
    Dim responseText As String
    Dim xmlStream As Object

    ' Postavite faktura ID
    faktura = "VAŠ_FAKTURA_ID"

    ' URL za preuzimanje XML fajla
    strUrl = "https://efaktura.mfin.gov.rs/a...urchase-invoice/xml?invoiceid=" & faktura

    ' Kreiranje HTTP objekta
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    With http
        .Open "GET", strUrl, False
        .SetRequestHeader "ApiKey", "xxxxx"
        .SetRequestHeader "Content-Type", "application/xml; charset=UTF-8"
        .Send

        If .Status = 200 Then
            ' Kreiranje ADODB.Stream objekta za pravilno učitavanje UTF-8 sadržaja
            Set xmlStream = CreateObject("ADODB.Stream")
            xmlStream.Type = 1 ' adTypeBinary
            xmlStream.Open
            xmlStream.Write http.responseBody
            xmlStream.Position = 0
            xmlStream.Type = 2 ' adTypeText
            xmlStream.Charset = "utf-8"
            responseText = xmlStream.ReadText
            xmlStream.Close

            ' Prikazivanje odgovora u Immediate prozoru
            Debug.Print responseText
        Else
            MsgBox "Greška: " & .Status & " - " & .StatusText
        End If
    End With

    ' Oslobađanje objekata
    Set http = Nothing
    Set xmlStream = Nothing
End Sub