Создание dbf файла из ексель - VBA. Конвертирование данных из Microsoft Excel в формат DBF Как создать дбф файл

Можно использовать несколько измененный алгоритм перебора строк файла:

Выгрузка в файл DBF

Этапы выгрузки в файл DBF:

1. Создание объекта XBase;
2. Указание кодировки (если не указать, то будет использоваться кодировка ANSI);
3. Описание полей;
4. Создание файла;
5. Цикл с добавлением и заполнением строк;
6. Закрытие файла.

Рассмотрим этот процесс на примере:

При указании кодировки используется тип КодировкаXBase , который может принимать два значения:

• ANSI – формат Windows;
• OEM – формат DOS.

Добавление нового поля при описании структуры имеет синтаксис

Доступны следующие типы:

• «N» – число;
• «S» – строка;
• «D» – дата;
• «L» – булево;
• «F» – аналогично «N» – число.

Длина поля является обязательным для типов полей «N», «F» и «S».

Работа с индексами

Совместно с файлом DBF может использоваться индексный файл, в котором может содержаться информация об одном или более индексе. Наличие индексов делает возможным использование поиска, а не только последовательного перебора всех строк файла.

При создании индексного файла следует задать:

• Перечень индексов;
• Путь сохранения индексного файла (на этапе 4 выгрузки).

Пример создания индексного файла:

Процедура добавления нового индекса имеет синтаксис:

Для использования индексов при чтении из файла DBF следует:

• Указать путь к индексному файлу (на этапе 2 загрузки);
• Задать текущий индекс.

Пример открытия файла DBF с использованием индексного файла:

Внимание!

При открытии файла DBF позиционирование происходит на первой записи в файле. Первая запись в файле не соответствует первой записи в индексе. В связи с этим при использовании индексов перед тем, как последовательно обходить строки, необходимо спозиционироваться на первой строке индекса. Это можно сделать методом Первая () , например:

Для поиска может использоваться одна из двух функций:

• Найти(< Ключ>, < Режим >) ;
• НайтиПоКлючу(< Режим >) .

В результате работы обоих функций возвращается значение с типом булево (найдена запись с указанными условиями или нет). В случае успешного поиска текущий указатель устанавливается на найденной строке. В качестве режима поиска может использоваться одно из значений:

• «>=»;
• «>»;
• «<=»;
• «<«.

Рассмотрим поиск в файле DBF на примерах:

Удаление записей в файле DBF

Удаление записи производится методом Удалить () :

Но при использовании этого метода запись не удаляется из файла безвозвратно, ей присваивается пометка удаления. При переборе строк помеченные на удаление записи пропускаются. Если необходимо обойти весь файл, включая помеченные на удаление записи, необходимо присвоить значение Истина свойству ОтображатьУдаленные объекта xBase. Узнать помечена запись на удаление или нет можно с помощью функции ЗаписьУдалена () . Для снятия пометки удаления используется метод Восстановить () .

Для непосредственного удаления помеченных записей используется метод Сжать () :

Если необходимо удалить все записи в файле непосредственно, то можно использовать метод ОчиститьФайл () :

Загрузка из DBF при помощи ADO

Для работы с файлами DBF может использоваться технология ADO. Драйверы ADO входят в состав операционной системы Windows и дополнительно их устанавливать не надо.

Рассмотрим пример кода для чтения из файла DBF по технологии ADO:

В приведенном примере используется строка подключения «Provider=Microsoft.Jet.OLEDB.4.0;Data Source= «D:\»;Extended Properties=DBASE III». В этой строке:

• Provider – это используемый драйвер;
• Data Source – путь, где находится файл DBF. Путь указывается с точностью до каталога. Имя файла используется в качестве имени таблицы в запросах;
• Extended Properties – в случае обращения к файлам DBF является обязательным параметром. Можно указать формат файла

Внимание!

При чтении указанным способом кодировка по-умолчанию – OEM. Для того, чтобы изменить кодировку на ANSI необходимо в реестре Windows присвоить параметру HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Jet\4.0\Engines\xBase\DataCodePage значение «ANSI».

Остались вопросы?
Спросите в комментариях к статье.

