VBA解码Base64生成XLSX文件无法打开的问题排查

PDF能正常解码写入，说明基础流程逻辑没问题，但XLSX作为ZIP压缩包格式，对字节完整性要求极高，大概率是解码或写入环节出现了字节丢失/错误，以下是具体排查和修复方案：

1. 替换更可靠的Base64解码实现 #

部分VBA自带的Base64解码工具（如旧版MSXML的Base64Decode）可能在处理填充符（=）、换行符或特殊字符时出错，建议使用兼容性更强的解码逻辑：

Function Base64ToBytes(base64Str As String) As Byte()
    ' 先清除Base64字符串中的换行/回车符
    base64Str = Replace(Replace(base64Str, vbCr, ""), vbLf, "")
    
    Dim xmlDoc As Object, node As Object
    Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
    Set node = xmlDoc.createElement("b64")
    node.DataType = "bin.base64"
    node.Text = base64Str
    Base64ToBytes = node.nodeTypedValue
    
    Set node = Nothing
    Set xmlDoc = Nothing
End Function

2. 强制使用二进制模式写入文件 #

XLSX是二进制格式，绝对不能用文本模式写入（会把部分字节当成换行符/控制符修改），必须用二进制模式写入：

Sub WriteBytesToFile(bytes() As Byte, filePath As String)
    Dim fileNum As Integer
    fileNum = FreeFile()
    ' 以二进制读写模式打开文件
    Open filePath For Binary Access Write As #fileNum
        Put #fileNum, , bytes
    Close #fileNum
End Sub

注意：避免使用Print/Write等文本模式写入语句，这些操作会破坏XLSX的压缩包结构。

3. 验证Base64字符串的完整性 #

确认传入VBA的Base64字符串没有被截断、添加额外空格或编码转换错误：

• 将VBA接收的Base64字符串与在线转换器使用的原字符串做逐段对比
• 如果字符串来自外部系统，检查是否存在UTF-8转ANSI的编码丢失问题（可通过ADODB.Stream工具修正字符串编码）

4. 排查编码转换问题 #

若Base64字符串是从UTF-8编码的外部系统传入，VBA默认的ANSI编码可能导致字符串损坏，可先将字符串转成UTF-8字节再处理：

Function GetUtf8EncodedBase64Bytes(base64Str As String) As Byte()
    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")
    stream.Charset = "UTF-8"
    stream.Open
    stream.WriteText base64Str
    stream.Position = 0
    stream.Type = 1 ' 切换为二进制模式
    GetUtf8EncodedBase64Bytes = stream.Read
    stream.Close
    
    Set stream = Nothing
End Function

核心逻辑：确保解码后的字节数组与原XLSX文件的字节完全一致，写入时严格保留二进制结构——PDF对部分字节错误容忍度较高，但XLSX作为压缩包，任何字节偏差都会导致文件损坏无法打开。

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