ADODB.Connection：分隔符分号不适用于 csv 文本文件

Question

我使用 ADODB.Connection 和 ADODB.Recordset 从 csv 文件中获取数据。我面临的问题是分隔符在分号（或逗号以外）的情况下似乎不起作用。我正在使用分号作为分隔符。这是我的代码：

Public Function getDataFromFile(path As String, filename As String) As ADODB.Recordset

    Dim cN As ADODB.Connection
    Dim RS As ADODB.Recordset

    Set cN = New ADODB.Connection
    Set RS = New ADODB.Recordset

    cN.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";" & _
             "Extended Properties=""text;HDR=NO;FMT=Delimited(;);IMEX=1;""")

    RS.ActiveConnection = cN
    RS.Source = "select * from " & filename
    Set getDataFromUrl = RS

End Function

当我将 csv 文件中的所有分号替换为逗号时，一切正常（相同的代码，即使使用“FMT=Delimited(;)”）。但它不适用于分号作为分隔符。

Answer 1

据我所知，您必须使用需要与该文件位于同一文件夹中的文件"Schema.ini"。而且，更糟糕的是，它需要在其中包含文件名。我做了两个示例文件，一个用分号分隔，一个用 Tab:

[textfileWithSemicolon.csv]
ColNameHeader=True
Format=Delimited(;)

[textfileWithTAB.csv]
ColNameHeader=True
Format=TabDelimited

当您的例程获取路径和文件作为参数时，可能最简单的方法是将文件复制到具有固定名称的固定文件夹并将Schema.ini 文件放在那里。

另一种方法是即时创建Schema.ini，但这需要您对传递的文件夹具有写权限（并且同一时刻没有其他人对该文件夹执行相同操作...）

有关Schema.ini的更多信息，请查看Microsoft Docs

（好像也有办法改变注册表中的默认分隔符，但我觉得这不是一个好的解决方案）