DBF – это популярный формат хранения и обмена данными между различными программами, а в первую очередь, между приложениями, которые обслуживают базы данных и электронные таблицы. Хотя он и стал устаревать, но продолжает оставаться востребованным в различных сферах. Например, с ним продолжают активно работать бухгалтерские программы, а контролирующие и государственные органы принимают значительную часть отчетов в данном формате.

Но, к сожалению, Эксель, начиная с версии Excel 2007, прекратил полноценную поддержку указанного формата. Теперь в этой программе можно только просмотреть содержимое DBF-файла, а сохранить данные с указанным расширением встроенными инструментами приложения уже не получится. К счастью, имеются другие возможности конвертации данных из программы Excel в нужный нам формат. Рассмотрим, каким образом это можно выполнить.

В Excel 2003 и в более ранних версиях этой программы можно было сохранить данные в формате DBF (dBase) стандартным путем. Для этого нужно было кликнуть по пункту «Файл» в горизонтальном меню приложения, а затем в открывшемся списке выбрать позицию «Сохранить как…» . В запустившемся окошке сохранения из списка требовалось выбрать наименование нужного формата и нажать на кнопку «Сохранить» .

Но, к сожалению, начиная с версии Excel 2007, разработчики Microsoft посчитали dBase устаревающим, а современные форматы Эксель слишком сложными для того, чтобы тратить время и средства на обеспечение полной совместимости. Поэтому в Excel осталась возможность читать DBF-файлы, но поддержка сохранения данных в этом формате встроенными программными инструментами была прекращена. Тем не менее, существуют некоторые способы конвертации данных сохраненных в Excel в DBF при помощи применения надстроек и другого программного обеспечения.

Способ 1: программа WhiteTown Converters Pack

Существует ряд программ, которые позволяют конвертировать данные из Excel в DBF. Один из самых простых способов конвертирования данных из Excel в DBF является использование пакета утилит для конвертирования объектов с различным расширением WhiteTown Converters Pack.

Хотя процедура установки данной программы проста и интуитивно понятна, все-таки подробно остановимся на ней, указав на некоторые нюансы.

1. После того, как вы скачали и запустили инсталлятор, сразу открывается окошко Мастера установки , в котором предлагается выбрать язык для дальнейшего проведения процедуры инсталляции. По умолчанию там должен отобразиться тот язык, который установлен на вашем экземпляре Windows, но при желании его можно поменять. Мы же это делать не будем и просто жмем на кнопку «OK» .



2. Далее запускается окно, в котором указывается место на системном диске, куда будет устанавливаться утилита. По умолчанию это папка «Program Files» на диске «C» . Тут лучше тоже ничего не менять и нажать на клавишу «Далее» .



3. Затем открывается окно, в котором можно выбрать, какие именно направления преобразования вы хотите иметь. По умолчанию выбраны все доступные компоненты конвертирования. Но, возможно, некоторые пользователи не захотят устанавливать их все, так как каждая утилита занимает место на жестком диске. Во всяком случае, именно для нас важно, чтобы стояла галочка около пункта «XLS (Excel) to DBF Converter» . Установку остальных компонентов пакета утилит пользователь может выбрать на свое усмотрение. После того, как настройка произведена, не забываем кликнуть по клавише «Далее» .



4. После этого открывается окно, в котором производится добавление ярлыка в папке «Пуск» . По умолчанию ярлык называется «WhiteTown» , но при желании можно изменить его наименование. Жмем на клавишу «Далее» .



5. Затем запускается окно, в котором спрашивается, создавать ли ярлык на рабочем столе. Если вы хотите, чтобы он был добавлен, то оставьте галочку около соответствующего параметра, если не хотите, то снимите её. Затем, как всегда, жмем на клавишу «Далее» .



6. После этого открывается ещё одно окошко. В нем указаны основные параметры установки. Если пользователя что-то не устраивает, и он хочет отредактировать параметры, то следует нажать на клавишу «Назад» . Если все в порядке, то щелкаем по кнопке «Установить» .



7. Начинается процедура установки, прогресс которой будет отображать динамический индикатор.



8. Затем открывается информационное сообщение на английском языке, в котором выражается благодарность по поводу инсталляции данного пакета. Жмем на клавишу «Далее» .



9. В последнем окошке Мастера установки сообщается, что программа WhiteTown Converters Pack успешно установлена. Нам остается только нажать на кнопку «Завершить» .



