vba - 如何使用 Excel VBA 有效地对字符串进行 Base64 编码？

Question

我需要在 VBA 中将 100KB 以上的字符串编码为 base64。是否有任何内置函数或 COM 对象可用来执行此操作，因为纯 VBA 方法要么复杂，要么在这些卷上不能很好地扩展(请参阅 dbb 和 marxidad 的链接)？

Answer 1

您可以使用 MSXML Base64 编码功能，如 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 = Replace(objNode.Text, vbLf, "") 

  Set objNode = Nothing
  Set objXML = Nothing
End Function