VBA使用ADO访问文本分隔符参数不生效

Question

连接串如图片，delimited设置成竖杠，实际执行还是英文逗号，这个分隔符要怎样才生效哈

谢谢

Answer 1

【以下回答由 GPT 生成】

分析问题

根据问题描述，我们可以得出以下结论: 1. 问题发生在使用VBA的ADO库访问文本文件时。 2. 无论如何设置分隔符参数，实际执行时依然使用英文逗号作为分隔符。

解决方案

根据问题的描述，我们可以按照以下步骤解决问题:

1. 确认文本文件的扩展名和编码类型
2. 设置连接字符串
3. 使用分隔符参数打开文本文件
4. 检查分隔符是否正确应用

步骤1: 确认文本文件的扩展名和编码类型

首先，我们需要确认文本文件的扩展名和编码类型。ADO访问文本文件时，需要正确指定文件的扩展名和编码类型，以确保正确的分隔符被应用。

步骤2: 设置连接字符串

在使用ADO访问文本文件时，需要设置连接字符串来指定文本文件的路径、文件名、分隔符参数等信息。请确保连接字符串中的分隔符参数正确设置为竖杠。

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

Dim csvPath As String
csvPath = "C:\path\to\your\file.csv"

' 设置连接字符串
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & csvPath & ";Extended Properties=""text;HDR=Yes;FMT=Delimited(|);CharacterSet=65001"""

conn.Open

请注意，上述代码中的连接字符串中的分隔符参数FMT=Delimited(|)已经设置为竖杠。

步骤3: 使用分隔符参数打开文本文件

在打开文本文件之前，需要将上述设置的连接字符串应用到ADO连接对象上。

conn.Open

步骤4: 检查分隔符是否正确应用

在连接成功之后，可以通过使用ADO的Recordset对象来读取文本文件并查看分隔符是否正确应用。

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

' 读取文本文件
rs.Open "SELECT * FROM yourfile.csv", conn

' 打印一行的数据
Debug.Print rs.Fields(0).Value

rs.Close

' 关闭连接
conn.Close

请根据实际情况修改以上代码中的文件路径和查询语句，并确保文件的路径正确、文件的扩展名正确、连接字符串中的分隔符参数正确设置。

如果以上步骤都正确执行，但问题仍未解决，请检查文本文件的内容，确保文本文件中的数据与分隔符参数的设置一致。

总结

问题的根本在于连接字符串中的分隔符参数没有正确设置。通过正确设置连接字符串和使用分隔符参数，应该可以解决该问题。如果问题仍然存在，请在问题中提供更多详细的信息，以便我们能更好地帮助您解决问题。

如果你已经解决了该问题, 非常希望你能够分享一下解决方案, 写成博客, 将相关链接放在评论区, 以帮助更多的人 ^-^