Доброе время суток и слебядей!

А возможно ли сделать выборку с условиями из текстового файла ?

Что-то типа Файл - Открыть - txt, когда запускается форма "Мастер текстов ( импорт )", но хотелось бы наложить условия, как это можно сделать через "Данные - Импорт внешних данных - Создать запрос..." - но запрос можно сделать только к файлу формата xls.

Дело в том, что текстовый файл содержит более 65536 строчек и открыть его целиком в екселе нет возможности.

Или нужно открытвать данный файл через Set fso = CreateObject("Scripting.FileSystemObject")
и фильтровать перебором ?

Dim TextLine
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, TextLine ' Read line into variable.
Debug.Print TextLine ' Print to the Immediate window.
Loop
Close #1 ' Close file.

вот так то бишь ?

эх... я думал, может как то можно еще более нежно пройтись

Да. пожалуй. Спасибо. Уже пробую.

Спасибо. Получилось.
Только какая разница как по строчкам бегать ?
rs.Open "SELECT TOP 4 * FROM testing.txt", "DSN=txt;UID=sa;PWD=;"

вернет всю строчку в rs.fields(0)

Спасибо. Все отлично!
Сначала формирую жесткую структуру первым способом с первым условием, а потом делаю выборку вторым способом с наложением еще одного условия.

ага. почти все так же, только сделал:

Private Function Выборка(Дорожка, Команда) As Object
Set Выборка = CreateObject("ADODB.Recordset")
Выборка.Open Команда, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" & Дорожка & """;Extended Properties=""Text"""
End Function

а в schema.ini руками определил:
Format = CSVDelimited
ColNameHeader = True
DecimalSymbol = .