10. После этого на Рабочем столе появится папка под названием «WhiteTown» . Она содержит ярлыки утилит по конкретным направлениям конвертации. Открываем эту папку. Перед нами предстает большое число утилит, входящих в пакет WhiteTown по различным направлениям конвертации. При этом каждое направление имеет отдельную утилиту для 32-битной и 64-битной операционной системы Windows. Открываем приложение с наименованием «XLS to DBF Converter» , соответствующее разрядности вашей ОС.



11. Запускается программа XLS to DBF Converter. Как видим, интерфейс англоязычный, но, тем не менее, он интуитивно понятен.

    Сразу открывается вкладка «Input» («Ввод» ). Она предназначена для того, чтобы указать объект, который следует конвертировать. Для этого жмем по кнопке «Add» («Добавить» ).



12. После этого открывается стандартное окошко добавления объекта. В нем нужно перейти в ту директорию, где размещена нужная нам книга Excel c расширением xls или xlsx. После того, как объект найден, выделяем его наименование и жмем на кнопку «Открыть» .



13. Как видим, после этого путь к объекту отобразился во вкладке «Input» . Жмем на клавишу «Next» («Далее» ).



14. После этого мы автоматически перемещаемся во вторую вкладку «Output» («Вывод» ). Здесь нужно указать в какую именно директорию будет выводиться готовый объект с расширением DBF. Для того, чтобы выбрать папку сохранения готового DBF-файла, жмем на кнопку «Browse…» («Просмотреть» ). Открывается небольшой список из двух пунктов «Select File» («Выбрать файл» ) и «Select Folder» («Выбрать папку» ). На самом деле эти пункты лишь означают выбор различного вида окон навигации для указания папки сохранения. Делаем выбор.



15. В первом случае это будет обычное окно «Сохранить как…» . В нем будут отображаться, как папки, так и уже существующие объекты dBase. Переходим в ту директорию, где желаем произвести сохранение. Далее в поле «Имя файла» указываем то наименование, под которым желаем, чтобы значился объект после конвертации. После этого жмем на кнопку «Сохранить» .

    

    Если же вы выберите вариант «Select Folder» , то откроется упрощенное окошко выбора директории. В нем будут отображаться только папки. Выбираем папку для сохранения и жмем на кнопку «OK» .



16. Как видим, после любого из этих действий путь к папке для сохранения объекта будет отображен во вкладке «Output» . Для перехода к следующей вкладке щелкаем по клавише «Next» («Далее» ).



17. В последней вкладке «Options» («Параметры» ) очень много настроек, но нас больше всего интересует «Type of memo fields» («Тип поля memo» ). Кликаем по полю, в котором по умолчанию стоит настройка «Auto» («Авто» ). Открывается список типов dBase для сохранения объекта. Этот параметр очень важен, так как далеко не все программы, работающие с dBase, умеют обрабатывать все типы объектов с данным расширением. Поэтому заранее нужно знать, какой тип выбрать. Существует возможность выбора из шести различных типов:
    • dBASE III ;
    • FoxPro ;
    • dBASE IV ;
    • Visual FoxPro ;
    • >SMT ;
    • dBASE Level 7 .

    Делаем выбор того типа, который нужен для применения в конкретной программе.



18. После того, как выбор сделан, можно переходить к непосредственной процедуре конвертирования. Для этого жмем на кнопку «Start» («Старт» ).



19. Запускается процедура преобразования. Если в книге Эксель имеется несколько листов с данными, то для каждого из них будет создан отдельный DBF-файл. О завершении процесса конвертации будет свидетельствовать зеленый индикатор прогресса. После того, как он дойдет до конца поля, жмем на кнопку «Finish» («Финиш» ).

Готовый документ будет расположен в той директории, которая была указана во вкладке «Output» .

Единственный существенный недостаток способа с применением пакета утилит WhiteTown Converters Pack состоит в том, что бесплатно можно будет провести только 30 процедур конвертирования, а потом придется приобретать лицензию.

Способ 2: надстройка XlsToDBF

Конвертировать книгу Эксель в dBase непосредственно через интерфейс приложения можно с помощью установки сторонних надстроек. Одной из лучших и наиболее удобных из них является надстройка XlsToDBF. Рассмотрим алгоритм её применения.

