vba的代码：
1、提取二进制文件数据：
    Dim arrByte() AsByte, fNo#, n As Byte
    fNo = FreeFile
    Open FileFullPath For Binary As fNo  '打开二进制数据源文件
    ReDim arrByte(LOF(fNo) - 1)        '将接收用的数组大小设置成匹配源文件字节数
     '当文件大于2GB时，以上语句出现“错误9：下标越界“
    Get fNo, ,arrByte        '用字节数组接收二进制数据
    Close fNo         '关闭二进制数据源文件
以上代码来自：
https://club.
因为俺在使用以上代码时，所用大于2GB的文件，都是MP4文件，因此
如果您要测试这些或vb6的代码，一时找不到大于2GB的文件，可以这么操作：
    1、打开手机上的录屏功能，再打开央视的某一个直播节目，录屏30分钟，就可以了，
然后把此文件弄到电脑上；
    2、打开电脑上的录屏功能，再打开央视的某一个直播节目，录屏20分钟，就可以了。
    3、电脑上大多数常用的文件都可以用二进制的方式读取。

[此贴子已经被作者于2024-10-26 17:03编辑过]

发一个完整的vba代码文件：
  
以上附件来自：https://club.
当以二进制的方式读取一个大于2GB文件时，以下语句出现“错误9，下标越界“，
 ReDim b1((LOF(f)) - 1)

[此贴子已经被作者于2024-10-26 17:52编辑过]