VBA: 为什么 Open For Random 语句失败？

Question

我有一个简单的函数，它随机访问一个文件并在指定位置读取 4 个字节。

我用来选择记录的代码是：

    Open "C:\MyFile.bin" For Random Access Read As #file_nr Len = 4
    rec_position = 23         '(this is an example)
    Get #file_nr, rec_position, buff
    Close #file_nr

其中以这种方式声明变量“buff”：

    Dim buff(0 To 3) As Byte   'fixed size array declaration
and it works fine.

但是...如果我想概括的不是固定的 4 字节记录长度而是“rec_len”字节的记录长度，我将以这种方式声明“buff”变量：

    Dim rec_len As Long       'length of the record, in bytes
    Dim buff() As Byte        'dynamic declaration of array to store one record
    ...(omissis)...
    ReDim buff(0 To rec_len - 1)

现在程序停留在“get”指令并给我这个错误：运行时错误 7“内存不足”。

但是我有足够的空闲内存，代码很短，我使用非常小的 rec_len (rec_len=4)，我已经重新启动了我的电脑，只留下了必要的但是错误仍然存在！

为什么当我尝试动态定义变量“buff”时会失败，但当它被定义为固定大小时（即 Dim buff(0 到 3) as Byte）却能正常工作？

Answer 1

下面的代码有说明Redim的使用方法吗？它 return 也是一个错误吗？

Sub testReadBynReDimArray()
 Dim rec_position As Long, buff() As Byte, rec_len As Long
 rec_len = 5   'choose here what value you need. Even if it will be grater than the whole string, the array will be loaded with 0 bytes for the exceeding elements 
 ReDim buff(0 To rec_len)

 rec_position = 23         '(this is an example)
 Open "C:\MyFile.bin" For Binary Access Read As #1
    Get #1, rec_position, buff
 Close #1

 Debug.Print buff(0), buff(1), buff(2), buff(3), buff(4)
End Sub

VBA: 为什么 Open For Random 语句失败？

VBA: Why Open For Random statement fails?

excel

vba

dynamic