1. После того, как скачали архив XlsToDBF.7z с надстройкой, распаковываем из него объект под названием XlsToDBF.xla. Так как архив имеет расширение 7z, то распаковку можно проводить либо стандартной программой для этого расширения 7-Zip, либо с помощью любого другого архиватора, который поддерживает работу с ним.



2. После этого запускаем программу Эксель и переходим во вкладку «Файл» . Далее перемещаемся в раздел «Параметры» через меню в левой части окна.



3. В открывшемся окошке параметров кликаем по пункту «Надстройки» . Перемещаемся в правую часть окна. В самом его низу расположено поле «Управление» . Переставляем в нем переключатель в позицию «Надстройки Excel» и щелкаем по кнопке «Перейти…» .



4. Открывается небольшое окошко управления надстройками. Жмем в нем на кнопку «Обзор…» .



5. Запускается окошко открытия объекта. Нам нужно перейти в ту директорию, где находится распакованный архив XlsToDBF. Заходим в папку под одноименным названием и выделяем объект с наименованием «XlsToDBF.xla» . После этого жмем на кнопку «OK» .



6. Затем мы возвращаемся в окошко управления надстройками. Как видим, в списке появилось наименование «XLS -> DBF» . Это и есть наша надстройка. Около неё должна стоять галочка. Если галочка отсутствует, то ставим её, а затем жмем на кнопку «OK» .



7. Итак, надстройка установлена. Теперь открываем документ Эксель, данные из которого нужно преобразовать в dBase, или же просто набираем их на листе, если документ ещё не создан.



8. Теперь нам нужно будет произвести некоторые манипуляции с данными, чтобы подготовить их к конвертации. Прежде всего, добавляем две строки над шапкой таблицы. Они должны быть самыми первыми на листе и иметь наименования на вертикальной панели координат «1» и «2» .

   В самой верхней левой ячейке вписываем наименование, которое мы хотим присвоить создаваемому DBF-файлу. Оно состоит из двух частей: собственно названия и расширения. Допускается использование только латиницы. Пример такого наименования – «UCHASTOK.DBF» .



9. В первой ячейке справа от наименования нужно указать кодировку. Существует два варианта кодировки с применением данной надстройки: CP866 и CP1251 . Если ячейка B2 пустая или в ней установлено любое значение отличное от «CP866» , то по умолчанию будет применяться кодировка CP1251 . Ставим ту кодировку, которую считаем нужной или оставляем поле пустым.



10. Далее переходим к следующей строке. Дело в том, что в структуре dBase каждый столбец, именуемый полем, имеет свой тип данных. Существуют такие их обозначения:
    • N (Numeric) – числовой;
    • L (Logical) – логический;
    • D (Date) – дата;
    • C (Character) – строковый.

    Кроме того, в строковом (Cnnn ) и числовом типе (Nnn ) после наименования в виде буквы следует указывать максимальное количество символов в поле. Если в числовом типе применяются десятичные знаки, то их количество тоже нужно указать после точки (Nnn.n ).

    Существуют и другие типы данных в формате dBase (Memo, General и т.д.), но данная надстройка с ними работать не умеет. Впрочем, с ними не умел работать и Excel 2003, когда ещё поддерживал конвертацию в DBF.

    В нашем конкретном случае первое поле будет строковым шириной в 100 символов (C100 ), а остальные поля будут числовыми шириной в 10 символов (N10 ).



11. В следующей строке расположены наименования полей. Но дело в том, что они тоже должны быть внесены на латинице, а не на кириллице, как у нас. Также в наименовании полей не допускаются пробелы. Переименовываем их согласно этим правилам.



12. После этого подготовку данных можно считать оконченной. Выделяем на листе курсором с зажатой левой клавишей мыши весь диапазон таблицы. Затем переходим во вкладку «Разработчик» . По умолчанию она отключена, поэтому перед дальнейшими манипуляциями нужно её активировать и включить работу макросов . Далее на ленте в блоке настроек «Код» кликаем по значку «Макросы» .

    Можно сделать и чуть проще, набрав комбинацию горячих клавиш Alt+F8 .



