Excel VBA中能否实现非8倍数位数的二进制文件读写控制？

首先明确一点：Windows文件系统和VBA的原生文件I/O都是以字节为最小单位的，没有直接创建或读取“非8倍数位数”文件的系统级API。但我们可以通过手动封装位操作逻辑，模拟实现对任意位数数据的读写——本质上还是通过字节来存储，但我们自己管理位的偏移和打包/解包。

核心思路 #

我们需要维护一个位缓冲区（比如单个Byte变量或Byte数组），用来暂存待写入/刚读取的字节，同时跟踪当前处理到的位偏移量：

• 写入时：将零散的位逐步填充到缓冲区，当缓冲区满8位时写入文件；最后若有剩余不足8位的内容，按需补0后写入。
• 读取时：从文件读入字节到缓冲区，再根据需要提取对应位数的内容，直到缓冲区的位被用完，再读取下一个字节。

示例1：写入任意位数的数据（比如4位、10位） #

基于你提供的WriteFile子程序，扩展实现支持位写入的模块：

' 模块级变量：位写入缓冲区和当前偏移（0-7，0表示缓冲区为空）
Private bitBuffer As Byte
Private bitOffset As Integer

' 初始化位写入缓冲区
Sub InitBitWriter()
    bitBuffer = 0
    bitOffset = 0
End Sub

' 写入指定位数的数据（data需为无符号值，位数不超过32）
Sub WriteBits(data As Long, bitsCount As Integer)
    Dim remainingBits As Integer
    remainingBits = bitsCount
    
    Do While remainingBits > 0
        ' 计算缓冲区剩余可容纳的位数
        Dim availableBits As Integer
        availableBits = 8 - bitOffset
        ' 本次要写入的位数（取剩余位数和可用位数的较小值）
        Dim bitsToWrite As Integer
        bitsToWrite = IIf(remainingBits < availableBits, remainingBits, availableBits)
        
        ' 将目标数据的低bitsToWrite位移到正确位置，合并到缓冲区
        bitBuffer = bitBuffer Or ((data And ((2 ^ bitsToWrite) - 1)) << bitOffset)
        
        ' 更新偏移和剩余待写入位数
        bitOffset = bitOffset + bitsToWrite
        remainingBits = remainingBits - bitsToWrite
        data = data >> bitsToWrite ' 移除已写入的位
        
        ' 缓冲区满则写入文件并重置
        If bitOffset = 8 Then
            Put #1, , bitBuffer
            bitBuffer = 0
            bitOffset = 0
        End If
    Loop
End Sub

' 结束写入时，将缓冲区剩余的位（不足8位）补0后写入文件
Sub FlushBitWriter()
    If bitOffset > 0 Then
        Put #1, , bitBuffer
    End If
End Sub

' 你的主写入程序
Private Sub WriteFile()
    Dim path As String
    path = "C:\test_bitfile.bin"
    
    ' 打开二进制文件
    Open path For Binary As #1
    InitBitWriter()
    
    ' 示例：写入4位数据（十进制5 = 二进制0101）
    WriteBits 5, 4
    ' 示例：写入10位数据（十进制511 = 二进制1111111111）
    WriteBits 511, 10
    
    ' 刷新缓冲区，确保所有位都写入文件
    FlushBitWriter()
    Close #1
End Sub

示例2：读取任意位数的数据 #

对应实现位读取的逻辑：

' 模块级变量：位读取缓冲区和当前偏移（0-8，8表示需读取新字节）
Private readBitBuffer As Byte
Private readBitOffset As Integer

' 初始化位读取缓冲区
Sub InitBitReader()
    readBitOffset = 8 ' 初始状态需要读取新字节
End Sub

' 读取指定位数的数据，返回Long类型（最多支持32位）
Function ReadBits(bitsCount As Integer) As Long
    Dim result As Long
    result = 0
    Dim remainingBits As Integer
    remainingBits = bitsCount
    
    Do While remainingBits > 0
        ' 缓冲区空则从文件读取新字节
        If readBitOffset = 8 Then
            If EOF(1) Then
                ' 文件提前结束，返回错误标记（可根据需求调整）
                ReadBits = -1
                Exit Function
            End If
            Get #1, , readBitBuffer
            readBitOffset = 0
        End If
        
        ' 计算本次可读取的位数
        Dim availableBits As Integer
        availableBits = 8 - readBitOffset
        Dim bitsToRead As Integer
        bitsToRead = IIf(remainingBits < availableBits, remainingBits, availableBits)
        
        ' 提取缓冲区中的对应位，合并到结果
        result = result Or ((readBitBuffer >> readBitOffset) And ((2 ^ bitsToRead) - 1)) << (bitsCount - remainingBits)
        
        ' 更新偏移和剩余待读取位数
        readBitOffset = readBitOffset + bitsToRead
        remainingBits = remainingBits - bitsToRead
    Loop
    
    ReadBits = result
End Function

' 你的主读取程序
Private Sub ReadFile()
    Dim path As String
    path = "C:\test_bitfile.bin"
    
    Open path For Binary As #1
    InitBitReader()
    
    ' 读取4位数据
    Dim fourBitData As Long
    fourBitData = ReadBits(4)
    Debug.Print "4位数据：" & fourBitData ' 预期输出5
    
    ' 读取10位数据
    Dim tenBitData As Long
    tenBitData = ReadBits(10)
    Debug.Print "10位数据：" & tenBitData ' 预期输出511
    
    Close #1
End Sub

关键注意事项 #

• 文件大小说明：即使你只写入14位（4+10），最终文件大小还是2字节（系统最小按字节存储），剩余2位会被补0。如果需要精确记录总位数，可以在文件开头额外写入一个整数存储总位数，读取时就知道要读取多少位，避免读到补位的0。
• 数据范围：示例中用Long类型处理，最多支持32位数据；如果需要更长的位串，可以拆分多次调用WriteBits/ReadBits。
• 错误处理：示例简化了错误逻辑，实际使用中建议添加文件打开失败、数据溢出等情况的判断。

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