base64编码 vba_在VBA中从Base64字符串生成PDF

I have the following JSON response:

{

"status": "Success",

"label": "pdf_base64_string",

"order": "ABC123456"

}

I'm trying to save a PDF file from the Base64 string per the following code:

FileData = Base64DecodeString(pdf_base64_string)

fileNum = FreeFile

FilePath = "C:\label.pdf"

Open FilePath For Binary Access Write As #fileNum

Put #fileNum, 1, FileData

Close #fileNum

This results in a broken/invalid PDF file (not recognized by the PDF viewer).

解决方案

This works for me - saves the file to the same location as the workbook running the code.

Sub TestDecodeToFile()

Dim strTempPath As String

Dim b64test As String

'little face logo

b64test = "R0lGODlhDwAPAKECAAAAzMzM/wAAACwAAAAADwAPAAACIISPeQHsrZ5ModrLlN48" & _

"CXF8m2iQ3YmmKqVlRtW4MLwWACH+H09wdGltaXplZCBieSBVbGVhZCBTbWFydFNhdmVyIQAAOw=="

strTempPath = ThisWorkbook.Path & "\temp.png" 'use workbook path as temp path

'save byte array to temp file

Open strTempPath For Binary As #1

Put #1, 1, DecodeBase64(b64test)

Close #1

End Sub

Private Function DecodeBase64(ByVal strData As String) As Byte()

Dim objXML As Object 'MSXML2.DOMDocument

Dim objNode As Object 'MSXML2.IXMLDOMElement

'get dom document

Set objXML = CreateObject("MSXML2.DOMDocument")

'create node with type of base 64 and decode

Set objNode = objXML.createElement("b64")

objNode.DataType = "bin.base64"

objNode.Text = strData

DecodeBase64 = objNode.nodeTypedValue

'clean up

Set objNode = Nothing

Set objXML = Nothing

End Function