你遇到的这个问题很常见——用VBA将Base64字符串转存为PDF时出现文件损坏，大概率是字符串预处理或解码过程出了问题。下面是一步步的解决方案：

1. 先检查并清理Base64字符串 #

从API返回的Base64字符串经常会附带Data URI前缀（比如data:application/pdf;base64,），或者包含换行、空格等无效字符，这些都会直接导致解码错误。先做预处理：

Dim rawBase64 As String
' 替换成你从JSON响应中获取的pdf_base64_string
rawBase64 = jsonResponse("label")

' 步骤1：移除Data URI前缀（如果存在）
If InStr(rawBase64, "data:application/pdf;base64,") > 0 Then
    rawBase64 = Mid(rawBase64, InStr(rawBase64, ",") + 1)
End If

' 步骤2：清理所有非Base64有效字符（换行、空格等）
rawBase64 = Replace(Replace(rawBase64, vbCrLf, ""), vbLf, "")
rawBase64 = Replace(rawBase64, " ", "")

2. 使用更可靠的Base64解码函数 #

VBA自带的Base64DecodeString在处理长字符串或特殊编码场景时稳定性不足，推荐用MSXML对象来解码，兼容性和可靠性更强：

Function DecodeBase64(base64String As String) As Byte()
    Dim xmlDoc As Object
    Dim tempNode As Object
    
    ' 创建XML文档对象
    Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
    Set tempNode = xmlDoc.createElement("tempNode")
    
    ' 设置节点类型为Base64二进制
    tempNode.DataType = "bin.base64"
    tempNode.Text = base64String
    
    ' 返回解码后的字节数组
    DecodeBase64 = tempNode.nodeTypedValue
    
    ' 释放对象
    Set tempNode = Nothing
    Set xmlDoc = Nothing
End Function

3. 正确写入二进制文件 #

你的原文件写入逻辑没问题，结合上面的解码函数可以简化成这样：

Dim fileBytes As Byte()
Dim savePath As String

savePath = "C:\label.pdf"
fileBytes = DecodeBase64(rawBase64)

' 写入二进制文件
Open savePath For Binary Access Write As #1
    Put #1, , fileBytes
Close #1

额外排查点 #

• 验证原Base64字符串有效性：把清理后的字符串复制到本地Base64转PDF工具，确认转出来的PDF正常。如果工具转出来也损坏，说明API返回的Base64本身有问题。
• 检查JSON解析是否正确：确保你从JSON中提取的label字段是完整的Base64字符串，没有被截断或错误转义（比如双引号处理异常）。

内容的提问来源于stack exchange，提问作者Dan