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

最新推荐文章于 2021-04-05 10:36:43 发布

Slowly_Lin

最新推荐文章于 2021-04-05 10:36:43 发布

阅读量7.2k

点赞数

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

本文链接：https://blog.csdn.net/Slowly_Lin/article/details/50881235

版权

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

摘要由CSDN通过智能技术生成

'#####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 &