VBA中实现Python unpack等价功能的方法是什么

VBA没有内置和Python struct.unpack 完全对齐的一键函数，但通过原生文件操作语句+Windows内存API即可实现你需要的全部功能，无需依赖第三方组件。

核心能力覆盖 #

• 二进制模式读取文件加载到Byte数组
• 按指定偏移量从Byte数组读取片段
• 按小端序将字节片段转换为4字节单精度浮点数（对应Python unpack格式符<f）、8字节双精度浮点数（对应Python unpack格式符<d）

完整可复用代码 #

所有代码兼容32位、64位版本Office，直接导入标准模块即可使用。
首先在模块顶部声明系统API：

' 内存拷贝API声明，兼容32/64位Office
#If VBA7 Then
    Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
#Else
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
#End If

二进制文件读取函数：

' 以二进制模式读取整个文件，返回Byte数组
Function ReadFileToBytes(filePath As String) As Byte()
    Dim fileNum As Integer
    Dim fileTotalLen As Long
    Dim buffer() As Byte
    
    fileNum = FreeFile
    Open filePath For Binary Access Read As #fileNum
    fileTotalLen = LOF(fileNum)
    ReDim buffer(0 To fileTotalLen - 1)
    Get #fileNum, , buffer
    Close #fileNum
    
    ReadFileToBytes = buffer
End Function

小端浮点数解析函数：

' 从Byte数组指定0基偏移位置读取4字节，转为小端单精度浮点数
' 等价Python调用：struct.unpack('<f', byte_arr[offset:offset+4])[0]
Function UnpackLESingle(bytesArr() As Byte, offset As Long) As Single
    Dim result As Single
    If offset + 3 > UBound(bytesArr) Then Err.Raise vbObjectError + 1001, , "偏移位置超出数组边界，无法读取4字节单精度值"
    CopyMemory result, bytesArr(offset), 4
    UnpackLESingle = result
End Function

' 从Byte数组指定0基偏移位置读取8字节，转为小端双精度浮点数
' 等价Python调用：struct.unpack('<d', byte_arr[offset:offset+8])[0]
Function UnpackLEDouble(bytesArr() As Byte, offset As Long) As Double
    Dim result As Double
    If offset + 7 > UBound(bytesArr) Then Err.Raise vbObjectError + 1002, , "偏移位置超出数组边界，无法读取8字节双精度值"
    CopyMemory result, bytesArr(offset), 8
    UnpackLEDouble = result
End Function

调用示例 #

Sub Demo()
    Dim fileBytes() As Byte
    Dim sVal As Single
    Dim dVal As Double
    
    ' 读取目标二进制文件到字节数组
    fileBytes = ReadFileToBytes("D:\test\sample.bin")
    
    ' 从偏移0位置读取4字节单精度浮点数
    sVal = UnpackLESingle(fileBytes, 0)
    Debug.Print "单精度值：" & sVal
    
    ' 从偏移4位置读取8字节双精度浮点数
    dVal = UnpackLEDouble(fileBytes, 4)
    Debug.Print "双精度值：" & dVal
End Sub

补充说明 #

• 上述实现默认按小端序解析，和Python unpack指定<端序标记的行为完全一致；如果需要解析大端序数据，只需在调用CopyMemory前将对应长度的字节片段反转顺序即可
• 代码内置了边界校验，不会因为偏移量设置错误触发内存访问崩溃
• 内存拷贝的实现性能和Python原生unpack基本处于同一量级，处理大体积文件也不会有明显性能问题

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