Question

我有一个名为test.txt的测试文本文件，其中包含以下几行：

Contract ID!cash
1!15
2!10
3!20
3!10

放置在具有Excel文件的给定目录中。

当我在Excel文件上运行以下SQL查询时，FMT=Delimited(!)似乎没有结果。该查询坚持使用默认的,参数来分隔不同的列，我想知道为什么。

Sub 

QueryTextFile()

    Dim cnn As ADODB.Connection
    Dim str As String

    Set cnn = New ADODB.Connection
    cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnn.ConnectionString = "Data Source=" & ThisWorkbook.Path & ";" & _
                            "Extended Properties = 'text;FMT=Delimited(!)'"
    cnn.Open

    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset

    str = "SELECT * FROM [test.txt]"

    rs.Open str, cnn

    ThisWorkbook.Worksheets(1).Range("A1").CopyFromRecordset rs
    cnn.Close

End Sub

The result

谢谢您的帮助。

VBA Excel SQL查询未考虑定界字段

0 个答案: