alphamax
Terugkerende gebruiker
- Lid geworden
- 16 mrt 2011
- Berichten
- 2.654
- Besturingssysteem
- Windows 11 en-US
- Office versie
- Office 2007 nl-NL
Met een UDF (user defined formula)
In Module1
In cel B1
In Module1
Code:
[SIZE=1]Public Function XMLToBASE64(strXML As String) As String
Dim abytXML() As Byte
abytXML = strXML
With CreateObject("MSXML2.DOMDocument").CreateElement("base64")
.DataType = "bin.base64"
.nodeTypedValue = abytXML
XMLToBASE64 = .text
End With
End Function[/SIZE]
In cel B1
Code:
=XMLToBASE64(A1)