excel vba base64 codificar decodificar string ejemplo de código

Intenta interpretar el código bien antes de aplicarlo a tu proyecto y si ttienes algo que aportar puedes comentarlo.

Ejemplo: excel vba base64 codificar decodificar string

'VBA functions to encode and decode Base64 text. 'Both support utf-8:Function EncodeBase64(text$)Dim b
    With CreateObject("ADODB.Stream").Open:.Type=2:.Charset ="utf-8".WriteText text:.Position =0:.Type=1: b =.Read
        With CreateObject("Microsoft.XMLDOM").createElement("b64").DataType ="bin.base64":.nodeTypedValue = b
            EncodeBase64 = Replace(Mid(.text,5), vbLf,"")EndWith.Close
    EndWithEndFunctionFunction DecodeBase64(b64$)Dim b
    With CreateObject("Microsoft.XMLDOM").createElement("b64").DataType ="bin.base64":.text = b64
        b =.nodeTypedValue
        With CreateObject("ADODB.Stream").Open:.Type=1:.Write b:.Position =0:.Type=2:.Charset ="utf-8"
            DecodeBase64 =.ReadText
            .Close
        EndWithEndWithEndFunction

Si te gusta la invitación, eres capaz de dejar un tutorial acerca de qué te ha gustado de este tutorial.

---

---

Utiliza Nuestro Buscador