У меня есть тестовый текстовый файл с именем test.txt
со следующими строками:
Contract ID!cash
1!15
2!10
3!20
3!10
помещено в заданный каталог с файлом Excel.
Когда я выполняю следующий запрос SQL, помещенный в мой файл Excel, 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
Результат
Спасибо за вашу помощь.