Друзья, добрый день! Сразу оговорюсь, что вопрос не в том как лучше получить данные из текстового файла (понимаю, что есть куча более удобных способов), а просто конкретный вопрос по проблеме с кавычками. Пробую освоить recordset, получаю данные из txt файла. Но если в строке есть двойные кавычки (вот такие ", причем вот с такими « отрабатывает нормально), то строка как бы режется и данные из других колонок для этой строки я вообще не получаю. Как это можно обойти? (Для желающих помочь, текстовый файл должен находиться в той же папке, где xlsm файл.)
Код
Код
Sub SQLfromTXT()
Dim rs As New ADODB.Recordset
DBPath = ThisWorkbook.Path ' в этой папке находится файл txt, являющийся БД.
CnnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBPath & ";Extended Properties='text;HDR=NO;FMT=TabDelimited(|)'"
SQLString = "SELECT * FROM 10703Rst.txt"
rs.Open SQLString, CnnStr
With ThisWorkbook.Worksheets(1)
.Cells(1, 1).CopyFromRecordset rs
End With
End Sub
Пример текстового файла, проблемные кавычки отмечены желтым
Результат, выгруженный на лист. Видно, что все, что идет после кавычек, пропало.