如何通过VBA在后台无物理打开状态下读取CSV文件数据？

用Workbooks.OpenText物理打开CSV文件的方式，即便关闭屏幕更新也可能出现窗口闪烁，以下两种方法可实现完全后台读取，无需打开可见窗口：

方法1：QueryTables（简单高效，适合常规CSV） #

替换原代码中打开、复制、关闭文件的逻辑，用QueryTables直接导入数据：

Application.ScreenUpdating = False
FiletoOpen = directory & NewestFile ' 沿用你之前定义的CSV路径

Set wsMaster = ThisWorkbook.Worksheets("Raw_Data")
wsMaster.Cells.Clear

' 后台导入CSV数据
With wsMaster.QueryTables.Add( _
    Connection:="TEXT;" & FiletoOpen, _
    Destination:=wsMaster.Range("A1"))
    .TextFileParseType = xlDelimited
    .TextFileCommaDelimiter = True ' 适配逗号分隔的CSV，若为其他分隔符可调整（如制表符用.TextFileTabDelimiter = True）
    .Refresh BackgroundQuery:=False ' 同步执行，确保数据完整导入
    .Delete ' 导入完成后删除查询连接，避免残留
End With

Application.ScreenUpdating = True

方法2：ADODB连接（灵活可控，适合复杂场景） #

如果需要筛选数据、指定列读取等精细控制，可通过数据库连接读取CSV：

Application.ScreenUpdating = False
FiletoOpen = directory & NewestFile

Set wsMaster = ThisWorkbook.Worksheets("Raw_Data")
wsMaster.Cells.Clear

Dim conn As Object, rs As Object
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

' 建立CSV所在目录的连接
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
          "Data Source=" & directory & ";" & _
          "Extended Properties=""Text;HDR=Yes;FMT=Delimited"";"

' 读取CSV全部内容（HDR=Yes表示第一行是表头，无表头则改为HDR=No）
rs.Open "SELECT * FROM [" & NewestFile & "]", conn

' 将数据写入工作表
If Not rs.EOF Then
    ' 写入表头（无表头可删除此循环）
    Dim i As Integer
    For i = 0 To rs.Fields.Count - 1
        wsMaster.Cells(1, i + 1).Value = rs.Fields(i).Name
    Next i
    ' 写入数据行
    wsMaster.Range("A2").CopyFromRecordset rs
End If

' 清理资源
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

Application.ScreenUpdating = True

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