13. Запускается окошко макросов. В поле «Имя макроса» вводим наименование нашей надстройки «XlsToDBF» без кавычек. Регистр при этом не важен. Далее щелкаем по кнопке «Выполнить» .



14. Макрос в фоновом режиме выполняет обработку. После этого в той же папке, где расположен исходный Excel-файл, будет сформирован объект с расширением DBF с тем наименованием, которое было задано в ячейке A1 .

Как видим, данный способ значительно сложнее предыдущего. Кроме того, он весьма ограничен по количеству используемых типов полей и создаваемых типов объектов с расширением DBF. Ещё одним недостатком является то, что директорию создания объекта dBase можно назначать только перед процедурой конвертирования, путем прямого перемещения в папку назначения исходного Excel-файла. Среди преимуществ данного способа можно отметить то, что в отличие от предыдущего варианта, он абсолютно бесплатен и практически все манипуляции производятся непосредственно через интерфейс Эксель.

Способ 3: программа Microsoft Access

Хотя у новых версий Excel и нет встроенного способа сохранение данных в формате DBF, но, тем не менее, вариант с применением приложения Microsoft Access более всего приблизился к тому, чтобы назвать его стандартным. Дело в том, что эта программа выпущена тем же производителем, что и Эксель, и также входит в пакет Microsoft Office. К тому же, это самый безопасный вариант, так как не нужно будет связываться с программным обеспечением сторонних производителей. Microsoft Access специально предназначен для работы с базами данных.

1. После того, как все необходимые данные на листе в Эксель введены, для того, чтобы конвертировать их в формат DBF, нужно сначала произвести сохранение в одном из форматов Excel. Для этого кликаем по иконке в виде дискеты в левом верхнем углу окна программы.



2. Открывается окно сохранения. Переходим в ту директорию, где желаем, чтобы файл был сохранен. Именно из этой папки его нужно будет потом открыть в Microsoft Access. Формат книги можно оставить по умолчанию xlsx, а можно поменять на xls. В данном случае это не критично, так как все равно мы сохраняем файл только для того, чтобы преобразовать его в DBF. После того, как все настройки выполнены, жмем на кнопку «Сохранить» и закрываем окно Excel.



3. Запускаем программу Microsoft Access. Переходим во вкладку «Файл» , если она открылась в другой вкладке. Жмем на пункт меню «Открыть» , расположенный в левой части окна.



4. Запускается окно открытия файла. Переходим в ту директорию, где мы сохранили файл в один из форматов Excel. Чтобы он отобразился в окне, переставляем переключатель формата файлов в положение «Книга Excel (*.xlsx)» или «Microsoft Excel (*.xls)» , в зависимости от того, в каком из них книга была сохранена. После того, как наименование нужного нам файла отобразилось, выделяем его и жмем на кнопку «Открыть» .



5. Открывается окно «Связь с электронной таблицей» . Оно позволяет максимально корректно переместить данные из файла Excel в Microsoft Access. Нам нужно выбрать лист Эксель, данные из которого мы собираемся импортировать. Дело в том, что даже если в файле Excel содержалась информация на нескольких листах, то импортировать её в Access можно только отдельно и, соответственно, потом преобразовать её в отдельные файлы DBF.

   Также существует возможность импорта информации отдельных диапазонов на листах. Но в нашем случае это не нужно. Устанавливаем переключатель в позицию «Листы» , а затем выбираем тот лист, откуда собираемся брать данные. Корректность отображения информации можно просмотреть в нижней части окна. Если все удовлетворяет, жмем на кнопку «Далее» .



6. В следующем окне, если ваша таблица содержит заголовки, нужно поставить галочку около пункта «Первая строка содержит заголовки столбцов» . Затем жмем на кнопку «Далее» .



7. В новом окне связи с электронной таблицей можно при желании изменить имя связанного элемента. Затем жмем на кнопку «Готово» .



8. После этого откроется диалоговое окно, в котором будет сообщение о том, что связывание таблицы с файлом Excel завершено. Жмем на кнопку «OK» .



9. В левой части интерфейса программы появится наименование таблицы, которое мы присвоили ей в последнем окне. Дважды щелкаем по нему левой клавишей мыши.



10. После этого таблица отобразится в окне. Перемещаемся во вкладку «Внешние данные» .



