Доња процедура се може користити за добијање АДО скупа записа из текстуалне датотеке и попуњавање резултата на радном листу.
Суб ГетТектФилеДата (стрСКЛ Ас Стринг, стрФолдер Ас Стринг, рнгТаргетЦелл Ас Ранге) 'Пример: ГетТектФилеДата "СЕЛЕЦТ * ФРОМ филенаме.ткт", _ "Ц: \ ФолдерНаме", Ранге ("А3")' пример: ГетТектФилеДата "СЕЛЕЦТ филенаме.ткт ВХЕРЕ фиелднаме = 'цритериа' ", _" Ц: \ ФолдерНаме ", Ранге (" А3 ") Дим цн Ас АДОДБ.Цоннецтион, рс Ас АДОДБ.Рецордсет, ф Ас Интегер Иф рнгТаргетЦелл ис Нотхинг тхен Екит Суб Сет цн = Нови АДОДБ.Цоннецтион Он Еррор Ресуме Нект цн.Опен "Дривер = {Мицрософт Тект Дривер ( *.ткт; *.цсв)};" & _ "Дбк =" & стрФолдер & ";" & _ "Проширења = асц, цсв, таб, ткт;" Он Еррор ГоТо 0 Иф цн.Стате адСтатеОпен тхен Екит Суб Сет рс = Нев АДОДБ.Рецордсет Он Еррор Ресуме Нект рс.Опен стрСКЛ, цн, адОпенФорвардОнли, адЛоцкРеадОнли, адЦмдТект Он Еррор ГоТо 0 Иф рс.Стате цСтоЦонОпен = Ништа Излаз Подзавршетак Иф 'наслови поља За ф = 0 За рс.Фиелдс.Цоунт - 1 рнгТаргетЦелл.Оффсет (0, ф) .Формула = рс.Фиелдс (ф) .Наме Следеће ф рнгТаргетЦелл.Оффсет (1, 0 ) .ЦопиФромРецордсет рс ради у Екцел -у 2000 или новијој верзији 'РС2ВС рс, рнгТаргетЦелл' ради у Екцелу 97 или старијем рс.Затвори скуп рс = Ништа цн.Затвори скуп цн = Ништа Крај Суб
Поступак се може користити овако:
Под ТестГетТектФилеДата () Апплицатион.СцреенУпдатинг = Фалсе Воркбоокс.Адд ГетТектФилеДата "СЕЛЕЦТ * ФРОМ филенаме.ткт", "Ц: \ ФолдерНаме", Ранге ("А3") 'ГетТектФилеДата "СЕЛЕЦТ * ФРОМ филенаме.ткт' ", _" Ц: \ ФолдерНаме ", Распон (" А3 ") Колоне (" А: ИВ "). АутоФит АцтивеВоркбоок.Савед = Труе Енд Суб
Замените филенаме.ткт именом текстуалне датотеке из које желите да преузмете податке.
Замените Ц: \ ФолдерНаме именом фасцикле у којој је сачувана текстуална датотека.
Први ред у текстуалној датотеци ће се користити као наслови колона/имена поља.
Свака колона са датвом мора бити одвојена знаком за раздвајање листе који се користи у регионалном
подешавања на контролној табли. У Норвешкој је ово обично тачка -зарез (;), у другим земљама ово може бити зарез (,).
Поступак РС2ВС пронаћи ћете кликом на ову везу.
Пример макроа претпоставља да је ваш ВБА пројекат додао референцу у библиотеку објеката АДО.
То можете учинити из ВБЕ -а одабиром менија Алати, Референце и одабиром Мицрософт
АцтивеКс Дата Објецтс к.к Објектна библиотека.