<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[Slowly_Lin的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/Slowly_Lin</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; Slowly_Lin]]></copyright><item><title><![CDATA[[VBA]读取文件常用的方法(ADODB.recordSet|ADODB.stream)(大文件读取&指定encode)]]></title><link>https://blog.youkuaiyun.com/Slowly_Lin/article/details/50881235</link><guid>https://blog.youkuaiyun.com/Slowly_Lin/article/details/50881235</guid><author>Slowly_Lin</author><pubDate>Sun, 13 Mar 2016 23:19:18 +0800</pubDate><description><![CDATA['#####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
  ]]></description><category></category></item><item><title><![CDATA[vba_WriteToTextFile_ADO]]></title><link>https://blog.youkuaiyun.com/Slowly_Lin/article/details/50430136</link><guid>https://blog.youkuaiyun.com/Slowly_Lin/article/details/50430136</guid><author>Slowly_Lin</author><pubDate>Tue, 29 Dec 2015 23:53:41 +0800</pubDate><description><![CDATA[Sub WriteToTextFile(FileUrl, mylist As Collection, CharSet)
 Set Stm = CreateObject("adodb.stream")
 Set b = CreateObject("ADODB.Recordset")
 'MsgBox (Stm.EOS())
 
 Stm.Type = 2 
 Stm.Mode = 3]]></description><category></category></item></channel></rss>