11. На ленте в блоке инструментов «Экспорт» кликаем по надписи «Дополнительно» . В открывшемся списке выбираем пункт «Файл dBase» .



12. Открывается окно экспорта в формат DBF. В поле «Имя файла» можно указать место хранения файла и его наименование, если те, которые указаны по умолчанию, вам по какой-то причине не подходят.

    В поле «Формат файла» выбираем один из трех типов формата DBF:

    • dBASE III (по умолчанию);
    • dBASE IV ;
    • dBASE 5 .

    Нужно учесть, что чем современнее формат (выше порядковый номер), то тем больше существует возможностей по обработке в нем данных. То есть, выше вероятность того, что в файле удастся сохранить все данные таблицы. Но в то же время ниже вероятность того, что программа, куда вы в будущем собираетесь импортировать файл DBF, будет совместима именно с этим типом.

    После того, как все настройки выставлены, жмем на кнопку «OK» .



13. Если после этого появилось сообщение об ошибке, то попробуйте экспортировать данные, используя другой тип формата DBF. Если же все прошло нормально, то появится окно, в котором сообщается, что экспорт выполнен успешно. Жмем на кнопку «Закрыть» .

Созданный файл в формате dBase будет находиться в той директории, которая была указана в окне экспорта. Далее с ним вы можете производить любые манипуляции, включая импорт его в другие программы.

Как видим, несмотря на то, что в современных версиях Excel отсутствует возможность сохранения файлов в формате DBF встроенными инструментами, тем не менее, данную процедуру можно осуществить с помощью применения других программ и надстроек. При этом следует отметить, что наиболее функциональный способ конвертирования – это использование набора утилит WhiteTown Converters Pack. Но, к сожалению, количество бесплатных преобразований в нем ограничено. Надстройка XlsToDBF позволяет выполнить конвертацию абсолютно бесплатно, но процедура намного сложнее. К тому же функционал данного варианта очень ограничен.

«Золотой серединой» является способ с использованием программы Access. Как и Excel – это разработка компании Microsoft, а поэтому сторонним приложением его уже не назовешь. К тому же данный вариант позволяет конвертировать файл Excel в несколько типов формата dBase. Хотя по этому показателю Access все-таки уступает программе WhiteTown.

как создать dbf файл из ексель из использованием ADO в ADO я запуталсь......именно в конретной информации.... 1. подключение к dbf(и к чему еще можно с помощю ado подключится и как); 2.создание файла dbf (другие варианты); 3.запись; 4.сохранение; 5.закрытие. спасибо за любое инфо

что искать по даной теме или полный игнор.....на тему ADO может лутше создать тему.....обшырное использование ADO

скупо как то получается

Код к задаче: «Создание dbf файла из ексель»

Textual

Листинг программы

"::: Этап 1 - Определяем, откуда мы запущены homeDir=Wscript.ScriptFullName "::: Это - полный путь нашего файла k=Instrrev(homeDir,"\") "::: Ищем "\" с конца homeDir=left(homeDir,(k-1)) "::: Это - чистое имя директории "::: Этап 2 - Создаем ADO-соединение и пустой набор записей Set Conn = CreateObject("ADODB.Connection") Set RS = CreateObject("ADODB.Recordset") DSNName = "DRIVER=Microsoft dBase Driver (*.dbf);DBQ=" DSNName = DSNName & HomeDir "::: Этап 3 - Открываем соединение Conn.Open DSNName "::: Этап 4 - готовим SQL-оператор для создания таблицы SQL="create table Testtable (N1 Float, N2 Float)" "::: Этап 5 - выполняем его RS.Open sql,Conn,3,3 "::: Этап 6 - Добавляем в таблицу 100 записей For i=1 to 100 SQL="insert into testtable values (" & cstr(i) & "," & Cstr(2*i-1) & ")" RS.Open sql,Conn,3,3 Next "::: Этап 7 - суммируем... SQL="Select sum(N1),sum(N2) from Testtable" RS.Open SQL,Conn,3,3 SS1=RS(0) SS2=RS(1) MsgBox SS1 MsgBox SS2 Rs.Close SQL="Drop table Testtable" RS.Open sql,Conn,3,3 MsgBox "Таблица удалена!"