vba Base64形式的String转成byte[]

在 VBA 中，可以使用 `Base64Decode` 函数将 Base64 格式的字符串转换为字节数组。这个函数需要一个参数，即 Base64 格式的字符串，它将返回一个字节数组，其中包含 Base64 字符串所代表的原始数据。

以下是一个示例代码：

Public Function Base64StringToBytes(ByVal base64String As String) As Byte()
    Dim objXML As Object
    Set objXML = CreateObject("MSXML2.DOMDocument")
    Dim objNode As Object
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = base64String
    Base64StringToBytes = objNode.nodeTypedValue
    Set objNode = Nothing
    Set objXML = Nothing
End Function

你可以通过调用这个函数并将 Base64 格式的字符串传递给它来获得字节数组，例如：

Dim base64String As String
base64String = "SGVsbG8gV29ybGQh"
Dim bytes() As Byte
bytes = Base64StringToBytes(base64String)

在这个例子中，我们将 Base64 字符串赋值给变量 `base64String`，然后调用 `Base64StringToBytes` 函数来获取字节数组。最终结果将存储在 `bytes` 变量中。