从 VBA 中的 Base64 字符串生成 PDF答案

【问题标题】：Generating PDF from Base64 string in VBA从 VBA 中的 Base64 字符串生成 PDF
【发布时间】：2025-11-26 23:00:03
【问题描述】：

我有以下 JSON 响应：

{
  "status": "Success",
  "label": "pdf_base64_string",
  "order": "ABC123456"
}

我正在尝试根据以下代码从 Base64 字符串保存 PDF 文件：

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

这会导致 PDF 文件损坏/无效（PDF 查看器无法识别）。

【问题讨论】：

您需要将 base64 文本解码为二进制流并将 that 写入文件。这里有一些相关代码thydzik.com/…
特别是在 Excel VBA 中：*.com/questions/39126617/…
在原始字符串上调用这些函数的顺序是什么？这是我正在尝试的，但结果文件似乎仍然无效：byte2Bin(decodeBase64(pdf_base64_string))
使用十六进制编辑器检查文件。它似乎是无效的 PDF？如果是，请检查 base64 编码字符串 - 使用外部转换器解码。它会产生相同的结果吗？
刚刚解决了问题，我将 Base64Encode 结果放入 FileData 中，这是一个错误（255 个字符限制为字符串）。我只需要像这样Put #fileNum, 1, Base64Encode(pdf_base64_string) 直接在文件写入块中对编码字符串调用 Base64Encode

标签： json vba pdf base64

【解决方案1】：

改编自：Inserting an Image into a sheet using Base64 in VBA?

这对我有用 - 将文件保存到与运行代码的工作簿相同的位置。

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

【讨论】：

Put #1, 1, DecodeBase64(b64test) 改变了我，非常感谢！

【解决方案2】：

pdf转base64需要注意的点

如果要将 pdf 转换为 base64/blob 以用于 rest API，则不要使用字符串变量，因为字符串变量的大小仅为 32200。
如果您将 pdf 用于 rest API，那么您需要以二进制格式阅读 pdf [请勿通过文本阅读]
在 VBA 中，JSON 文件是通过纯文本发送的，因此请尝试使用流而不是 JSON 文件。

我正在分享对pdf文件的base64进行二进制转换的代码。

 Function EncodeFileBase64(FileName As String) As String


fileNum = FreeFile
Open FileName For Binary As fileNum
ReDim arrData(LOF(fileNum) - 1)
Get fileNum, , arrData
Close fileNum

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

objNode.DataType = "bin.base64"
objNode.nodeTypedValue = arrData
EncodeFileBase64 = objNode.text

EncodeFileBase64 = Replace(objNode.text, vbLf, "")

 
Set objNode = Nothing
Set objXML = Nothing

End Function

【讨论】：