Access VBA：如何将OLE字段内容转换为字节数组？

嘿，我之前也在Access里折腾过OLE字段转字节数组的问题，太懂你碰到类型不匹配报错的崩溃了！直接用CByte确实走不通，因为OLE字段本质是个特殊对象，不是普通的可转换类型。给你两个实用的解决办法：

这个方法比逐字节读取省心太多，代码也简洁：

Function OLEToByteArray(rs As Recordset, fieldName As String) As Byte()
    Dim stream As New ADODB.Stream
    Dim byteArr() As Byte
    
    stream.Type = adTypeBinary
    stream.Open
    ' 把OLE字段的内容写入流对象
    stream.Write rs.Fields(fieldName).Value
    ' 直接把流内容转成字节数组
    byteArr = stream.Read
    stream.Close
    
    OLEToByteArray = byteArr
End Function

使用示例：

Dim myRecordset As Recordset
Set myRecordset = CurrentDb.OpenRecordset("你的表名")
If Not myRecordset.EOF Then
    Dim binData() As Byte
    binData = OLEToByteArray(myRecordset, "你的OLE字段名")
    ' 现在可以遍历字节数组查看内容了
    Dim i As Integer
    For i = LBound(binData) To UBound(binData)
        Debug.Print binData(i) ' 按F8调试时也能在本地窗口看这个数组
    Next i
End If
myRecordset.Close
Set myRecordset = Nothing

注意：要确保你的VBA项目引用了Microsoft ActiveX Data Objects x.x Library（选最新的版本比如6.1就行），不然ADODB.Stream用不了。

如果一定要坚持逐字节读取的思路，问题出在你直接用CByte转换OLE字段内容，得先把它当成Variant处理，再用字节相关的函数提取：

Function ReadOLEByteByByte(rs As Recordset, fieldName As String) As Byte()
    Dim oleContent As Variant
    Dim byteArr() As Byte
    Dim i As Long
    
    oleContent = rs.Fields(fieldName).Value
    ' 根据字节长度初始化数组
    ReDim byteArr(LenB(oleContent) - 1)
    
    For i = 0 To UBound(byteArr)
        ' 用MidB提取单字节，再用AscB转成Byte类型
        byteArr(i) = AscB(MidB(oleContent, i + 1, 1))
    Next i
    
    ReadOLEByteByByte = byteArr
End Function

关键是用LenB获取字节长度（不是Len，Len是字符长度），MidB提取字节片段，这样就不会触发类型不匹配错误了。

另外提一句：OLE字段里通常会带一些OLE对象的头部标识信息，如果你是要提取嵌入的文件（比如图片、文档），转出来的字节数组开头可能不是你要的实际文件内容，需要跳过这些头部（具体长度得看嵌入的对象类型）。

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