Base64 Encode

Para criar uma função em VBA que codifica o valor da célula A1 em Base64 e coloca o resultado na célula A2, você pode usar o seguinte código. Esta função utiliza as funcionalidades de codificação de string do VBA para converter o texto em Base64.

Function CodificarBase64(texto As String) As String
    Dim arrData() As Byte
    arrData = StrConv(texto, vbFromUnicode)

    Dim objXML As Object
    Dim objNode As Object

    Set objXML = CreateObject("MSXML2.DOMDocument")
    Set objNode = objXML.createElement("b64")

    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    CodificarBase64 = objNode.Text

    Set objNode = Nothing
    Set objXML = Nothing
End Function

Sub ConverterParaBase64()
    Dim textoOriginal As String
    Dim textoBase64 As String

    textoOriginal = ThisWorkbook.Sheets(1).Range("A1").Value
    textoBase64 = CodificarBase64(textoOriginal)
    ThisWorkbook.Sheets(1).Range("A2").Value = textoBase64
End Sub