[VBA]读取文件常用的方法(ADODB.recordSet|ADODB.stream)(大文件读取&指定encode)

最新推荐文章于 2025-05-18 15:45:58 发布

Slowly_Lin

最新推荐文章于 2025-05-18 15:45:58 发布

阅读量7.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： vba基本文章标签： vba

本文链接：https://blog.youkuaiyun.com/Slowly_Lin/article/details/50881235

本文介绍了两种使用VBA结合ADODB组件处理大文件的方法：通过ADODB.Recordset快速搜索文件，以及使用ADODB.Stream进行读写操作。示例代码展示了如何设置指定编码，如UTF-8，以实现高效读取和写入大文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'#####serach big file (ADODB.Recordset) →it is fast#####

Sub searchLineFromText()

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim rsList As Collection
Dim tempStr As String
Set CN = New ADODB.Connection
Set rsList = New Collection
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=D:\work_forfree\20160313_for_vba_open_bigfile\;" & _
          "Extended Properties='text;HDR=NO;CharacterSet=65001'"
'FMT=Delimited

Set RS = CN.Execute("SELECT * FROM testfile.txt WHERE F1 LIKE '%ERROR%'")
Do Until RS.EOF
    'Debug.Print RS.Fields(0); RS.Fields(1); RS.Fields(2)
    tempStr = RS.Fields(0)
    rsList.Add tempStr
    RS.MoveNext
Loop
Set RS = Nothing
Set CN &