Как сделать выборку записей из файла DBF на лист Excel?

@denyacheerful · Регистрация: 28.06.2009

Студворк — интернет-сервис помощи студентам

Добрый день! Помогите пожалуйста, сделать выборку записей из файла DBF на лист Excel. Найденный мной здесь код

Visual Basic
1
2
Set Db = OpenDatabase('c:', False, True, 'dBASE IV')
Set rs = Db.OpenRecordset('ex_oper.dbf', dbOpenDynaset)

Выдает ошибку 'Внешняя таблица не имеет предполагаемый формат'. Если я пытаюсь изменить формат например на Dbase III, получаю сообщение 'Невозможно найти устанавливаемый ISAM'. Если же я просто пытаюсь открыть этот файл, получаю сообщение - 'Формат файла неизвестен'. Как определить какую версию формата DBase имеет файл? и как его открыть в VBA?

@Gacol · 12.09.2010, 13:01

Попробуй создатть запрос на выборку, записывая ход выполнения в макрос.
Потом будет ясно, что надо поправить в нужный момент в SQL-запросе.
Этот вариант мне кажется удобнее и нажежнее.

@vlth · 12.09.2010, 15:52

Код из книги (автор ссылается на Инет).

Подключение к файлу dbf формата dBase III (подходит для dBase 4 и 5):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
pathDBF='c: '
strSQL='SELECT * FROM ИмяФайла.dbf'
set cn = new ADODB.connection
cn.provider='Microsoft.Jet.OLEDB.4.0'
cn.ConnectionString='Data Source=' & pathDBF & '; Extended Properties=dBase III'
cn.open
 
set rs = new ADODB.recordset
...
 
Range('A1').CopyFromRecordset rs

Попробуй, м.б. поможет...

@denyacheerful · 12.09.2010, 17:57 **[ТС]**

как-то не помогло,
ругается на строку New ADODB.Connection - user-defined type not defined

@vlth · 12.09.2010, 19:46

Добавь ссылку в Tools->References на Microsoft ActiveX Data Objects 2.x Library (последнюю версию 2.8 можно скачать с сайта Microsoft)

@vlth · 12.09.2010, 19:50

Файл называется MDAC_TYP.EXE, 'весит' > 5 M

@denyacheerful · 20.09.2010, 19:10 **[ТС]**

Все равно не помогло

- Говорит - таблица не имеет предполагаемый формат. Одно дополнение - это таблица Visual FoxPro

@vlth · 20.09.2010, 22:28

Сочувствую.

30.10.2010, 20:49

Вот как это выглядит у меня-часть кода для сосдания сводных таблиц.

Visual Basic
1
2
3
4
5
6
7
8
9
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
        
ConString = 'ODBC;CollatingSequence=ASCII;DBQ=' & Путь & ';Deleted=0;Driver={Microsoft dBase Driver (*.dbf)};' & vbCrLf
ConString = ConString & ' DriverId=277;FIL=dBase IV;MaxBufferSize=2048;MaxScanRows=8;PageTime out=5;SafeTransactions=0;Statistics=0;Threads=3;UID=admin;UserCommitSync=Yes;'
        
        sSQL = 'SELECT ' & TabName & '.A_Date as Дата,' & TabName .......        
 With PTCache
       .Connection = ConString
       .CommandText = sSQL

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Gacol 1 / 1 / 0 Регистрация: 03.07.2009 Сообщений: 112
	12.09.2010, 13:01
	Попробуй создатть запрос на выборку, записывая ход выполнения в макрос. Потом будет ясно, что надо поправить в нужный момент в SQL-запросе. Этот вариант мне кажется удобнее и нажежнее. 0

@denyacheerful 0 / 0 / 0 Регистрация: 28.06.2009 Сообщений: 36
	12.09.2010, 17:57 [ТС]
	как-то не помогло, ругается на строку New ADODB.Connection - user-defined type not defined 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	12.09.2010, 19:46
	Добавь ссылку в Tools->References на Microsoft ActiveX Data Objects 2.x Library (последнюю версию 2.8 можно скачать с сайта Microsoft) 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	12.09.2010, 19:50
	Файл называется MDAC_TYP.EXE, 'весит' > 5 M 0

@denyacheerful 0 / 0 / 0 Регистрация: 28.06.2009 Сообщений: 36
	20.09.2010, 19:10 [ТС]
	Все равно не помогло - Говорит - таблица не имеет предполагаемый формат. Одно дополнение - это таблица Visual FoxPro 0

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	20.09.2010, 22:28
	Сочувствую. 0