VBA使用LoadFromFile读取大文件崩溃，求可靠分块读取方法

你遇到的问题本质是ADODB.Stream的LoadFromFile方法会将整个文件加载到内存缓冲区，哪怕你后续只分块读取，这一步已经把超大文件全塞进内存了，自然会导致Access崩溃。

下面是基于Windows API的分块读取方案，直接操作文件句柄，不会一次性加载整个文件，内存仅占用设定的bufferSize空间，还能避免Get方法随机出现的错误63（记录长度不匹配问题）。

步骤1：声明Windows API函数 #

将以下代码放在VBA模块的最顶部（必须是模块级声明，不能放在过程内部）：

Private Declare PtrSafe Function CreateFile Lib "kernel32" Alias "CreateFileA" ( _
    ByVal lpFileName As String, _
    ByVal dwDesiredAccess As Long, _
    ByVal dwShareMode As Long, _
    lpSecurityAttributes As Any, _
    ByVal dwCreationDisposition As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal hTemplateFile As LongPtr _
) As LongPtr

Private Declare PtrSafe Function ReadFile Lib "kernel32" ( _
    ByVal hFile As LongPtr, _
    lpBuffer As Any, _
    ByVal nNumberOfBytesToRead As Long, _
    lpNumberOfBytesRead As Long, _
    lpOverlapped As Any _
) As Long

Private Declare PtrSafe Function CloseHandle Lib "kernel32" ( _
    ByVal hObject As LongPtr _
) As Long

Private Const GENERIC_READ As Long = &H80000000
Private Const OPEN_EXISTING As Long = 3
Private Const FILE_ATTRIBUTE_NORMAL As Long = &H80

步骤2：分块读取实现 #

以下是封装好的分块读取过程，你可以根据需求修改缓冲区大小和数据处理逻辑：

Sub ReadLargeFileChunked(filePath As String, bufferSize As Long)
    Dim hFile As LongPtr
    Dim byteBuffer() As Byte
    Dim bytesRead As Long
    Dim totalBytesRead As Long
    
    '打开目标文件，获取文件句柄
    hFile = CreateFile(filePath, GENERIC_READ, 0&, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0&)
    If hFile = -1 Then
        MsgBox "文件打开失败"
        Exit Sub
    End If
    
    '初始化字节缓冲区
    ReDim byteBuffer(bufferSize - 1)
    
    Do
        '读取指定大小的块数据
        If ReadFile(hFile, byteBuffer(0), bufferSize, bytesRead, ByVal 0&) = 0 Then
            MsgBox "文件读取出错"
            Exit Do
        End If
        
        'bytesRead为0表示已读取到文件末尾
        If bytesRead = 0 Then Exit Do
        
        totalBytesRead = totalBytesRead + bytesRead
        
        '--------------------------
        '在这里添加你的数据处理逻辑
        '示例：输出当前块读取的字节数
        Debug.Print "当前块读取字节数：" & bytesRead & "，累计读取：" & totalBytesRead
        '如果是最后一块（字节数小于缓冲区大小），可以调整缓冲区适配实际数据
        If bytesRead < bufferSize Then
            ReDim Preserve byteBuffer(bytesRead - 1)
        End If
        '--------------------------
        
    Loop
    
    '关闭文件句柄，释放资源
    CloseHandle hFile
End Sub

方案优势 #

• 内存占用可控：仅在内存中保留当前读取的块，不会加载整个文件，适配GB级超大文件。
• 避免错误63：ReadFile会返回实际读取的字节数，你可以根据这个值处理最后一块不完整的数据，不会出现Get方法中记录长度不匹配的问题。
• 稳定性更高：直接调用系统底层API，比ADODB.Stream的封装更可靠。

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