使用ADODB读取大UTF8 CSV首行致Excel冻结，求解决方法

你的代码出现冻结的核心问题是使用了stream.LoadFromFile方法——这个方法会把整个400MB的文件一次性加载到内存中，直接导致Excel资源耗尽卡死。要读取首行，完全不需要加载整个文件，下面提供两种高效的解决方案：

方案一：修正ADODB.Stream用法（推荐） #

直接通过Open方法打开文件，按需读取首行，避免全量加载：

Public Sub ReadCSVFirstLine_ADODB()
    Dim fullPath As String
    Dim stream As Object
    Dim firstLine As String
    
    fullPath = "你的CSV文件完整路径"
    Set stream = CreateObject("ADODB.Stream")
    
    With stream
        .Charset = "utf-8"
        .Type = 2 ' adTypeText，指定文本类型
        .Mode = 1 ' adModeRead，只读模式
        .Open fullPath ' 直接打开文件，不加载全部内容
        firstLine = .ReadText(-2) ' -2代表读取一行文本
        .Close
    End With
    
    ' 输出首行，可根据需求替换为后续处理逻辑
    MsgBox "CSV表头：" & firstLine
    Set stream = Nothing
End Sub

方案二：使用FileSystemObject读取 #

通过脚本对象逐行读取，同样不会加载整个文件：

Public Sub ReadCSVFirstLine_FSO()
    Dim fullPath As String
    Dim fso As Object
    Dim ts As Object
    Dim firstLine As String
    
    fullPath = "你的CSV文件完整路径"
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 第四个参数-1表示以UTF-8编码打开文件（兼容带BOM的UTF8格式）
    Set ts = fso.OpenTextFile(fullPath, 1, False, -1)
    firstLine = ts.ReadLine ' 读取首行
    ts.Close
    
    MsgBox "CSV表头：" & firstLine
    Set ts = Nothing
    Set fso = Nothing
End Sub

注意事项 #

如果你的CSV表头单元格内包含换行符（极少出现），上述方法会把单元格内的换行误判为行结束，这种情况需要额外处理CSV的格式解析逻辑，但常规表头场景下两种方法都能正常工作。

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