作者：绿色风
分类：
时间：2022-08-17
浏览：155
楼主
水星钓鱼 |
Q：如何通过临时修改注册表值用ADO导入Tab键分隔的文本文件？
A：如下图所示为用Tab键分隔的同一路径下的两个文本文件
如果还是使用
如何用ADO导入用逗号分隔的文本文件？
http://www.exceltip.net/thread-32259-1-1.html
中的代码则因为默认的文本文件的分隔符是逗号，所以无法识别Tab键分隔符，会导致将文本文件中的内容当作1列进行联合查询导入。
这时候就需要在Schema.ini文件中设置该分隔符，这里介绍另外一种方法，无需借助Schema.ini文件也可以实现的方法。
首先按下组合快捷键WIN(Windows微标键)+R调出“运行”对话框，输入"regedit",然后定位到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Text，将Format中的值“CSVDelimited”改为“TabDelimited”。
如图所示：
然后运行以下代码即可用ADO导入Tab键分隔的文本文件- Private Sub CommandButton1_Click()
- Dim oRecrodset
- Dim sConStr As String
- Dim sSql As String
- Dim oWk As Worksheet
- Dim i As Integer
- Set oWk = ThisWorkbook.Worksheets(1)
- oWk.UsedRange.Clear
- sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & ThisWorkbook.Path & ";Extended Properties='Text;HDR=YES'"
- sSql = "select * from test1.txt union all select * from test2.txt"
- Set oRecrodset = CreateObject("ADODB.Recordset")
- With oRecrodset
- .Open sSql, sConStr
- '循环导入字段名
- For i = 1 To .Fields.Count
- oWk.Cells(1, i) = .Fields(i - 1).Name
- Next
- oWk.Cells(2, 1).CopyFromRecordset oRecrodset
- End With
- Set oRecrodset = Nothing
- End Sub
附件如下：
 导入Tab键分隔的文本文件.rar
利用这种方法可以临时性的达到执行代码的目的，但是会改变系统的默认值，所以要慎重使用。
为了使代码可移植性高，还是推荐使用在Schema.ini文件中进行设置修改。 |
2楼
bluexuemei |
学习修改注册表的方法! |
3楼
老糊涂 |
学习修改注册表 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一