How do I base64 encode a string efficiently using Excel VBA?

by

You can use the MSXML Base64 encoding functionality as described at www.nonhostile.com/howto-encode-decode-base64-vb6.asp:

Function EncodeBase64(text As String) As String
  Dim arrData() As Byte
  arrData = StrConv(text, vbFromUnicode)      

  Dim objXML As MSXML2.DOMDocument
  Dim objNode As MSXML2.IXMLDOMElement

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

  objNode.dataType = "bin.base64"
  objNode.nodeTypedValue = arrData
  EncodeBase64 = objNode.Text 

  Set objNode = Nothing
  Set objXML = Nothing
End Function

More Related Contents:

  1. to make this code simpler
  2. VBA – How to grab the cell below if a cell has text?
  3. VBA code takes long time to execute in excel
  4. Find text and show value if condition is met
  5. How can I insert variable into formula in VBA
  6. How can I URL encode a string in Excel VBA?
  7. Excel VBA deleting rows in a for loop misses rows
  8. What is the lifetime of a global variable in excel vba?
  9. “Unable to get the VLookup property of the WorksheetFunction Class” error [duplicate]
  10. Copy data from another Workbook through VBA
  11. Excel VBA Load worksheet in Function
  12. Searching an excel with two search words (multiple lookup) using vba macro [closed]
  13. Excel VBA – Combine rows with duplicate values in one cell and merge values in other cell
  14. Load csv file into a VBA array rather than Excel Sheet
  15. Insert line break in wrapped cell via code
  16. Change color of certain characters in a cell
  17. Want VBA in excel to read very large CSV and create output file of a small subset of the CSV
  18. Copy filtered data to another sheet using VBA
  19. VBA Macro crashes after 32000 rows
  20. How to create dynamic variable names VBA
  21. How to break a long string into multiple lines
  22. Read VBA macros (or vbaProject.bin) of an Excel file without opening it in MS Excel [closed]
  23. simple vba code gives me run time error 91 object variable or with block not set
  24. Calling regasm without administrative rights for COM interop in Excel VBA
  25. Is there a way for DIR(path) in VBA to handle strings longer than 260?
  26. How do I activate a specific workbook and a specific sheet?
  27. Start VBA macro when editing a cell
  28. VBA Run-time error 438 appears when “paste” runs
  29. If Not function proceeds when value *is* the one specified
  30. Copy an entire worksheet to a new worksheet in Excel 2010

Leave a Comment