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

nikl

Član broj: 149284
Poruke: 4
82.117.202.*

Profil

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

^{29.05.2025. u 10:50 - pre 3 dana i 14h}

Kada skinem xml fajl sa E-fakture preko API u VBA Excelu ne prikazuju se naša ć,č,š slova ni ćirilica.
Koristim ovaj kod:

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...

U http.responseText nema naših slova ni ćirilice, prikazuju se akronimi umesto njih. Može li neki savet kako to da rešim?

Odgovor na temu

iculibrk
Bačka Palanka
21400

Član broj: 321321
Poruke: 870

+157 Profil

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

^{01.06.2025. u 07:36 - pre 17h 58min}

Možda ovako:

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

Odgovor na temu